Changeset 5374

Timestamp:

06/19/09 13:14:46 (3 years ago)

Author:

ryan52

Message:

allow the revision argument to start with an r, recent versions of subversion allow this

File:

• trunk/tools/release.pl (modified) (1 diff)

trunk/tools/release.pl

@@ -26 +26 @@
 my ($rev, $version, $tag) = @ARGV;
 die "Usage: $0 REV VERSION [--tag]\n"
-    if not $version or $version !~ /^\d\.\d\.?\d$/ or $rev !~ /^\d+$/;
+    if not $version or $version !~ /^\d\.\d\.?\d$/ or $rev !~ /^r?\d+$/;
 
 my $start_dir = Cwd::cwd();