summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-07-02 13:19:18 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-07-02 13:19:18 +0000
commit6fbe8946df869c4ec4c3a3638877b93445042402 (patch)
treea5e2f6329e69cea0ceec13a52cf7012187949209
parent92ede6f8b517112be51075c9c1bec1c0da9aa403 (diff)
downloadperl-6fbe8946df869c4ec4c3a3638877b93445042402.tar.gz
Make #11082 more OS/2-specific.
p4raw-id: //depot/perl@11083
-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";