test for wxLog interaction with wxYield better

[wxWidgets.git] / difflast.pl

diff --git a/difflast.pl b/difflast.pl
index 8190566ccb7dd7b0dac76c3599782ca2b05c12e6..d1473e627aedc6d869276c2644d83d2fefb5827f 100755 (executable)
--- a/difflast.pl
+++ b/difflast.pl
@@ -14,16 +14,17 @@ use strict;
 
 my $CVS = "cvs -z3";    # the cvs command
 
 
 my $CVS = "cvs -z3";    # the cvs command
 

+# the regexp for cvs revision number
+my $RE_CVS_REV = "\\d+(?:\\.\\d+)+";
+

 sub dec_rev($)
 {
     my $rev = $_[0];
 
     # decrement the revision number to get the previos one
 sub dec_rev($)
 {
     my $rev = $_[0];
 
     # decrement the revision number to get the previos one

-    # (FIXME this is totally bogus, won't work with branches)
-    my $revlen = length($rev) - rindex($rev, '.') - 1;
-    my $m = 10**$revlen;
+    $rev =~ s/(\d+)$/$1 - 1/e;

 
 

-    return int($rev) . "." . ($rev*$m - int($rev)*$m - 1)
+    return $rev;

 }
 
 sub get_last_rev($)
 }
 
 sub get_last_rev($)


@@ -31,7 +32,7 @@ sub get_last_rev($)
     my $file = $_[0];
 
     my $basename = $file;
     my $file = $_[0];
 
     my $basename = $file;

-    $basename =~ s@^.*/([^/]\+)@$1@;
+    $basename =~ s@^.*/@@;

 
     # first get the current version: try the Id RCS tag in the file itself
     # first, use "cvs status" if this fails
 
     # first get the current version: try the Id RCS tag in the file itself
     # first, use "cvs status" if this fails


@@ -39,7 +40,7 @@ sub get_last_rev($)
         while (<INPUT>) {
             # notice that we shouldn't have '$' followed by 'Id' or cvs will
             # substitute it!
         while (<INPUT>) {
             # notice that we shouldn't have '$' followed by 'Id' or cvs will
             # substitute it!

-            if ( /\$(Id): $basename,v (\d+\.\d+)/ ) {
+            if ( /\$(Id): $basename,v ($RE_CVS_REV)/ ) {

                 return &dec_rev($2);
             }
         }
                 return &dec_rev($2);
             }
         }


@@ -48,7 +49,7 @@ sub get_last_rev($)
     open(INPUT, "$CVS -q status $file |") or return 0;
 
     while (<INPUT>) {
     open(INPUT, "$CVS -q status $file |") or return 0;
 
     while (<INPUT>) {

-        if ( /Working revision:\s+(\d+\.\d+)/ ) {
+        if ( /Working revision:\s+($RE_CVS_REV)/ ) {

             return &dec_rev($1);
         }
     }
             return &dec_rev($1);
         }
     }


@@ -64,7 +65,7 @@ sub process_file($)
     if ( !$revlast ) {
         warn "Failed to get the last revision for $file, skipping.\n"
     }
     if ( !$revlast ) {
         warn "Failed to get the last revision for $file, skipping.\n"
     }

-    elsif ( $revlast =~ "\.0" ) {
+    elsif ( $revlast =~ '\.0' ) {

         warn "No previous revision of the file $file.\n"
     }
     else {
         warn "No previous revision of the file $file.\n"
     }
     else {