This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: change variable name for clarity
authorKarl Williamson <public@khwilliamson.com>
Sun, 10 Oct 2010 15:36:45 +0000 (09:36 -0600)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 12 Oct 2010 20:52:59 +0000 (13:52 -0700)
I found that 'youngest' was confusing

lib/unicore/mktables

index 3cd8c46..7f214db 100644 (file)
@@ -719,7 +719,7 @@ END
 
 # Stores the most-recently changed file.  If none have changed, can skip the
 # build
-my $youngest = (stat $0)[9];   # Do this before the chdir!
+my $most_recent = (stat $0)[9];   # Do this before the chdir!
 
 # Change directories now, because need to read 'version' early.
 if ($use_directory) {
@@ -13971,12 +13971,12 @@ if ( $verbosity >= $VERBOSE ) {
          "Checking ".scalar( @mktables_list_output_files )." output files.\n";
 }
 
-# We set $youngest to be the most recently changed input file, including this
-# program itself (done much earlier in this file)
+# We set $most_recent to be the most recently changed input file, including
+# this program itself (done much earlier in this file)
 foreach my $in (@input_files) {
     next unless -e $in;        # Keep going even if missing a file
     my $mod_time = (stat $in)[9];
-    $youngest = $mod_time if $mod_time > $youngest;
+    $most_recent = $mod_time if $mod_time > $most_recent;
 
     # See that the input files have distinct names, to warn someone if they
     # are adding a new one
@@ -13991,7 +13991,7 @@ foreach my $in (@input_files) {
 
 my $rebuild = $write_unchanged_files    # Rebuild: if unconditional rebuild
               || ! scalar @mktables_list_output_files  # or if no outputs known
-              || $old_start_time < $youngest;          # or out-of-date
+              || $old_start_time < $most_recent;       # or out-of-date
 
 # Now we check to see if any output files are older than youngest, if
 # they are, we need to continue on, otherwise we can presumably bail.
@@ -14003,9 +14003,9 @@ if (! $rebuild) {
             last;
          }
         #local $to_trace = 1 if main::DEBUG;
-        trace $youngest, (stat $out)[9] if main::DEBUG && $to_trace;
-        if ( (stat $out)[9] <= $youngest ) {
-            #trace "$out:  most recent mod time: ", (stat $out)[9], ", youngest: $youngest\n" if main::DEBUG && $to_trace;
+        trace $most_recent, (stat $out)[9] if main::DEBUG && $to_trace;
+        if ( (stat $out)[9] <= $most_recent ) {
+            #trace "$out:  most recent mod time: ", (stat $out)[9], ", youngest: $most_recent\n" if main::DEBUG && $to_trace;
             print "'$out' is too old.\n" if $verbosity >= $VERBOSE;
             $rebuild = 1;
             last;