diff --git a/cvs2cl.pl b/cvs2cl.pl index f2331bd..d909673 100644 --- a/cvs2cl.pl +++ b/cvs2cl.pl @@ -9,9 +9,9 @@ exec perl -w -x $0 ${1+"$@"} # -*- mode: perl; perl-indent-level: 2; -*- ### ### ############################################################## -## $Revision: 2.58 $ -## $Date: 2004/11/07 15:28:35 $ -## $Author: fluffy $ +## $Revision: 2.59 $ +## $Date: 2005/05/18 05:34:34 $ +## $Author: kfogel $ ## use strict; @@ -143,7 +143,7 @@ use User::pwent qw( getpwnam ); # Globals -------------------------------------------------------------------- # In case we have to print it out: -my $VERSION = '$Revision: 2.58 $'; +my $VERSION = '$Revision: 2.59 $'; $VERSION =~ s/\S+\s+(\S+)\s+\S+/$1/; ## Vars set by options: @@ -1319,9 +1319,9 @@ my $self = shift; my $class = ref $self; while () { if ( ! $passed_first_entry ) { if ( ( ! $started_first_entry ) - and /^(\d\d\d\d-\d\d-\d\d\s+\d\d:\d\d)/ ) { + and /^(\d\d\d\d-\d\d-\d\d\s+(\w+\s+)?\d\d:\d\d)/ ) { $started_first_entry = 1; - } elsif ( /^(\d\d\d\d-\d\d-\d\d\s+\d\d:\d\d)/ ) { + } elsif ( /^(\d\d\d\d-\d\d-\d\d\s+(\w+\s+)?\d\d:\d\d)/ ) { $passed_first_entry = 1; print NEW_LOG $_; } @@ -2393,7 +2393,7 @@ sub maybe_grab_accumulation_date { my $boundary_date; while () { - if (/^(\d\d\d\d-\d\d-\d\d\s+\d\d:\d\d)/) + if (/^(\d\d\d\d-\d\d-\d\d\s+(\w+\s+)?\d\d:\d\d)/) { $boundary_date = "$1"; last; diff --git a/cvs2cl.spec b/cvs2cl.spec index bf40bf9..95c803c 100644 --- a/cvs2cl.spec +++ b/cvs2cl.spec @@ -1,7 +1,6 @@ Name: cvs2cl -Version: 2.58 +Version: 2.59 Release: 2 - Summary: Generate ChangeLogs from CVS working copies Group: Development/Tools @@ -67,7 +66,10 @@ rm -rf $RPM_BUILD_ROOT %changelog -* Fri Apr 7 2005 Michael Schwendt +* Thu May 19 2005 Ville Skyttä - 2.59-2 +- 2.59. + +* Fri Apr 7 2005 Michael Schwendt - 2.58-1 - rebuilt * Sun Jan 16 2005 Marius L. Jøhndal - 0:2.58-1