| Subject: | [PATCH] Fix for 5.21.4 |
Perl 5.21.4 changes one of its error messages and your tests fail as a result. Attached is a patch to the test suite to make it accept both versions of the message.
$ perl5.20.1 -Mstrict -e\$foo
Global symbol "$foo" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.
$ 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.
| Subject: | open_kqY5Muuf.txt |
diff -rup Apache-EmbeddedPerl-Lite-0.06-AVcqgj-orig/t/badperl.t Apache-EmbeddedPerl-Lite-0.06-AVcqgj/t/badperl.t
--- Apache-EmbeddedPerl-Lite-0.06-AVcqgj-orig/t/badperl.t 2014-01-27 20:47:54.000000000 -0800
+++ Apache-EmbeddedPerl-Lite-0.06-AVcqgj/t/badperl.t 2014-09-21 07:02:09.000000000 -0700
@@ -64,12 +64,12 @@ my $r = bless {}, __PACKAGE__;
&ok;
$exp = q|Apache::EmbeddedPerl::TestPackage embedded: failed testfiles/badperl.html line 6
-Global symbol "$c" requires explicit package name at (eval 1) line 5, <F> line 13.
-Global symbol "$ref" requires explicit package name at (eval 1) line 5, <F> line 13.
-Global symbol "$ref" requires explicit package name at (eval 1) line 7, <F> line 13.
+Global symbol "\$c" requires explicit package name(?: \([^)]+\))? at \(eval 1\) line 5, <F> line 13\.
+Global symbol "\$ref" requires explicit package name(?: \([^)]+\))? at \(eval 1\) line 5, <F> line 13\.
+Global symbol "\$ref" requires explicit package name(?: \([^)]+\))? at \(eval 1\) line 7, <F> line 13\.
|;
print "got:\n$warn\nexp:\n$exp\nnot "
- unless $warn eq $exp;
+ unless $warn =~ $exp;
&ok;
$exp = '<!DOCTYPE html>