Date: | Wed, 28 Nov 2001 17:14:47 -0500 |
From: | Jesse <jesse [...] fsck.com> |
To: | bug-date-iso [...] rt.cpan.org |
Subject: | Date::ISO doesn't deal properly with offsets not being passed |
here's a patch which fixes this, against Date::ISO 1.25.
--- Date-ISO-1.25/lib/Date/ISO.pm Mon Nov 26 21:44:43 2001
+++ Date-ISO-1.25.new//lib/Date/ISO.pm Wed Nov 28 17:09:48 2001
@@ -105,7 +105,7 @@
$self = $class->SUPER::new( year => $1,
month => $2, day => $3, hour => 0,
- min => 0, sec => 0, offset => $args{offset} );
+ min => 0, sec => 0, offset => $offset );
}
# 199702 format
@@ -113,7 +113,7 @@
$self = $class->SUPER::new( year => $1, month => $2,
day => 1, hour => 0, min => 0, sec => 0,
- offset => $args{offset} );
+ offset => $offset );
}
# 1997-W06-2, 1997W062,, 1997-06-2, 1997062, 1996-06, 1997W06 formats
@@ -126,7 +126,7 @@
$self = $class->SUPER::new( year => $year, month => $month,
day => $day, hour => 0, min => 0, sec => 0,
- offset => $args{offset} );
+ offset => $offset );
# Don't know what the format was
}
--
jesse reed vincent -- root@eruditorum.org -- jesse@fsck.com
70EBAC90: 2A07 FC22 7DB4 42C1 9D71 0108 41A3 3FB3 70EB AC90
There are no supercomputer applications that are solvable that cannot be solved
in finite time using a fucking TRS-80 with approprite disk/tape drives. Zero.
-Tanj