Index: trunk/psconfig/pscheckmods
===================================================================
--- trunk/psconfig/pscheckmods	(revision 40672)
+++ trunk/psconfig/pscheckmods	(revision 41583)
@@ -7,9 +7,5 @@
     shift @ARGV;
 }
-if (@ARGV > 2 && $ARGV[0] eq "-debug") {
-    $DEBUG = 1;
-    shift @ARGV;
-}
-if (@ARGV != 2) { die "USAGE: pscheckmods [-v] [-debug] (module) (version)\n"; }
+if (@ARGV != 2) { die "USAGE: pscheckmods (module) (version)\n"; }
 
 if ($VERBOSE) { print STDERR "checking in @INC\n"; }
@@ -28,8 +24,22 @@
 print "$ARGV[0]: $version\n";
 
-if ($ARGV[1] > $version) {
+my $requireExact = 0;
+my $myVersion = $ARGV[1];
+if ($myVersion =~ m|^=.|) {
+    $requireExact = 1;
+    $myVersion =~ s|^=||;
+    print "$ARGV[1], $myVersion\n";
+}
+
+if ($myVersion > $version) {
     print "$ARGV[0] is too old: have $version : need $ARGV[1]\n";
     exit 1;
 }
+
+if ($requireExact && ($myVersion != $version)) {
+    print "$ARGV[0] is not the right version: have $version : need $myVersion\n";
+    exit 1;
+}
+
 
 exit 0;
@@ -49,5 +59,4 @@
 	  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;