[Reefknot-cvs-commits] CVS: Date-ICal/lib/Date ICal.pm,1.67,1.68

[Jesse V. <je...@us...>]

Update of /cvsroot/reefknot/Date-ICal/lib/Date
In directory usw-pr-cvs1:/tmp/cvs-serv16983/lib/Date

Modified Files:
	ICal.pm 
Log Message:
Date::ICal->new bitched if you were setting an epoch time and had even
an offset of "0". That's not useful to anyone. it now explicitly checks
to make sure an offset isn't 0 before bitching.


Index: ICal.pm
===================================================================
RCS file: /cvsroot/reefknot/Date-ICal/lib/Date/ICal.pm,v
retrieving revision 1.67
retrieving revision 1.68
diff -B -b -u -r1.67 -r1.68
--- ICal.pm	2001/12/28 02:15:42	1.67
+++ ICal.pm	2002/01/21 19:44:35	1.68
@@ -206,7 +206,9 @@
     bless $self, $class;
 
     if ( exists( $args{offset} ) ) {
-        if ($zflag) {
+        # We should complain if they're trying to set a non-UTC
+        # offset on a time that's inherently UTC.  -jv
+        if ($zflag && ($args{offset} != 0)) {
             carp "Time had conflicting offset and UTC info. Using UTC"
               unless $ENV{HARNESS_ACTIVE};
           } else {