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

oops... problem with in Perl source - got mangled by cvs

Browse Source 
git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@5079 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Vadim Zeitlin
1999-12-23 15:40:18 +00:00
parent 35e20db0ee
commit c7d68b4b70
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
difflast.pl
View File

@@ -37,8 +37,10 @@ sub get_last_rev($)
# first, use "cvs status" if this fails # first, use "cvs status" if this fails
if ( open(INPUT, $file) ) { if ( open(INPUT, $file) ) {
while (<INPUT>) { while (<INPUT>) {
if ( /\$Id$basename,v (\d+\.\d+)/ ) { # notice that we shouldn't have '$' followed by 'Id' or cvs will
return &dec_rev($1); # substitute it!
if ( /\$(Id): $basename,v (\d+\.\d+)/ ) {
return &dec_rev($2);
} }
} }
} }
@@ -62,6 +64,9 @@ sub process_file($)
if ( !$revlast ) { if ( !$revlast ) {
warn "Failed to get the last revision for $file, skipping.\n" warn "Failed to get the last revision for $file, skipping.\n"
} }
elsif ( $revlast =~ "\.0" ) {
warn "No previous revision of the file $file.\n"
}
else { else {
print `$CVS diff -b -kk -r $revlast $file`; print `$CVS diff -b -kk -r $revlast $file`;
} }