Tiny cleanups in sat-graph script.

diff --git a/wme_test/sat_per_packet_size/sat-graph b/wme_test/sat_per_packet_size/sat-graph
index 13ee11bf2725f705c4857a5c3df2e9a3995d72aa..d1bd5a578d385adf1daadb4fd053eb8a79b2bac6 100755 (executable)
--- a/wme_test/sat_per_packet_size/sat-graph
+++ b/wme_test/sat_per_packet_size/sat-graph
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 $pdf_output=1;
-$multiple_graphs=1 if ($ARGV[0] eq "-m");
+$multiple_graphs=1 if ($#ARGV >= 0 && $ARGV[0] eq "-m");
 
 #$Q=$ARGV[0] || "VI";
 
@@ -11,7 +11,7 @@ foreach $Q (("VO", "VI", "BE")) {
     $graph_data_name = "${base_name}graph";
 
     open G, ">$graph_data_name" || die "error opening $graph_data_name";
-    foreach $f (`ls ${base_name}*.dat`) {
+    foreach $f (glob "${base_name}*.dat") {
        open F, $f;
        while (<F>) {
            if (/AC_${Q}/) {