summaryrefslogtreecommitdiff
path: root/ext/Time/Piece
diff options
context:
space:
mode:
Diffstat (limited to 'ext/Time/Piece')
-rw-r--r--ext/Time/Piece/Piece.t11
1 files changed, 8 insertions, 3 deletions
diff --git a/ext/Time/Piece/Piece.t b/ext/Time/Piece/Piece.t
index 5edf6a690c..8e8f601f76 100644
--- a/ext/Time/Piece/Piece.t
+++ b/ext/Time/Piece/Piece.t
@@ -82,9 +82,14 @@ print "ok 21\n";
# 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";