Changeset 5372

Timestamp:

06/19/09 13:09:44 (3 years ago)

Author:

ryan52

Message:

allow 1.2.3 versions

Location:

trunk/tools

Files:

• release.pl (modified) (1 diff)
• update_version_number.pl (modified) (2 diffs)

trunk/tools/release.pl

@@ -115 +115 @@
     return if $_ !~ /\.pm/;
     my @data = read_file($_);
-    if (my ($line) = grep {$_ =~ /^our \$VERSION\s*=\s*'\d+\.\d\d';/ } @data ) {
+    if (my ($line) = grep {$_ =~ /^our \$VERSION\s*=\s*'\d+\.\d\.?\d';/ } @data ) {
         if ($line !~ /^(our \$VERSION\s*=\s*)'$version';/ ) {
             chomp $line;

trunk/tools/update_version_number.pl

@@ -11 +11 @@
 
 my $version = shift;
-die "Usage: $0 VERSION\n" if not $version or $version !~ /^\d\.\d\d$/;
+die "Usage: $0 VERSION\n" if not $version or $version !~ /^\d\.\d\.?\d$/;
 print "Setting VERSION $version\n";
 
@@ -21 +21 @@
     return if $_ !~ /\.pm/;
     my @data = read_file($_);
-    if (grep {$_ =~ /^our \$VERSION\s*=\s*'\d+\.\d\d';/ } @data ) {
-       my @new = map {$_ =~ s/^(our \$VERSION\s*=\s*)'\d+\.\d\d';/$1'$version';/; $_ } @data;
+    if (grep {$_ =~ /^our \$VERSION\s*=\s*'\d+\.\d\.?\d';/ } @data ) {
+       my @new = map {$_ =~ s/^(our \$VERSION\s*=\s*)'\d+\.\d\.?\d';/$1'$version';/; $_ } @data;
        write_file($_, @new);
     } else {