From: Jan P. <jp...@us...> - 2006-08-25 14:29:39
|
Update of /cvsroot/e-p-i-c/org.epic.debug In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv5654 Modified Files: dumpvar_epic.pm Log Message: Merged from 'stable'. Index: dumpvar_epic.pm =================================================================== RCS file: /cvsroot/e-p-i-c/org.epic.debug/dumpvar_epic.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- dumpvar_epic.pm 10 Aug 2005 13:28:01 -0000 1.4 +++ dumpvar_epic.pm 25 Aug 2006 14:29:35 -0000 1.5 @@ -231,7 +231,7 @@ my @sortKeys = sort keys(%$v) ; $tHashDepth = $#sortKeys ; $tHashDepth = $#sortKeys < $hashDepth-1 ? $#sortKeys : $hashDepth-1 - unless $hashDepth eq '' ; + unless !defined($hashDepth) || $hashDepth eq '' ; if( @sortKeys ){ print buildString("...").$TOKEN_IN} for $key (@sortKeys) { |