From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 24 Oct 2008 21:00:44 +0000 (+0000)
Subject: Upgrade to SelfLoader 1.17.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4975ecc97f5a7eeb6562945448dc3c62a52309d4;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to SelfLoader 1.17.

p4raw-id: //depot/perl@34573
---

diff --git a/lib/SelfLoader.pm b/lib/SelfLoader.pm
index 0288b2b..047f776 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