diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2007-01-13 19:44:53 +0100 |
|---|---|---|
| committer | Gisle Aas <gisle@activestate.com> | 2007-01-30 11:13:51 +0000 |
| commit | c7fb9cc868654c002d9b7fa6bab082e47673296f (patch) | |
| tree | 7c4f0a5c3778853d8fd08bb5eb2b11e07b0c8a30 /t/run | |
| parent | a6ea7cf34722a779b9808bb114d537198b1a1d0d (diff) | |
| download | perl-c7fb9cc868654c002d9b7fa6bab082e47673296f.tar.gz | |
Re: run/cloexec.t is failing
Message-ID: <20070113184453.7cd54bcf@r2d2>
p4raw-id: //depot/perl@30078
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/cloexec.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/run/cloexec.t b/t/run/cloexec.t index 83abd70394..a9da0bd54f 100644 --- a/t/run/cloexec.t +++ b/t/run/cloexec.t @@ -146,7 +146,7 @@ cmp_ok( $parentfd1, '<=', $^F, "parent open fd=$parentfd1 (\$^F=$^F)" ); 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 FHPARENT2 or die "close '$tmpfile2': $!"; 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; |