Change 30078 by [EMAIL PROTECTED] on 2007/01/30 11:13:51
Subject: [PATCH] Re: run/cloexec.t is failing
From: Marcus Holland-Moritz <[EMAIL PROTECTED]>
Date: Sat, 13 Jan 2007 18:44:53 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/run/cloexec.t#3 edit
Differences ...
==== //depot/perl/t/run/cloexec.t#3 (text) ====
Index: perl/t/run/cloexec.t
--- perl/t/run/cloexec.t#2~29212~ 2006-11-06 05:18:25.000000000 -0800
+++ perl/t/run/cloexec.t 2007-01-30 03:13:51.000000000 -0800
@@ -146,7 +146,7 @@
test_inherited($parentfd1);
close FHPARENT1 or die "close '$tmpfile1': $!";
-# ... and test that you cannot inherit fd = $^F+1.
+# ... and test that you cannot inherit fd = $^F+n.
open FHPARENT1, "<$tmpfile1" or die "open '$tmpfile1': $!";
open FHPARENT2, "<$tmpfile2" or die "open '$tmpfile2': $!";
$parentfd2 = fileno FHPARENT2;
@@ -157,7 +157,7 @@
close FHPARENT1 or die "close '$tmpfile1': $!";
# ... and now you can inherit after incrementing.
-++$^F;
+$^F = $parentfd2;
open FHPARENT2, "<$tmpfile2" or die "open '$tmpfile2': $!";
open FHPARENT1, "<$tmpfile1" or die "open '$tmpfile1': $!";
$parentfd1 = fileno FHPARENT1;
End of Patch.
