| Subject: | [PATCH] Fix for 5.21.4 |
The ‘global symbol’ error message has become longer:
$ perl5.21.4 -Mstrict -e\$foo
Global symbol "$foo" requires explicit package name (did you forget to declare "my $foo"?) at -e line 1.
Execution of -e aborted due to compilation errors.
The attached patch is intended to fix triceps’ tests to account, but I have not been able to build it on my OS to confirm that this patch works.
| Subject: | open_BWS46hbL.txt |
diff -rup triceps-2.0.0-5x89pd-orig/perl/Triceps/t/SortedIndexType.t triceps-2.0.0-5x89pd/perl/Triceps/t/SortedIndexType.t
--- triceps-2.0.0-5x89pd-orig/perl/Triceps/t/SortedIndexType.t 2014-10-01 22:23:05.000000000 -0700
+++ triceps-2.0.0-5x89pd/perl/Triceps/t/SortedIndexType.t 2014-10-01 22:23:37.000000000 -0700
@@ -672,7 +672,7 @@ qr/^index error:
ok(!defined $it2);
ok($@,
qr/^Triceps::IndexType::newPerlSorted\(initialize\): failed to compile the source code
-Compilation error: Global symbol \"\$zz\" requires explicit package name at \(eval \d+\) line 2.
+Compilation error: Global symbol \"\$zz\" requires explicit package name(?: \([^)]+\))? at \(eval \d+\) line 2.
The source code was:
sub {
\$zz\+\+;
@@ -684,7 +684,7 @@ The source code was:
ok(!defined $it2);
ok($@,
qr/^Triceps::IndexType::newPerlSorted\(compare\): failed to compile the source code
-Compilation error: Global symbol \"\$zz\" requires explicit package name at \(eval \d+\) line 2.
+Compilation error: Global symbol \"\$zz\" requires explicit package name(?: \([^)]+\))? at \(eval \d+\) line 2.
The source code was:
sub {
\$zz\+\+;
@@ -698,7 +698,7 @@ The source code was:
ok(!defined eval { $it2->setComparator('$zz++;') });
ok($@,
qr/^Triceps::IndexType::setComparator: failed to compile the source code
-Compilation error: Global symbol \"\$zz\" requires explicit package name at \(eval \d+\) line 2.
+Compilation error: Global symbol \"\$zz\" requires explicit package(?: \([^)]+\))? name at \(eval \d+\) line 2.
The source code was:
sub {
\$zz\+\+;