From: Jan P. <jp...@us...> - 2007-03-13 23:23:47
|
Update of /cvsroot/e-p-i-c/org.epic.debug In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv27756 Modified Files: dumpvar_epic.pm Log Message: Fixed a problem with debugger complaining about 'Undefined subroutine &overload::StrVal' being called. Index: dumpvar_epic.pm =================================================================== RCS file: /cvsroot/e-p-i-c/org.epic.debug/dumpvar_epic.pm,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- dumpvar_epic.pm 25 Feb 2007 20:28:13 -0000 1.10 +++ dumpvar_epic.pm 13 Mar 2007 23:23:39 -0000 1.11 @@ -212,10 +212,10 @@ return _string($str . "") if ref \$str eq 'GLOB'; my $strval = ${overload::}{'StrVal'}; - $str = $strval->($str) + eval { $str = $strval->($str) if ref $str and %overload:: - and defined $strval; + and defined $strval; }; if ($tick eq 'auto') { @@ -282,8 +282,8 @@ { my $val = $v; my $strval = ${overload::}{'StrVal'}; - $val = $strval->($v) - if %overload:: and defined $strval; + eval { $val = $strval->($v) + if %overload:: and defined $strval; }; # Match type and address. # Unblessed references will look like TYPE(0x...) |