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 <fr...@lichtenheld.de>
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
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to