From: Bram <p5p@perl.wizbit.be>
Date: Sat, 1 Aug 2009 20:11:22 +0000 (+0200)
Subject: undef $! before running the errno tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=958e6d4b516d826d7139a8ead2b1054c5f8b9eda;p=p5sagit%2Fp5-mst-13.2.git

undef $! before running the errno tests
---

diff --git a/t/io/errno.t b/t/io/errno.t
index 6294ed7..ad4e116 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 {