This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get Storable’s blessed.t passing again in 5.8.1-
authorFather Chrysostomos <sprout@cpan.org>
Tue, 31 Jul 2012 05:43:06 +0000 (22:43 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 31 Jul 2012 06:24:24 +0000 (23:24 -0700)
Back then, sub {} meant sub {wantarray?@_:undef}.

dist/Storable/t/blessed.t

index 775592d..4153b0a 100644 (file)
@@ -271,7 +271,7 @@ is(ref $t, 'STRESS_THE_STACK');
 {
     {
         package WeirdRefHook;
 {
     {
         package WeirdRefHook;
-        sub STORABLE_freeze { }
+        sub STORABLE_freeze { () }
         $INC{'WeirdRefHook.pm'} = __FILE__;
     }
 
         $INC{'WeirdRefHook.pm'} = __FILE__;
     }