From c7d68b4b70d2244007a5f28c9f4d8aa79a8f9ed5 Mon Sep 17 00:00:00 2001
From: Vadim Zeitlin <vadim@wxwidgets.org>
Date: Thu, 23 Dec 1999 15:40:18 +0000
Subject: [PATCH 1/1] 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
---
 difflast.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/difflast.pl b/difflast.pl
index 1e724c768f..8190566ccb 100755
--- 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`;
     }
-- 
2.45.2