r11889 - in /branches/upstream/libparse-syslog-perl/current: Changes META.yml lib/Parse/Syslog.pm

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Tue Jan  1 21:10:24 2008
New Revision: 11889

URL: http://svn.debian.org/wsvn/?sc=1&rev=11889
Log:
[svn-upgrade] Integrating new upstream version, libparse-syslog-perl (1.10)

Modified:
    branches/upstream/libparse-syslog-perl/current/Changes
    branches/upstream/libparse-syslog-perl/current/META.yml
    branches/upstream/libparse-syslog-perl/current/lib/Parse/Syslog.pm

Modified: branches/upstream/libparse-syslog-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libparse-syslog-perl/current/Changes?rev=11889&op=diff
==============================================================================
--- branches/upstream/libparse-syslog-perl/current/Changes (original)
+++ branches/upstream/libparse-syslog-perl/current/Changes Tue Jan  1 21:10:24 2008
@@ -1,4 +1,9 @@
 Revision history for Perl extension Parse::Syslog.
+
+2007-12-30
+
+     * release 1.10
+     * DST-handling bugfix
 
 2006-01-01
 

Modified: branches/upstream/libparse-syslog-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libparse-syslog-perl/current/META.yml?rev=11889&op=diff
==============================================================================
--- branches/upstream/libparse-syslog-perl/current/META.yml (original)
+++ branches/upstream/libparse-syslog-perl/current/META.yml Tue Jan  1 21:10:24 2008
@@ -1,10 +1,10 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Parse-Syslog
-version:      1.09
+version:      1.10
 version_from: lib/Parse/Syslog.pm
 installdirs:  site
 requires:
 
 distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30_01

Modified: branches/upstream/libparse-syslog-perl/current/lib/Parse/Syslog.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libparse-syslog-perl/current/lib/Parse/Syslog.pm?rev=11889&op=diff
==============================================================================
--- branches/upstream/libparse-syslog-perl/current/lib/Parse/Syslog.pm (original)
+++ branches/upstream/libparse-syslog-perl/current/lib/Parse/Syslog.pm Tue Jan  1 21:10:24 2008
@@ -7,7 +7,7 @@
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '1.09';
+$VERSION = '1.10';
 
 my %months_map = (
     'Jan' => 0, 'Feb' => 1, 'Mar' => 2,
@@ -37,6 +37,14 @@
     # calculate a number out of the day and hour to identify the hour
     $self->{is_dst_switch_last_hour} = $t->[3]<<5+$t->[2];
 
+    # calculating hour+1 (below) is a problem if the hour is 23. as far as I
+    # know, nobody does the DST switch at this time, so just assume it isn't
+    # DST switch if the hour is 23.
+    if($t->[2]==23) {
+        @{$self->{is_dst_switch_result}} = (0, undef);
+        return @{$self->{is_dst_switch_result}};
+    }
+
     # let's see the timestamp in one hour
     # 0: sec, 1: min, 2: h, 3: day, 4: month, 5: year
     my $time_plus_1h = timelocal($t->[0], $t->[1], $t->[2]+1, $t->[3], $t->[4], $t->[5]);
@@ -216,7 +224,7 @@
     }
 
     my $file = $self->{file};
-    line: while(my $str = $self->_next_line) {
+    line: while(defined (my $str = $self->_next_line)) {
         # date, time and host 
         $str =~ /^
             (\S{3})\s+(\d+)      # date  -- 1, 2