Index: trunk/psconfig/pscheckmods
===================================================================
--- trunk/psconfig/pscheckmods	(revision 31162)
+++ trunk/psconfig/pscheckmods	(revision 34087)
@@ -1,4 +1,5 @@
 #!/usr/bin/env perl
 
+$DEBUG = 0;
 $VERBOSE = 0;
 if (@ARGV > 2 && $ARGV[0] eq "-v") {
@@ -10,5 +11,5 @@
 if ($VERBOSE) { print STDERR "checking in @INC\n"; }
 
-# &detailed_require ($ARGV[0]);
+if ($DEBUG) { &detailed_require ($ARGV[0]);}
 
 $x = eval "require $ARGV[0]; 1";
@@ -18,5 +19,5 @@
     &detailed_require ($ARGV[0]);
 }
-if ($VERBOSE) { print "x: $x\n"; }
+if ($VERBOSE) { print "result of require: $x\n"; }
 
 $version = eval "\$$ARGV[0]::VERSION";
@@ -34,8 +35,7 @@
     $filename =~ s|::|/|g;
     $filename = "$filename.pm";
-    print "$filename\n";
+    print "\ntesting : $filename\n" if $DEBUG;
     if (exists $INC{$filename}) {
 	return 1 if $INC{$filename};
-	die "Compilation failed in require";
     }
     my ($realfilename,$result);
@@ -43,8 +43,10 @@
       foreach $prefix (@INC) {
 	  $realfilename = "$prefix/$filename";
-	  print "$realfilename\n";
+	  print "real: $realfilename\n" if $DEBUG;
 	  if (-f $realfilename) {
 	      $INC{$filename} = $realfilename;
+	      print "calling 'do' on $realfilename\n" if $DEBUG;
 	      $result = do $realfilename;
+	      print "result: $result\n" if $DEBUG;
 	      last ITER;
 	  }
@@ -53,10 +55,13 @@
     }
     if ($@) {
+	print "$@" if $DEBUG;
 	$INC{$filename} = undef;
 	die $@;
     } elsif (!$result) {
+	print "no result\n" if $DEBUG;
 	delete $INC{$filename};
 	die "$filename did not return true value";
     } else {
+	print "done with detailed_require\n" if $DEBUG;
 	return $result;
     }