Index: /trunk/psconfig/pscheckmods
===================================================================
--- /trunk/psconfig/pscheckmods	(revision 42743)
+++ /trunk/psconfig/pscheckmods	(revision 42744)
@@ -3,4 +3,12 @@
 $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,7 +63,8 @@
     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,8 +72,9 @@
 	      $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 ($@) {