diff options
author | Bram <p5p@perl.wizbit.be> | 2009-08-01 22:11:22 +0200 |
---|---|---|
committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-12-08 11:23:53 +0100 |
commit | 958e6d4b516d826d7139a8ead2b1054c5f8b9eda (patch) | |
tree | 1661277ebae9f954655200f95a019c4b744c138d /t | |
parent | 93592fd5aeec89ac25994a493ef54e1d7a572d65 (diff) | |
download | perl-958e6d4b516d826d7139a8ead2b1054c5f8b9eda.tar.gz |
undef $! before running the errno tests
Diffstat (limited to 't')
-rw-r--r-- | t/io/errno.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/io/errno.t b/t/io/errno.t index 6294ed79b6..ad4e1168a9 100644 --- a/t/io/errno.t +++ b/t/io/errno.t @@ -9,7 +9,7 @@ require './test.pl'; plan( tests => 16 ); -my $test_prog = 'while(<>){print}; print $!'; +my $test_prog = 'undef $!;while(<>){print}; print $!'; my $saved_perlio; BEGIN { |