Changeset 21497 for branches/ipp-magic-v0/psconfig/pscheckperl

Timestamp:

Feb 15, 2009, 5:13:24 PM (17 years ago)

Author:

welling

Message:

Improved way of picking out a default tag for selection of appropriate
tagset.

File:

• branches/ipp-magic-v0/psconfig/pscheckperl (modified) (2 diffs)

branches/ipp-magic-v0/psconfig/pscheckperl

@@ -1 +1 @@
 #!/usr/bin/env perl
+
+# Get the CVS tag
+$cvsNameString= '$Name: not supported by cvs2svn $';
+if ( $cvsNameString =~ /\$Name: not supported by cvs2svn $/ ) {
+    $cvsTag = $1;
+} 
+else { die "ERROR: cannot parse CVS tag string\n"; }
+# Strip off release version number if present
+if ( $cvsTag =~ /^(.+)\-\d*$/ ) {
+    $cvsTag = $1;
+}
 
 $tagsets = "tagsets";
@@ -32 +43 @@
 
 if ( @ARGV == 0) { 
-    @list = <$tagsets/*.perl>;
-    $file = $list[-1];
+    $defaultversion=$cvsTag;
+    $file="$tagsets/$defaultversion.perl";
 } else {
     $file = "$tagsets/$ARGV[0].perl";