Amebis/wxWidgets
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

works for other branches than the main one too

Browse Source 
git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/branches/WX_2_2_BRANCH@7025 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Vadim Zeitlin
2000-04-01 16:34:43 +00:00
parent 101c20d554
commit 67c9a0797c
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
difflast.pl
View File

@@ -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($) sub dec_rev($)
{ {
my $rev = $_[0]; my $rev = $_[0];
# decrement the revision number to get the previos one # decrement the revision number to get the previos one
# (FIXME this is totally bogus, won't work with branches) $rev =~ s/(\d+)$/$1 - 1/e;
my $revlen = length($rev) - rindex($rev, '.') - 1;
my $m = 10**$revlen;
return int($rev) . "." . ($rev*$m - int($rev)*$m - 1) return $rev;
} }
sub get_last_rev($) sub get_last_rev($)
@@ -39,7 +40,7 @@ sub get_last_rev($)
while (<INPUT>) { while (<INPUT>) {
# notice that we shouldn't have '$' followed by 'Id' or cvs will # notice that we shouldn't have '$' followed by 'Id' or cvs will
# substitute it! # 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; open(INPUT, "$CVS -q status $file |") or return 0;
while (<INPUT>) { while (<INPUT>) {
if ( /Working revision:\s+(\d+\.\d+)/ ) { if ( /Working revision:\s+($RE_CVS_REV)/ ) {
return &dec_rev($1); return &dec_rev($1);
} }
} }