From adbb2d768d3c4560d2921e88b4d876a22321981c Mon Sep 17 00:00:00 2001
From: wbudic <vilijanac@gmail.com>
Date: Thu, 10 Mar 2022 18:10:24 +1100
Subject: [PATCH] minor

---
 htdocs/cgi-bin/main.cgi | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi
index 1172638..bb498d1 100755
--- a/htdocs/cgi-bin/main.cgi
+++ b/htdocs/cgi-bin/main.cgi
@@ -3,18 +3,14 @@
 # Programed by: Will Budic
 # Open Source License -> https://choosealicense.com/licenses/isc/
 #
-use v5.30;
-#use diagnostics;
+use v5.34; #use diagnostics;
 use warnings;
-use strict;
-#no warnings 'experimental';
+use strict; no warnings "experimental::smartmatch"; 
 use Exception::Class ('LifeLogException');
 use Syntax::Keyword::Try;
 use DBI;
-use DBD::Pg;
-use DBD::Pg qw(:pg_types);
-use Date::Language;
-use Date::Parse;
+use DBD::Pg; use DBD::Pg qw(:pg_types);
+use Date::Language; use Date::Parse; 
 use Time::localtime;
 
 use Regexp::Common qw /URI/;
@@ -87,7 +83,7 @@ my $stmD        = "";
 my $sm_reset_all= "";
 my $rec_limit   = Settings::recordLimit();
 #Set to 1 to get debug help. Switch off with 0.
-my $DEBUG       = 1;#Settings::debug();
+my $DEBUG       = Settings::debug();
 #END OF SETTINGS
 my $rtf_buffer = 0;
 my ($BUFFER, $D_BUFF)=("","");
-- 
2.34.1