From 734c7f37126dfb8ae378e46a71a7aae194665a99 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Thu, 11 Aug 2005 11:56:26 +0000 Subject: [PATCH] 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 --- lib/Time/Local.t | 7 +++++++ 1 file changed, 7 insertions(+) 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; -- 2.7.4