From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 2 Jul 2001 13:19:18 +0000 (+0000)
Subject: Make #11082 more OS/2-specific.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6fbe8946df869c4ec4c3a3638877b93445042402;p=p5sagit%2Fp5-mst-13.2.git

Make #11082 more OS/2-specific.

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

diff --git a/ext/Time/Piece/Piece.t b/ext/Time/Piece/Piece.t
index 5edf6a6..8e8f601 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";