Change 11083 by jhi@alpha on 2001/07/02 13:19:18
Make #11082 more OS/2-specific.
Affected files ...
... //depot/perl/ext/Time/Piece/Piece.t#3 edit
Differences ...
==== //depot/perl/ext/Time/Piece/Piece.t#3 (text) ====
Index: perl/ext/Time/Piece/Piece.t
--- perl/ext/Time/Piece/Piece.t.~1~ Mon Jul 2 07:30:05 2001
+++ perl/ext/Time/Piece/Piece.t Mon Jul 2 07:30:05 2001
@@ -82,9 +82,14 @@
# In GMT there should be no daylight savings ever.
-my $dst = ( ((CORE::gmtime(0))[8] == -1) ? -1 : 0); # OS/2 EMX bug
-my $dst_mess = ($dst ? ' # skipped: gmtime(0) thinks DST == -1' : '');
-
+my $dst = 0;;
+my $dst_mess = '';
+if ($^O eq 'os2') {
+ # OS/2 EMX bug
+ $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";
End of Patch.
