diff options
| author | Laurent Dami <dami@cpan.org> | 2011-10-23 13:23:44 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-23 13:49:38 -0700 |
| commit | 6b1b4e01b8b5b173718fc914c1e0bf69bbf9df09 (patch) | |
| tree | 0bf809bb4e1c3eb69a0ba3f8e5dfc6386f1741d8 /lib/dumpvar.pl | |
| parent | 029caa339c2d70b0f1cbe8cf8b0a20a2f42373bc (diff) | |
| download | perl-6b1b4e01b8b5b173718fc914c1e0bf69bbf9df09.tar.gz | |
Examining objects through the 'x' command in the perl debugger doesn't
work if those objects are blessed into class names containing '='.
This is due to incorrect parsing through 'split' in dumpvar.pl line 165.
Diffstat (limited to 'lib/dumpvar.pl')
| -rw-r--r-- | lib/dumpvar.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/dumpvar.pl b/lib/dumpvar.pl index 523bda815c..1c782dda4a 100644 --- a/lib/dumpvar.pl +++ b/lib/dumpvar.pl @@ -165,8 +165,7 @@ sub unwrap { # Match type and address. # Unblessed references will look like TYPE(0x...) # Blessed references will look like Class=TYPE(0x...) - ($start_part, $val) = split /=/,$val; - $val = $start_part unless defined $val; + $val =~ s/^.*=//; # suppress the Class part, just keep TYPE(0x...) ($item_type, $address) = $val =~ /([^\(]+) # Keep stuff that's # not an open paren |