bug fixes

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@6759 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Vadim Zeitlin 2000-03-16 16:30:14 +00:00
parent 8e3aec856b
commit 9239628cfc

View File

@ -31,7 +31,7 @@ sub get_last_rev($)
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
@ -64,7 +64,7 @@ sub process_file($)
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 {