| Subject: | [PATCH] Fix for 5.21.4 |
The ‘Global symbol’ warning has changed and 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.
| Subject: | open_jjxAn27J.txt |
diff -rup DBIx-VersionedSubs-0.07-eqAZDf-orig/t/03_strict.t DBIx-VersionedSubs-0.07-eqAZDf/t/03_strict.t
--- DBIx-VersionedSubs-0.07-eqAZDf-orig/t/03_strict.t 2007-05-13 10:08:59.000000000 -0700
+++ DBIx-VersionedSubs-0.07-eqAZDf/t/03_strict.t 2014-09-23 12:51:28.000000000 -0700
@@ -35,7 +35,7 @@ no warnings 'once';
My::App::Test->init_code;
-like $warnings, '/Global symbol "\$undeclared_var" requires explicit package name at /', 'The correct warnings get raised for undeclared variables';
+like $warnings, '/Global symbol "\$undeclared_var" requires explicit package name /', 'The correct warnings get raised for undeclared variables';
isn't 'My::App::Test'->can('test_declared_var'), undef, "Some code was defined for 'test_declared_var'";
is 'My::App::Test'->can('test_undeclared_var'), undef, "No code was defined for 'test_undeclared_var' because of the 'strict' error";
My::App::Test::test_declared_var();