| Subject: | patch for compilation errors in t/Local.t |
Time-Local-1.09, perl-5.6.1, firecast(linux distro for kiosks)
Attached patch fixes these compilation errors:
perl -c t/Local.t
Not enough arguments for Test::skip at t/Local.t line 103, near ""No fix expected for edge case test for $_ on AIX 4.3") "
Not enough arguments for Test::skip at t/Local.t line 116, near ""Cannot call POSIX::tzset() on this platform\n") "
t/Local.t had compilation errors.
--- Time-Local-1.09.vanilla/t/Local.t 2004-04-07 11:19:24.000000000 -0400
+++ Time-Local-1.09/t/Local.t 2004-04-20 18:44:57.000000000 -0400
@@ -100,8 +100,7 @@
# round trip was broken for edge cases
if ($^O eq "aix" && $Config{osvers} =~ m/^4\.3\./) {
- skip ("No fix expected for edge case test for $_ on AIX 4.3") for qw( timegm ti
-melocal );
+ skip (1,"No fix expected for edge case test for $_ on AIX 4.3") for qw( timegm timelocal );
} else {
ok(sprintf('%x', timegm(gmtime(0x7fffffff))), sprintf('%x', 0x7fffffff),
'0x7fffffff round trip through gmtime then timegm');
@@ -113,7 +112,7 @@
if ($ENV{MAINTAINER}) {
eval { require POSIX; POSIX::tzset() };
if ($@) {
- skip("Cannot call POSIX::tzset() on this platform\n") for 1..3;
+ skip(1,"Cannot call POSIX::tzset() on this platform\n") for 1..3;
}
else {
local $ENV{TZ} = 'Europe/Vienna';