This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix lib/Time/Local.t for bcc32 in non GMT time zones
[perl5.git]
/
lib
/
Time
/
Local.t
diff --git
a/lib/Time/Local.t
b/lib/Time/Local.t
index
b2c1215
..
ed23fca
100755
(executable)
--- 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
}
$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;
my $tests = (@time * 12);
$tests += @neg_time * 12;
$tests += @bad_time;