Changeset 40672 for trunk/psconfig/pscheckmods

Timestamp:

Apr 9, 2019, 9:50:57 AM (7 years ago)

Author:

eugene

Message:

add debug option to pscheckmods

File:

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

trunk/psconfig/pscheckmods

@@ -7 +7 @@
     shift @ARGV;
 }
-if (@ARGV != 2) { die "USAGE: pscheckmods (module) (version)\n"; }
+if (@ARGV > 2 && $ARGV[0] eq "-debug") {
+    $DEBUG = 1;
+    shift @ARGV;
+}
+if (@ARGV != 2) { die "USAGE: pscheckmods [-v] [-debug] (module) (version)\n"; }
 
 if ($VERBOSE) { print STDERR "checking in @INC\n"; }
@@ -45 +49 @@
           print "real: $realfilename\n" if $DEBUG;
           if (-f $realfilename) {
+              print "my filename: $filename\n" if $DEBUG;
               $INC{$filename} = $realfilename;
               print "calling 'do' on $realfilename\n" if $DEBUG;