X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=blobdiff_plain;f=t%2Flib%2FTest%2FValgrind%2FFakeValgrind.pm;fp=t%2Flib%2FTest%2FValgrind%2FFakeValgrind.pm;h=3f61ba6c32f05d87321ccd0e7589bc47b509905d;hp=71077bd65b8275cef5e74f9dc284edd76fedb2a0;hb=4a52e05da21e9ca5e27ab7c79898fda44b74ec2c;hpb=b34179155630f5f4cbea1749af4054a746ded9a4

diff --git a/t/lib/Test/Valgrind/FakeValgrind.pm b/t/lib/Test/Valgrind/FakeValgrind.pm
index 71077bd..3f61ba6 100644
--- a/t/lib/Test/Valgrind/FakeValgrind.pm
+++ b/t/lib/Test/Valgrind/FakeValgrind.pm
@@ -49,6 +49,7 @@ sub new {
  } else {
   # Can't use the OO interface if we don't wan't the file to be opened by
   # default, but then we have to deal with cleanup ourselves.
+  local $^W = 0;
   (undef, my $tmp_file) = File::Temp::tempfile(
    TEMPLATE => 'fakevgXXXX',
    TMPDIR   => 1,