Skip Menu |
 

This queue is for tickets about the Apache-EmbeddedPerl-Lite CPAN distribution.

Report information
The Basics
Id: 99012
Status: new
Priority: 0/
Queue: Apache-EmbeddedPerl-Lite

People
Owner: Nobody in particular
Requestors: 'spro^^*%*^6ut# [...] &$%*c
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: [PATCH] Fix for 5.21.4
Download (untitled) / with headers
text/plain 501b
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
Download open_kqY5Muuf.txt
text/plain 1.1k
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>


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.