[E-p-i-c-commits] org.epic.debug dumpvar_epic.pm,1.2,1.3

[Stephan R. <ste...@us...>]

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) {