diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 13:19:18 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 13:19:18 +0000 |
commit | 6fbe8946df869c4ec4c3a3638877b93445042402 (patch) | |
tree | a5e2f6329e69cea0ceec13a52cf7012187949209 | |
parent | 92ede6f8b517112be51075c9c1bec1c0da9aa403 (diff) | |
download | perl-6fbe8946df869c4ec4c3a3638877b93445042402.tar.gz |
Make #11082 more OS/2-specific.
p4raw-id: //depot/perl@11083
-rw-r--r-- | ext/Time/Piece/Piece.t | 11 |
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"; |