# 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 64 "web_diary_dir/lib/DateTime/Time.pm (autosplit into web_diary_dir/lib/auto/DateTime/Time/SetTime.al)"
sub SetTime ($$;$)
{
    my ($self, $time, $tz) = @_;
    $tz = $ENV{'TZ'} unless defined $tz;    
    my ($min, $sec, $hour, $day, $mon, $year) = gmtime($time+tz_offset($tz));
    $self->Set($year+1900, $mon+1, $day, $hour, $sec, $min);
    $self->time($time);
}

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