Index: branches/eam_branches/ipp-20120601/psconfig/pscheckmods
===================================================================
--- branches/eam_branches/ipp-20120601/psconfig/pscheckmods	(revision 33995)
+++ branches/eam_branches/ipp-20120601/psconfig/pscheckmods	(revision 34022)
@@ -1,4 +1,5 @@
 #!/usr/bin/env perl
 
+$DEBUG = 1;
 $VERBOSE = 0;
 if (@ARGV > 2 && $ARGV[0] eq "-v") {
@@ -16,5 +17,5 @@
 ## XXX EAM exit 2;
 
-# &detailed_require ($ARGV[0]);
+&detailed_require ($ARGV[0]);
 
 $x = eval "require $ARGV[0]; 1";
@@ -40,5 +41,5 @@
     $filename =~ s|::|/|g;
     $filename = "$filename.pm";
-    # print "$filename\n";
+    print "\ntesting : $filename\n" if $DEBUG;
     if (exists $INC{$filename}) {
 	return 1 if $INC{$filename};
@@ -49,11 +50,10 @@
       foreach $prefix (@INC) {
 	  $realfilename = "$prefix/$filename";
-	  # print "real: $realfilename\n";
+	  print "real: $realfilename\n" if $DEBUG;
 	  if (-f $realfilename) {
 	      $INC{$filename} = $realfilename;
-	      # print "calling 'do' on $realfilename\n";
+	      print "calling 'do' on $realfilename\n" if $DEBUG;
 	      $result = do $realfilename;
-	      # print "result: $result\n";
-	      # exit 4;
+	      print "result: $result\n" if $DEBUG;
 	      last ITER;
 	  }
@@ -61,22 +61,14 @@
       die "Can't find $filename in \@INC";
     }
-    # print "here 1\n";
     if ($@) {
-	# print "here 2\n";
-	# print "$@";
+	print "$@" if $DEBUG;
 	$INC{$filename} = undef;
-	# print "here 2a\n";
-	exit 2;
 	die $@;
     } elsif (!$result) {
-	# print "here 3\n";
-	# print "no result\n";
-	exit 2;
+	print "no result\n" if $DEBUG;
 	delete $INC{$filename};
 	die "$filename did not return true value";
     } else {
-	# print "here 4\n";
-	# print "done with detailed_require\n";
-	exit 2;
+	print "done with detailed_require\n" if $DEBUG;
 	return $result;
     }