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

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@5079 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775

diff --git a/difflast.pl b/difflast.pl
index 1e724c768fb703a8d72d753f630e45584acfd1df..8190566ccb7dd7b0dac76c3599782ca2b05c12e6 100755 (executable)
--- a/difflast.pl
+++ b/difflast.pl
@@ -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`;
     }