Changeset 12508 for trunk/psconfig/ckmodule.pl

Timestamp:

Mar 19, 2007, 4:39:21 PM (19 years ago)

Author:

eugene

Message:

adding test for perl module version

File:

• trunk/psconfig/ckmodule.pl (modified) (1 diff)

trunk/psconfig/ckmodule.pl

@@ -1 +1 @@
 #!/usr/bin/env perl
 
-if (@ARGV != 1) { die "USAGE: ckmodule.pl\n"; }
+if (@ARGV != 2) { die "USAGE: ckmodule.pl (module) (version)\n"; }
 
 $x = eval "require $ARGV[0]; 1";
-if ($x) { 
-    exit 0;
-} else {
+if (! $x) { 
     exit 1;
 }
 
+# print "\$$ARGV[0]::VERSION\n";
+
+$version = eval "\$$ARGV[0]::VERSION";
+print "$ARGV[0]: $version\n";
+
+if ($ARGV[1] > $version) {
+    print "$ARGV[0] is too old: have $version : need $ARGV[1]\n";
+    exit 1;
+}
+
+exit 0;