This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Réf. : Re: PATCH proposal for ext/Safe/safe2.t
authorNicholas Clark <nick@ccl4.org>
Thu, 14 Mar 2002 23:05:23 +0000 (23:05 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 15 Mar 2002 02:59:46 +0000 (02:59 +0000)
Message-ID: <20020314230522.GG363@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@15230

ext/Safe/safe2.t

index ddd1943..d967b19 100755 (executable)
@@ -119,10 +119,13 @@ print $@ =~ /foo bar/ ? "ok 29\n" : "not ok 29\n";
 # --- rdo
   
 my $t = 30;
 # --- rdo
   
 my $t = 30;
+$! = 0;
 my $nosuch = '/non/existant/file.name';
 open(NOSUCH, $nosuch);
 if ($@) {
     my $errno  = $!;
 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 {
     $cpt->rdo($nosuch);
     print $! == $errno ? "ok $t\n" : sprintf "not ok $t # \"$!\" is %d (expected %d)\n", $!, $errno; $t++;
 } else {