Change 29507 by [EMAIL PROTECTED] on 2006/12/11 10:32:47
Subject: [PATCH] Fatal v1.03
From: Jerrad Pierce <[EMAIL PROTECTED]>
Date: Sun, 10 Dec 2006 14:38:18 -0500
Message-Id: <[EMAIL PROTECTED]>
Allow to make fatal built-ins in CORE::GLOBAL
Affected files ...
... //depot/perl/lib/Fatal.pm#13 edit
Differences ...
==== //depot/perl/lib/Fatal.pm#13 (text) ====
Index: perl/lib/Fatal.pm
--- perl/lib/Fatal.pm#12~28040~ 2006-05-01 13:25:17.000000000 -0700
+++ perl/lib/Fatal.pm 2006-12-11 02:32:47.000000000 -0800
@@ -5,7 +5,7 @@
use strict;
our($AUTOLOAD, $Debug, $VERSION);
-$VERSION = 1.04;
+$VERSION = 1.05;
$Debug = 0 unless defined $Debug;
@@ -99,7 +99,8 @@
$sref = \&$sub;
$proto = prototype $sref;
$call = '&$sref';
- } elsif ($sub eq $ini) { # Stray user subroutine
+ } elsif ($sub eq $ini && $sub !~ /^CORE::GLOBAL::/) {
+ # Stray user subroutine
die "$sub is not a Perl subroutine"
} else { # CORE subroutine
$proto = eval { prototype "CORE::$name" };
End of Patch.
