svleak.t: Suppress warning
authorFather Chrysostomos <sprout@cpan.org>
Fri, 2 Nov 2012 19:36:23 +0000 (12:36 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 2 Nov 2012 19:36:23 +0000 (12:36 -0700)
t/op/svleak.t

index db575b9..89c98a2 100644 (file)
@@ -308,6 +308,7 @@ leak(2, 0, sub {
 {
     use warnings FATAL => 'all';
     leak(2, 0, sub {
+       no warnings 'once';
        eval { printf uNopened 42 };
     }, 'printfing to bad handle under fatal warnings does not leak');
     open my $fh, ">", \my $buf;