[LON-CAPA-cvs] cvs: loncom /debugging_tools dump_db.pl

[raeburn]

raeburn		Mon Jun 29 00:28:38 2026 EDT

  Modified files:              
    /loncom/debugging_tools	dump_db.pl 
  Log:
  - When displaying key => value pairs from a GBDM file, sort by key.
  
  
Index: loncom/debugging_tools/dump_db.pl
diff -u loncom/debugging_tools/dump_db.pl:1.8 loncom/debugging_tools/dump_db.pl:1.9
--- loncom/debugging_tools/dump_db.pl:1.8	Wed Jul 25 17:43:34 2007
+++ loncom/debugging_tools/dump_db.pl	Mon Jun 29 00:28:38 2026
@@ -4,7 +4,7 @@
 #
 # dump_db.pl - dump a GDBM database to standard output, unescaping if asked to.
 #
-# $Id: dump_db.pl,v 1.8 2007/07/25 17:43:34 albertel Exp $
+# $Id: dump_db.pl,v 1.9 2026/06/29 00:28:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -87,7 +87,8 @@
         warn "Unable to tie to $fname";
         next;
     }
-    while (my ($key,$value) = each(%$dbref)) {
+    foreach my $key (sort(keys(%{$dbref}))) {
+        my $value = $dbref->{$key};
         if ($value =~ s/^__FROZEN__//) {
             $value = thaw(&unescape($value));
         }