AuroraMiddleware/wxWidgets
1
0
Fork 0
Code Issues Pull Requests 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
Show Stats 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
if ( open(INPUT, $file) ) {
while (<INPUT>) {
if ( /\$Id$basename,v (\d+\.\d+)/ ) {
return &dec_rev($1);
# notice that we shouldn't have '$' followed by 'Id' or cvs will
# substitute it!
if ( /\$(Id): $basename,v (\d+\.\d+)/ ) {
return &dec_rev($2);
}
}
}
@ -62,6 +64,9 @@ sub process_file($)
if ( !$revlast ) {
warn "Failed to get the last revision for $file, skipping.\n"
}
elsif ( $revlast =~ "\.0" ) {
warn "No previous revision of the file $file.\n"
}
else {
print `$CVS diff -b -kk -r $revlast $file`;
}