12 lines
366 B
Perl
12 lines
366 B
Perl
|
--- CGI/Carp.pm.orig Sat Apr 5 03:12:02 1997
|
||
|
|
+++ CGI/Carp.pm Fri Apr 19 18:54:00 2002
|
||
|
|
@@ -218,7 +218,7 @@
|
||
|
|
my($handle) = $in=~/[':]/ ? $in : "$package\:\:$in";
|
||
|
|
$no = fileno($handle);
|
||
|
|
}
|
||
|
|
- die "Invalid filehandle $in\n" unless $no;
|
||
|
|
+ CORE::die "Invalid filehandle $in\n" unless $no;
|
||
|
|
|
||
|
|
open(SAVEERR, ">&STDERR");
|
||
|
|
open(STDERR, ">&$no") or
|