Change 27342 by [EMAIL PROTECTED] on 2006/02/27 14:45:00
Subject: [patch] dumping tied globs without FILENO method on the
debugger fails
From: Salvador Fandino <[EMAIL PROTECTED]>
Date: Sat, 25 Feb 2006 11:14:20 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/dumpvar.pl#24 edit
Differences ...
==== //depot/perl/lib/dumpvar.pl#24 (text) ====
Index: perl/lib/dumpvar.pl
--- perl/lib/dumpvar.pl#23~25130~ 2005-07-12 23:27:48.000000000 -0700
+++ perl/lib/dumpvar.pl 2006-02-27 06:45:00.000000000 -0800
@@ -282,14 +282,14 @@
if ($globPrint) {
$s += 3;
dumpglob($s, "{$$v}", $$v, 1, $m-1);
- } elsif (defined ($fileno = fileno($v))) {
+ } elsif (defined ($fileno = eval {fileno($v)})) {
print( (' ' x ($s+3)) . "FileHandle({$$v}) => fileno($fileno)\n" );
}
} elsif (ref \$v eq 'GLOB') {
# Raw glob (again?)
if ($globPrint) {
dumpglob($s, "{$v}", $v, 1, $m-1) if $globPrint;
- } elsif (defined ($fileno = fileno(\$v))) {
+ } elsif (defined ($fileno = eval {fileno(\$v)})) {
print( (' ' x $s) . "FileHandle({$v}) => fileno($fileno)\n" );
}
}
@@ -368,7 +368,7 @@
unwrap(\%entry,3+$off,$m) ;
print( (' ' x $off) . ")\n" );
}
- if (defined ($fileno = fileno(*entry))) {
+ if (defined ($fileno = eval{fileno(*entry)})) {
print( (' ' x $off) . "FileHandle($key) => fileno($fileno)\n" );
}
if ($all) {
End of Patch.
