X-Git-Url: http://git.pond.sub.org/?p=empserver;a=blobdiff_plain;f=scripts%2Fxdump.pl;h=6c4b9a1fe9d40a3a7157d3afb73bd18408fe1a4e;hp=02741d7b0ba4b0ee0689e01445befb2f6051f4bd;hb=HEAD;hpb=bb467c335df2ac0e4794a8c628681b42937c490d

diff --git a/scripts/xdump.pl b/scripts/xdump.pl
index 02741d7b0..6c4b9a1fe 100755
--- a/scripts/xdump.pl
+++ b/scripts/xdump.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 # xdump example program.
-# Copyright (C) 2006-2014 Markus Armbruster
+# Copyright (C) 2006-2021 Markus Armbruster
 #
 # Empire is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -32,11 +32,11 @@ use Dumpvalue;
 
 # Map table name to meta table reference
 my %meta_by_name = ();
-# Map table uid to meta table reference
+# Map table UID to meta table reference
 my @meta_by_uid = ();
 # Map table name to table reference
 my %table_by_name = ();
-# Map table uid to table reference
+# Map table UID to table reference
 my @table_by_uid = ();
 
 # The meta meta table
@@ -67,7 +67,7 @@ my $dumper = new Dumpvalue;
     # xdump meta table
     $meta_by_name{table} = [];
     parse_xdump(send_cmd('xdump meta table'), undef);
-    # table's first field is record uid, and its table field is the table uid:
+    # table's first field is record UID, and its table field is the table uid:
     my $tuid = $meta_by_name{table}->[0]->{table};
     $meta_by_uid[$tuid] = $meta_by_name{table};
 
@@ -78,7 +78,7 @@ my $dumper = new Dumpvalue;
 
 # complete work for xdump meta meta
 {
-    # find the meta table uid
+    # find the meta table UID
     my ($meta) = grep { defined $_ && $_->{name} eq 'meta' }
 		      @{$table_by_name{table}};
     my $tuid = $meta->{uid};
@@ -91,7 +91,7 @@ my $dumper = new Dumpvalue;
 {
     # lookup record with name => 'type' in meta meta:
     my ($mmt) = grep {$_->{name} eq 'type'} @meta_meta;
-    # its table field is uid of table meta-type:
+    # its table field is UID of table meta-type:
     my $tuid = $mmt->{table};
     # lookup table meta-type's name:
     my $name = $table_by_name{table}->[$tuid]->{name};
@@ -215,7 +215,7 @@ sub eval_fld {
 }
 
 sub has_record_uid {
-    # a table has record uids if the first field's table is the table's uid
+    # a table has record UIDs if the first field's table is the table's UID
     my ($tuid) = @_;
     die unless defined $tuid;
     die unless defined $meta_by_uid[$tuid];