From 6fbe8946df869c4ec4c3a3638877b93445042402 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 2 Jul 2001 13:19:18 +0000
Subject: Make #11082 more OS/2-specific.

p4raw-id: //depot/perl@11083
---
 ext/Time/Piece/Piece.t | 11 ++++++++---
 1 file 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";
 
-- 
cgit v1.2.1