# NOTE: Derived from web_diary_dir/lib/DateTime/Time.pm.
# Changes made here will be lost when autosplit again.
# See AutoSplit.pm.
package DateTime::Time;

#line 111 "web_diary_dir/lib/DateTime/Time.pm (autosplit into web_diary_dir/lib/auto/DateTime/Time/GetTime.al)"
################################################################



sub GetTime($;$)
{
    my ($self, $tz) = @_;
    $tz ||= 'GMT';
    if ($self->month < 1 || $self->month > 12){
	die "illegal month: ", $self->month;
    }
    require Time::Local;
    return Time::Local::timegm($self->sec, $self->min, $self->hour,
			       $self->day, $self->month-1, $self->year-1900)-
				   tz_offset($tz);

}

# end of DateTime::Time::GetTime
1;
