diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2006-12-13 10:32:22 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-18 11:47:56 +0000 |
| commit | 295d5f02f7120b75c639212780c96fcd67ffb3d6 (patch) | |
| tree | a44f8e16930764c93d17f0f7918f6353d84862e0 /lib | |
| parent | 2563cec55ae473562ff3ccda41cd10289db419be (diff) | |
| download | perl-295d5f02f7120b75c639212780c96fcd67ffb3d6.tar.gz | |
Fixes for the test suite on OS/2
Message-ID: <20061214023222.GA29084@powdermilk.math.berkeley.edu>
p4raw-id: //depot/perl@29578
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/t/eu_command.t | 1 | ||||
| -rwxr-xr-x | lib/Time/Local.t | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lib/ExtUtils/t/eu_command.t b/lib/ExtUtils/t/eu_command.t index f8199cdf62..2d2fdbae22 100644 --- a/lib/ExtUtils/t/eu_command.t +++ b/lib/ExtUtils/t/eu_command.t @@ -263,6 +263,7 @@ BEGIN { { { local @ARGV = 'd2utest'; mkpath; } open(FILE, '>d2utest/foo'); + binmode(FILE); print FILE "stuff\015\012and thing\015\012"; close FILE; diff --git a/lib/Time/Local.t b/lib/Time/Local.t index a6120e8da2..2ccea67fde 100755 --- a/lib/Time/Local.t +++ b/lib/Time/Local.t @@ -55,7 +55,8 @@ my @neg_time = # Use 3 days before the start of the epoch because with Borland on # Win32 it will work for -3600 _if_ your time zone is +01:00 (or # greater). -my $neg_epoch_ok = defined ((localtime(-259200))[0]) ? 1 : 0; +my $neg_epoch_ok = # take into account systems with unsigned time too + (defined ((localtime(-259200))[0]) and (localtime(-259200))[5] == 69) ? 1 : 0; # use vmsish 'time' makes for oddness around the Unix epoch if ($^O eq 'VMS') { |