This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Squelch warning in deparse.t
authorFather Chrysostomos <sprout@cpan.org>
Sun, 10 Jul 2011 13:07:56 +0000 (06:07 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 10 Jul 2011 13:08:58 +0000 (06:08 -0700)
dist/B-Deparse/t/deparse.t

index ab50b5a..d32d1f4 100644 (file)
@@ -209,6 +209,7 @@ sub BEGIN {
 EOCODF
 
 # [perl #93990]
 EOCODF
 
 # [perl #93990]
+@* = ();
 is($deparse->coderef2text(sub{ print "@{*}" }),
 q<{
     print "@{*}";
 is($deparse->coderef2text(sub{ print "@{*}" }),
 q<{
     print "@{*}";