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

#line 121 "web_diary_dir/lib/DateTime/Date.pm (autosplit into web_diary_dir/lib/auto/DateTime/Date/SetTime.al)"
sub SetTime ($$;$)
{
    my ($self, $time, $tz) = @_;

    require DateTime::Zone;
    $tz = $ENV{'TZ'} || 'GMT' unless defined $tz;
    my ($d, $m, $y) = (gmtime($time + DateTime::Zone::tz_offset($tz)))[3..5];
    $self->Set($y+1900, $m+1, $d);
}

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