bug fixes

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

diff --git a/difflast.pl b/difflast.pl
index 8190566ccb7dd7b0dac76c3599782ca2b05c12e6..33aecea66aa79d56a118494ca71b9a0666fd65ec 100755 (executable)
--- a/difflast.pl
+++ b/difflast.pl
@@ -31,7 +31,7 @@ sub get_last_rev($)
     my $file = $_[0];
 
     my $basename = $file;
     my $file = $_[0];
 
     my $basename = $file;

-    $basename =~ s@^.*/([^/]\+)@$1@;
+    $basename =~ s@^.*/@@;

 
     # first get the current version: try the Id RCS tag in the file itself
     # first, use "cvs status" if this fails
 
     # first get the current version: try the Id RCS tag in the file itself
     # first, use "cvs status" if this fails


@@ -64,7 +64,7 @@ sub process_file($)
     if ( !$revlast ) {
         warn "Failed to get the last revision for $file, skipping.\n"
     }
     if ( !$revlast ) {
         warn "Failed to get the last revision for $file, skipping.\n"
     }

-    elsif ( $revlast =~ "\.0" ) {
+    elsif ( $revlast =~ '\.0' ) {

         warn "No previous revision of the file $file.\n"
     }
     else {
         warn "No previous revision of the file $file.\n"
     }
     else {