r11891 - in /trunk/libparse-syslog-perl: Changes META.yml debian/changelog lib/Parse/Syslog.pm

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

Author: gregoa-guest
Date: Tue Jan  1 21:11:34 2008
New Revision: 11891

URL: http://svn.debian.org/wsvn/?sc=1&rev=11891
Log:
New upstream release.

Modified:
    trunk/libparse-syslog-perl/Changes
    trunk/libparse-syslog-perl/META.yml
    trunk/libparse-syslog-perl/debian/changelog
    trunk/libparse-syslog-perl/lib/Parse/Syslog.pm

Modified: trunk/libparse-syslog-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libparse-syslog-perl/Changes?rev=11891&op=diff
==============================================================================
--- trunk/libparse-syslog-perl/Changes (original)
+++ trunk/libparse-syslog-perl/Changes Tue Jan  1 21:11:34 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: trunk/libparse-syslog-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libparse-syslog-perl/META.yml?rev=11891&op=diff
==============================================================================
--- trunk/libparse-syslog-perl/META.yml (original)
+++ trunk/libparse-syslog-perl/META.yml Tue Jan  1 21:11:34 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: trunk/libparse-syslog-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libparse-syslog-perl/debian/changelog?rev=11891&op=diff
==============================================================================
--- trunk/libparse-syslog-perl/debian/changelog (original)
+++ trunk/libparse-syslog-perl/debian/changelog Tue Jan  1 21:11:34 2008
@@ -1,5 +1,6 @@
-libparse-syslog-perl (1.09-3) UNRELEASED; urgency=low
+libparse-syslog-perl (1.10-1) UNRELEASED; urgency=low
 
+  * New upstream release.
   * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
     field (source stanza); Homepage field (source stanza). Removed: XS-
     Vcs-Svn fields.

Modified: trunk/libparse-syslog-perl/lib/Parse/Syslog.pm
URL: http://svn.debian.org/wsvn/trunk/libparse-syslog-perl/lib/Parse/Syslog.pm?rev=11891&op=diff
==============================================================================
--- trunk/libparse-syslog-perl/lib/Parse/Syslog.pm (original)
+++ trunk/libparse-syslog-perl/lib/Parse/Syslog.pm Tue Jan  1 21:11:34 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