p4raw-id: //depot/perl@11091
# In GMT there should be no daylight savings ever.
-my $dst = 0;;
+my $dst = 0;
my $dst_mess = '';
if ($^O eq 'os2') {
# OS/2 EMX bug
- $dst = CORE::gmtime(0))[8];
+ $dst = (CORE::gmtime(0))[8];
$dst_mess = ' # skipped: gmtime(0) thinks DST gmtime 0 == -1';
-
}
print "not " unless $t->isdst == $dst;
print "ok 22$dst_mess\n";