From: Steve Hay <SteveHay@planit.com>
Date: Thu, 11 Aug 2005 11:56:26 +0000 (+0000)
Subject: Fix lib/Time/Local.t for bcc32 in non GMT time zones
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=734c7f37126dfb8ae378e46a71a7aae194665a99;p=p5sagit%2Fp5-mst-13.2.git

Fix lib/Time/Local.t for bcc32 in non GMT time zones

See comments at:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2005-08/msg00115.html

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

diff --git a/lib/Time/Local.t b/lib/Time/Local.t
index b2c1215..ed23fca 100755
--- a/lib/Time/Local.t
+++ b/lib/Time/Local.t
@@ -61,6 +61,13 @@ if ($^O eq 'VMS') {
     $neg_epoch_ok = 0; # time_t is unsigned
 }
 
+# Borland compiler sets $neg_epoch_ok differently depending on the
+# current Time Zone in use on the machine, but it should always be
+# set to 0.
+if ($^O eq 'MSWin32' and $Config{ccname} eq 'bcc32') {
+    $neg_epoch_ok = 0;
+}
+
 my $tests = (@time * 12);
 $tests += @neg_time * 12;
 $tests += @bad_time;