diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-24 21:00:44 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-24 21:00:44 +0000 |
| commit | 4975ecc97f5a7eeb6562945448dc3c62a52309d4 (patch) | |
| tree | ed9d92a9378c8dba4f90df00d62dfbfe31fb0172 | |
| parent | dfc72f41b0aaceda3480a2bf23c0aba6675f43e9 (diff) | |
| download | perl-4975ecc97f5a7eeb6562945448dc3c62a52309d4.tar.gz | |
Upgrade to SelfLoader 1.17.
p4raw-id: //depot/perl@34573
| -rw-r--r-- | lib/SelfLoader.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/SelfLoader.pm b/lib/SelfLoader.pm index 0288b2bd22..047f7768e8 100644 --- a/lib/SelfLoader.pm +++ b/lib/SelfLoader.pm @@ -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 @@ sub _load_stubs { # 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 |