upd. to now default to v.30+.

diff --git a/Installation.txt b/Installation.txt
index e01e647b736bc358ffe6cceee340764a6ceb673b..9669928d47c8ddc07d0e3d8436d24aa09c521343 100644 (file)
--- 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 3411144f227774ab7ee95c01cbf2aabcc59cc4db..117263809411d8799b7d2e09ff1a3aae3db5a8ec 100755 (executable)
--- 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>);