Changeset 41583 for trunk/psconfig/pscheckmods

Timestamp:

May 15, 2021, 8:39:19 AM (5 years ago)

Author:

eugene

Message:

add option to require exact version match

File:

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

trunk/psconfig/pscheckmods

@@ -7 +7 @@
     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 +24 @@
 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 +59 @@
           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;