From 3431e28e451f89349491b56c8e04b67ed3700fa9 Mon Sep 17 00:00:00 2001
From: wbudic <vilijanac@gmail.com>
Date: Fri, 17 Dec 2021 11:12:52 +1100
Subject: [PATCH] upd. to now default to v.30+.

---
 Installation.txt        |  5 +++++
 htdocs/cgi-bin/main.cgi | 21 ++++++++++-----------
 2 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/Installation.txt b/Installation.txt
index e01e647..9669928 100644
--- a/Installation.txt
+++ b/Installation.txt
@@ -254,6 +254,11 @@ sudo update-rc.d startDevWebServer.sh defaults
 
 #Developer Notes
 
+* For vscode. Before installing perl, and perl::LanguageServer extension.
+  *$ sudo cpan -r Perl::LanguageServer
+  * This will recompile and test the language server with the system default installation of perl you have.
+  * With out the -r option, you might have experimental features compatibilities issues.
+
 ##Automate GIT Push
 
 vim your ./LifeLog/.git/conf file to include:
diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi
index 3411144..1172638 100755
--- a/htdocs/cgi-bin/main.cgi
+++ b/htdocs/cgi-bin/main.cgi
@@ -3,12 +3,11 @@
 # Programed by: Will Budic
 # Open Source License -> https://choosealicense.com/licenses/isc/
 #
-use v5.15;
+use v5.30;
 #use diagnostics;
 use warnings;
 use strict;
-use experimental qw( switch );
-no warnings 'experimental';
+#no warnings 'experimental';
 use Exception::Class ('LifeLogException');
 use Syntax::Keyword::Try;
 use DBI;
@@ -530,14 +529,14 @@ sub buildLog {
         #Replace with a full link an HTTP URI
         if ( $log =~ /<iframe / ) {
             my $a = q(<iframe width="560" height="315"); my $b;
-            given (Settings::frameSize()) {
-                when("0") { $b = q(width="390" height="215") }
-                when("1") { $b = q(width="280" height="180") }
-                when("2") { $b = q(width="160" height="120") }
-                default {
-                    $b = &Settings::frameSize;
-                }
-            }
+			given (Settings::frameSize()) {
+				when("0") { $b = q(width="390" height="215") }
+				when("1") { $b = q(width="280" height="180") }
+				when("2") { $b = q(width="160" height="120") }
+				default {
+					$b = &Settings::frameSize;
+				}
+			}
             $b = qq(<div><iframe align="center" $b);
             $log =~ s/$a/$b/o;
             $a = q(</iframe>);
-- 
2.34.1