This is an automated email from the git hooks/post-receive script. intrigeri pushed a commit to tag debian_version_0_6-1 in repository libparse-debianchangelog-perl.
commit 836f5359fa3876226d387e45625456ae9f7b468c Author: Frank Lichtenheld <[email protected]> Date: Wed Aug 3 12:08:28 2005 +0000 Merge 0.6 to MAIN --- lib/Parse/DebianChangelog.pm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/lib/Parse/DebianChangelog.pm b/lib/Parse/DebianChangelog.pm index f74dc57..1734b44 100644 --- a/lib/Parse/DebianChangelog.pm +++ b/lib/Parse/DebianChangelog.pm @@ -97,7 +97,7 @@ use Parse::DebianChangelog::Util qw( :all ); use Parse::DebianChangelog::Entry; our $CLASSNAME = 'Parse::DebianChangelog'; -our $VERSION = 0.5; +our $VERSION = 0.6; =pod @@ -124,13 +124,13 @@ sub init { $config->{verbose} = 1 if $config->{debug}; $self->{config} = $config; + $self->init_filters; + $self->reset_parse_errors; + if ($self->{config}{infile}) { $self->parse; } - $self->init_filters; - $self->reset_parse_errors; - return $self; } @@ -172,7 +172,7 @@ sub _do_parse_error { Returns all error messages from the last L<parse> run. If called in scalar context returns a human readable string represenation. If called in list context returns -a reference to an array of arrays. Each of these arrays contains +an array of arrays. Each of these arrays contains =over 4 @@ -203,7 +203,7 @@ sub get_parse_errors { my ($self) = @_; if (wantarray) { - return [ $self->{errors}{parser} ]; + return @{$self->{errors}{parser}}; } else { my $res = ""; foreach my $e (@{$self->{errors}{parser}}) { @@ -341,9 +341,9 @@ sub parse { } $entry->{'Trailer'} = $_; $entry->{'Maintainer'} = "$1 <$2>" unless $entry->{'Maintainer'}; - unless($entry->{'Date'} && $entry->{'Parsed_Date'}) { + unless($entry->{'Date'} && $entry->{'Timestamp'}) { $entry->{'Date'} = $4; - $entry->{'Parsed_Date'} = str2time($4) + $entry->{'Timestamp'} = str2time($4) or $self->_do_parse_error( $file, $NR, "couldn't parse date $4" ); } $expect = 'next heading or eof'; @@ -707,8 +707,8 @@ sub html { my $last_year; foreach my $entry (@$data) { my $year = $last_year; # try to deal gracefully with unparsable dates - if ($entry->{Parsed_Date}) { - $year = (gmtime($entry->{Parsed_Date}))[5] + 1900; + if ($entry->{Timestamp}) { + $year = (gmtime($entry->{Timestamp}))[5] + 1900; $last_year = $year; } @@ -737,8 +737,8 @@ sub html { $last_year = undef; foreach my $entry (@$data) { my $year = $last_year; # try to deal gracefully with unparsable dates - if ($entry->{Parsed_Date}) { - $year = (gmtime($entry->{Parsed_Date}))[5] + 1900; + if ($entry->{Timestamp}) { + $year = (gmtime($entry->{Timestamp}))[5] + 1900; } $year ||= (($entry->{Date} =~ /\s(\d{4})\s/) ? $1 : (gmtime)[5] + 1900); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libparse-debianchangelog-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
