Change 15230 by jhi@alpha on 2002/03/15 02:59:46
Subject: Re: R�f. : Re: PATCH proposal for ext/Safe/safe2.t
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Thu, 14 Mar 2002 23:05:23 +0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/ext/Safe/safe2.t#4 edit
Differences ...
==== //depot/perl/ext/Safe/safe2.t#4 (xtext) ====
Index: perl/ext/Safe/safe2.t
--- perl/ext/Safe/safe2.t.~1~ Thu Mar 14 20:15:05 2002
+++ perl/ext/Safe/safe2.t Thu Mar 14 20:15:05 2002
@@ -119,10 +119,13 @@
# --- rdo
my $t = 30;
+$! = 0;
my $nosuch = '/non/existant/file.name';
open(NOSUCH, $nosuch);
if ($@) {
my $errno = $!;
+ die "Eek! Attempting to open $nosuch failed, but \$! is still 0" unless $!;
+ $! = 0;
$cpt->rdo($nosuch);
print $! == $errno ? "ok $t\n" : sprintf "not ok $t # \"$!\" is %d (expected
%d)\n", $!, $errno; $t++;
} else {
End of Patch.
