[libparse-debianchangelog-perl] 01/02: Merge 0.6 to MAIN

[Intrigeri]

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 <frank at 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