Changeset 42744 for trunk/psconfig/pscheckmods

Timestamp:

Dec 6, 2024, 12:43:47 PM (20 months ago)

Author:

eugene

Message:

add improved debug options to pscheckmods

File:

• trunk/psconfig/pscheckmods (modified) (3 diffs)

trunk/psconfig/pscheckmods

@@ -3 +3 @@
 $DEBUG = 0;
 $VERBOSE = 0;
+if (@ARGV > 2 && $ARGV[0] eq "-v") {
+    $VERBOSE = 1;
+    shift @ARGV;
+}
+if (@ARGV > 2 && $ARGV[0] eq "-debug") {
+    $DEBUG = 1;
+    shift @ARGV;
+}
 if (@ARGV > 2 && $ARGV[0] eq "-v") {
     $VERBOSE = 1;
@@ -55 +63 @@
     my ($realfilename,$result);
   ITER: {
+      my $found = 0;
       foreach $prefix (@INC) {
           $realfilename = "$prefix/$filename";
-          print "real: $realfilename\n" if $DEBUG;
+          print "try: $realfilename\n" if $DEBUG;
           if (-f $realfilename) {
               $INC{$filename} = $realfilename;
@@ -63 +72 @@
               $result = do $realfilename;
               print "result: $result\n" if $DEBUG;
-              last ITER;
+              if (! $DEBUG) { last ITER; }
+              $found = 1;
           }
       }
-      die "Can't find $filename in \@INC";
+      if (!$found) { die "Can't find $filename in \@INC"; }
     }
     if ($@) {