This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Suppress warning from t/op/attrs.t
authorFather Chrysostomos <sprout@cpan.org>
Tue, 30 Nov 2010 16:33:50 +0000 (08:33 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 30 Nov 2010 16:43:28 +0000 (08:43 -0800)
t/op/attrs.t

index fe77043..36d6bee 100644 (file)
@@ -300,10 +300,10 @@ foreach my $test (@tests) {
   package brength;
   my $proto;
   sub MODIFY_CODE_ATTRIBUTES { $proto = $_[1]; _: }
-  {
+  eval q{
      my $x;
      () = sub :a0 { $x };
-  }
+  };
   package main;
   eval { $proto->() };               # used to crash in pp_entersub
   like $@, qr/^Closure prototype called/,