Change 34582 by [EMAIL PROTECTED] on 2008/10/25 09:48:51
Integrate:
[ 34573]
Upgrade to SelfLoader 1.17.
Affected files ...
... //depot/maint-5.10/perl/lib/SelfLoader.pm#4 integrate
Differences ...
==== //depot/maint-5.10/perl/lib/SelfLoader.pm#4 (text) ====
Index: perl/lib/SelfLoader.pm
--- perl/lib/SelfLoader.pm#3~34257~ 2008-09-03 14:46:38.000000000 -0700
+++ perl/lib/SelfLoader.pm 2008-10-25 02:48:51.000000000 -0700
@@ -1,7 +1,7 @@
package SelfLoader;
use 5.008;
use strict;
-our $VERSION = "1.16";
+our $VERSION = "1.17";
# The following bit of eval-magic is necessary to make this work on
# perls < 5.009005.
@@ -99,9 +99,9 @@
# Protect: fork() shares the file pointer between the parent and the kid
if(sysseek($fh, tell($fh), 0)) {
open my $nfh, '<&', $fh or croak "reopen: $!";# dup() the fd
- close $fh or die "close: $1"; # autocloses, but be
paranoid
+ close $fh or die "close: $!"; # autocloses, but be
paranoid
open $fh, '<&', $nfh or croak "reopen2: $!"; # dup() the fd "back"
- close $nfh or die "close after reopen: $1"; # autocloses, but be
paranoid
+ close $nfh or die "close after reopen: $!"; # autocloses, but be
paranoid
}
$Cache{"${currpack}::<DATA"} = 1; # indicate package is cached
End of Patch.
