skipping some common flags i add accidentally, since summing dir has its own format...
authorChris Koeritz <fred@gruntose.com>
Fri, 24 Apr 2015 23:09:54 +0000 (19:09 -0400)
committerChris Koeritz <fred@gruntose.com>
Fri, 24 Apr 2015 23:09:54 +0000 (19:09 -0400)
scripts/files/summing_dir.pl

index fb32b956b293785ad8e16503bbe9a40ff874d49a..43215cca5bab91f60a253cfc64473ba4da77916a 100644 (file)
@@ -38,12 +38,15 @@ if ($#ARGV < 0) {
 }
 
 foreach $dir (@arg_list) {
+  if ($dir == "-al") { next; }  # skip ls directives.
+  if ($dir == "-l") { next; }  # skip ls directives.
   $chewed_line = $chewed_line . " \"$dir\"";
 }
 
 if ("$chewed_line" eq "") {
-  print "No files matched that path specification.\n";
-  exit 0;
+#  print "No files matched that path specification.\n";
+#  exit 0;
+  $chewed_line = "."
 }
 
 # show the header, now that we know there's something to print.