From 1072cc0c7e92b28abfb23f7d878b97f30be29522 Mon Sep 17 00:00:00 2001 From: Teddy Wing Date: Mon, 23 Aug 2021 23:22:14 +0200 Subject: Turn off strict and warnings in final `perl -e` script Those caused the following errors: Variable "$line" is not imported at -e line 45. Variable "$increment_by" is not imported at -e line 45. Variable "$point_position" is not imported at -e line 45. Variable "$backward" is not imported at -e line 45. Global symbol "$line" requires explicit package name (did you forget to declare "my $line"?) at -e line 45. Global symbol "$increment_by" requires explicit package name (did you forget to declare "my $increment_by"?) at -e line 45. Global symbol "$point_position" requires explicit package name (did you forget to declare "my $point_position"?) at -e line 45. Global symbol "$backward" requires explicit package name (did you forget to declare "my $backward"?) at -e line 45. Execution of -e aborted due to compilation errors. I suppose I could have kept warnings, as only strict caused the errors, but decided to remove it anyway. Not sure what makes the most sense. --- incdec | 3 --- 1 file changed, 3 deletions(-) (limited to 'incdec') diff --git a/incdec b/incdec index aa3f372..e898165 100644 --- a/incdec +++ b/incdec @@ -57,9 +57,6 @@ function __readline_incdec { # print "$line, ${"increment-by"}, ${"point-position"}, $backward"; line=$(perl -s -e ' -use strict; -use warnings; - sub incdec { my ($line, $increment_by, $point_position, $is_backward) = @_; -- cgit v1.2.3