> Index: lib/DateTime/Format/ICal.pm
> ===================================================================
> RCS file:
> /cvsroot/perl-date-time/modules/DateTime-Format-ICal/lib/DateTime/Format/ICal.pm,v
> retrieving revision 1.6
> diff -u -r1.6 ICal.pm
> --- lib/DateTime/Format/ICal.pm 16 Feb 2003 17:23:01 -0000 1.6
> +++ lib/DateTime/Format/ICal.pm 26 Mar 2003 07:28:47 -0000
> @@ -131,6 +131,10 @@
> {
> return 'TZID=' . $tz->name . ':' . $base;
> }
> +
> + my $rdt = $dt->clone;
> + $rdt->set_time_zone( 'UTC' );
> + return $self->format_datetime( $rdt );
> }
I think this is dangerous... asking for -0600 and getting UTC just doesn't seem like
the right thing to do. Sticking a warn/cluck in there would be much better.
-J
--
