Change 11082 by jhi@alpha on 2001/07/02 13:14:36
Subject: [PATCH 5.6.1] OS/2 gmtime()
From: Ilya Zakharevich <[EMAIL PROTECTED]>
Date: Mon, 2 Jul 2001 06:06:34 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Time/Piece/Piece.t#2 edit
Differences ...
==== //depot/perl/ext/Time/Piece/Piece.t#2 (text) ====
Index: perl/ext/Time/Piece/Piece.t
--- perl/ext/Time/Piece/Piece.t.~1~ Mon Jul 2 07:15:06 2001
+++ perl/ext/Time/Piece/Piece.t Mon Jul 2 07:15:06 2001
@@ -82,11 +82,14 @@
# 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->isdst == $dst;
+print "ok 22$dst_mess\n";
-print "not " unless $t->daylight_savings == 0;
-print "ok 23\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";
End of Patch.
