This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
overload.t: Remove a bug workarond
authorFather Chrysostomos <sprout@cpan.org>
Thu, 21 Jul 2011 06:18:07 +0000 (23:18 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 21 Jul 2011 06:18:07 +0000 (23:18 -0700)
That bug was fixed in 5.14

lib/overload.t

index 31629c3..12ed55b 100644 (file)
@@ -603,8 +603,7 @@ is($c, "bareword");
   }
   sub TIESCALAR { my $pack = shift; $pack->new(@_) }
   sub FETCH { shift }
   }
   sub TIESCALAR { my $pack = shift; $pack->new(@_) }
   sub FETCH { shift }
-  sub nop {  }         # Around a bug
-  sub vars { my $p = shift; tie($_, $p), $_->nop foreach @_; }
+  sub vars { my $p = shift; tie($_, $p) foreach @_; }
   sub STORE { 
     my $obj = shift; 
     $#$obj = 1; 
   sub STORE { 
     my $obj = shift; 
     $#$obj = 1;