Skip to content
Snippets Groups Projects
Commit 0fbbc038 authored by Karl Fogel's avatar Karl Fogel
Browse files

Put "(BETA)" in version string, because the recent slew of changes

has only been tested by Melissa and myself.

Untabified, indented everything.
parent 8853cd9c
No related branches found
No related tags found
No related merge requests found
......@@ -6,7 +6,7 @@
### ###
##############################################################
### $Revision$, $Date$, $Author$ ###
### $Revision$ (BETA), $Date$, $Author$ ###
## (C) 1999 Karl Fogel <kfogel@red-bean.com>, under the GNU GPL.
##
......@@ -70,7 +70,7 @@ use File::Basename;
my $Log_Source_Command = "cvs log";
# In case we have to print it out:
my $Version = '$Revision$';
my $Version = '$Revision$ (BETA)';
$Version =~ s/\S+\s+(\S+)\s+\S+/$1/;
## Vars set by options:
......@@ -198,7 +198,7 @@ sub derive_change_log ()
$msg_txt .= $_; # Normally, just accumulate the message...
next;
}
# ... until a msg separator is encountered:
# ... until a msg separator is encountered:
# Insure the message contains something:
if ((! $msg_txt)
|| ($msg_txt =~ /^\s*\.\s*$|^\s*$/)
......@@ -342,10 +342,10 @@ sub parse_date_and_author ()
my $line = shift;
my ($year, $mon, $mday, $hours, $min, $secs, $author) = $line =~
m#(\d+)/(\d+)/(\d+)\s+(\d+):(\d+):(\d+);\s+author:\s+([^;]+);#
or die "Couldn't parse date ``$line''";
m#(\d+)/(\d+)/(\d+)\s+(\d+):(\d+):(\d+);\s+author:\s+([^;]+);#
or die "Couldn't parse date ``$line''";
die "Bad date or Y2K issues" unless ($year > 1969 and $year < 2258);
# Kinda arbitrary, but useful as a sanity check
# Kinda arbitrary, but useful as a sanity check
my $time = timegm($secs,$min,$hours,$mday,$mon-1,$year-1900);
return ($time, $author);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment