thanks perl for not complaining about the erroneous int compare instead of eq for...

diff --git a/scripts/files/summing_dir.pl b/scripts/files/summing_dir.pl
index 43215cca5bab91f60a253cfc64473ba4da77916a..4aa2031cd46b3b0ebe24eba3c5c09427a2345449 100644 (file)
--- a/scripts/files/summing_dir.pl
+++ b/scripts/files/summing_dir.pl
@@ -38,22 +38,19 @@ if ($#ARGV < 0) {
 }
 
 foreach $dir (@arg_list) {
-  if ($dir == "-al") { next; }  # skip ls directives.
-  if ($dir == "-l") { next; }  # skip ls directives.
+  if ($dir eq "-al") { next; }  # skip ls directives.
+  if ($dir eq "-l") { next; }  # skip ls directives.
   $chewed_line = $chewed_line . " \"$dir\"";
 }
 
 if ("$chewed_line" eq "") {
-#  print "No files matched that path specification.\n";
-#  exit 0;
-  $chewed_line = "."
+  print "No files matched that path specification.\n";
+  exit 0;
 }
 
 # show the header, now that we know there's something to print.
 print "[" . $print_list . "]\n\n";
 
-##print "chewed_line is: $chewed_line\n";
-
 local($temp_file)=`mktemp "$TMP/zz_frdsumdir.XXXXXX"`;
 chop($temp_file);
 
@@ -64,8 +61,6 @@ system("ls -HhlF $color_add $chewed_line > $temp_file");
   # the color_add variable, if defined, will have flags for setting the
   # directory listing color scheme.
 
-##print "file is: $temp_file\n";
-
 local($lengths) = 0;
 
 # open the file and process the lines to get file lengths.
@@ -75,7 +70,6 @@ $pattern="^[^ ]+ +[^ ]+ +[^ ]+ +[^ ]+ +([0-9.]+[KMG]?).*\$";
 foreach $file_line (<DIRLIST>) {
   if ($file_line =~ /$pattern/) {
     (local $munged = $file_line) =~ s/$pattern/\1/;
-    #print "munge=$munged\n";
     if ($munged =~ /K$/) {
       chop $munged;
       $munged *= 1024.0;
@@ -97,8 +91,6 @@ foreach $file_line (<DIRLIST>) {
 close(DIRLIST);
 unlink($temp_file);  # clean up.
 
-#print "lens are: $lengths\n";
-
 local($total)=int($lengths);
 local($kbytes)=int($total / 102.4) / 10;
 local($mbytes)=int($kbytes / 102.4) / 10;