From: Stephan R. <ste...@us...> - 2004-12-17 07:13:40
|
Update of /cvsroot/e-p-i-c/org.epic.debug In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29381 Modified Files: dumpvar_epic.pm Log Message: Index: dumpvar_epic.pm =================================================================== RCS file: /cvsroot/e-p-i-c/org.epic.debug/dumpvar_epic.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- dumpvar_epic.pm 15 Dec 2004 14:24:45 -0000 1.2 +++ dumpvar_epic.pm 17 Dec 2004 07:13:28 -0000 1.3 @@ -389,6 +389,7 @@ local %address; my $off = 0; # It reads better this way my $fileno; + $UnwrapCount =0; if (UNIVERSAL::isa($val,'ARRAY')) { print buildName("$key"); unwrap($val,3+$off,$m) ; @@ -456,7 +457,10 @@ local $TotalStrings = 0; local $Strings = 0; local $CompleteTotal = 0; - while (($key,$val) = each(%stab)) { + # while (($key,$val) = each(%stab)) { + foreach $key (sort keys %stab) + { + $val = $stab{$key}; return if $DB::signal; next if @vars && !grep( matchvar($key, $_), @vars ); if ($usageOnly) { |