From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 2 Jul 2001 06:06:34 +0000 (-0400)
Subject: OS/2 gmtime()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=92ede6f8b517112be51075c9c1bec1c0da9aa403;p=p5sagit%2Fp5-mst-13.2.git

OS/2 gmtime()
Message-ID: <20010702060634.A1356@math.ohio-state.edu>

p4raw-id: //depot/perl@11082
---

diff --git a/ext/Time/Piece/Piece.t b/ext/Time/Piece/Piece.t
index c62e36d..5edf6a6 100644
--- a/ext/Time/Piece/Piece.t
+++ b/ext/Time/Piece/Piece.t
@@ -82,11 +82,14 @@ print "ok 21\n";
 
 # In GMT there should be no daylight savings ever.
 
-print "not " unless $t->isdst == 0;
-print "ok 22\n";
+my $dst = ( ((CORE::gmtime(0))[8] == -1) ? -1 : 0);	# OS/2 EMX bug
+my $dst_mess = ($dst ? ' # skipped: gmtime(0) thinks DST == -1' : '');
 
-print "not " unless $t->daylight_savings == 0;
-print "ok 23\n";
+print "not " unless $t->isdst == $dst;
+print "ok 22$dst_mess\n";
+
+print "not " unless $t->daylight_savings == $dst;
+print "ok 23$dst_mess\n";
 
 print "not " unless $t->hms eq '12:34:56';
 print "ok 24\n";