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

has only been tested by Melissa and myself.

Untabified, indented everything.

cvs2cl.pl

@@ -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);