This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mro/basic.t: Squelch warning
authorFather Chrysostomos <sprout@cpan.org>
Fri, 13 Jul 2012 16:37:23 +0000 (09:37 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 13 Jul 2012 16:37:32 +0000 (09:37 -0700)
t/mro/basic.t

index 188159e..10aa44c 100644 (file)
@@ -341,6 +341,7 @@ is(eval { MRO_N->testfunc() }, 123);
 
 {
     # Autovivifying @ISA via @{*ISA}
+    no warnings;
     undef *fednu::ISA;
     @{*fednu::ISA} = "pyfg";
     ok +fednu->isa("pyfg"), 'autovivifying @ISA via *{@ISA}';