From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 15 Jul 1998 05:15:16 +0000 (+0000)
Subject: fix warning from CGI::Carp
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9014bb8ee6d755e3124b996a99c8559d4b3f73cd;p=p5sagit%2Fp5-mst-13.2.git

fix warning from CGI::Carp

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

diff --git a/lib/CGI/Carp.pm b/lib/CGI/Carp.pm
index 9b67d76..e20f754 100644
--- a/lib/CGI/Carp.pm
+++ b/lib/CGI/Carp.pm
@@ -178,7 +178,7 @@ use Carp;
 
 $main::SIG{__WARN__}=\&CGI::Carp::warn;
 $main::SIG{__DIE__}=\&CGI::Carp::die;
-$CGI::Carp::VERSION = '1.10';
+$CGI::Carp::VERSION = '1.101';
 $CGI::Carp::CUSTOM_MSG = undef;
 
 # fancy import routine detects and handles 'errorWrap' specially.
@@ -194,8 +194,9 @@ sub import {
 }
 
 # These are the originals
-sub realwarn { warn(@_); }
-sub realdie { die(@_); }
+# XXX Why not just use CORE::die etc., instead of these two?  GSAR
+sub realwarn { CORE::warn(@_); }
+sub realdie { CORE::die(@_); }
 
 sub id {
     my $level = shift;
@@ -268,7 +269,7 @@ EOF
 sub carpout {
     my($in) = @_;
     my($no) = fileno(to_filehandle($in));
-    die "Invalid filehandle $in\n" unless defined $no;
+    realdie "Invalid filehandle $in\n" unless defined $no;
     
     open(SAVEERR, ">&STDERR");
     open(STDERR, ">&$no") or