Don't let deliberate warning leak to user space

Ovid · Apr 30, 2013 · 6565414 · 6565414
1 parent c6d557e
commit 6565414
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/t/arrayref_bug.t b/t/arrayref_bug.t
@@ -3,12 +3,10 @@ use lib 'lib';
 use Code::CutNPaste;
 use Test::Most;
 
-{
-    no warnings qw/redefine once/;
-    *File::Temp::new = sub {
-        die("Could not create temp file: Permission denied");
-    }
-}
+my $error = 'Could not create temp file: Permission denied';
+$SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /$error/ };
+no warnings qw/redefine once/;
+*File::Temp::new = sub { die($error); };
 
 ok my $cutnpaste = Code::CutNPaste->new(
     dirs         => 't/fixtures',