Op een mooie zomerdag (Saturday 06 August 2005 00:12),schreef Paul Marquess:
> This is mostly VMS fixes. Standalone version has just been uploaded to
> CPAN.
>
> Could someone on please try building & testing 1.36 on VMS using the CPAN
> release please?
$mms test
(cleaned up output)
t/01version..... ok
t/02zlib........ ok
t/03examples.... FAILED tests 8-13
Failed 6/13 tests, 53.85% okay
t/04encoding.... ok
t/05gzsetp...... ok
t/06gzdopen.....
Can't call method "gzwrite" on an undefined value at t/06gzdopen.t line 66.
%C-F-EINVAL, invalid argument
dubious
Test returned status 3506356 (wstat 1024, 0x400)
(VMS status is 3506356)
DIED. FAILED tests 3-23
Failed 21/23 tests, 8.70% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/03examples.t 13 6 46.15% 8-13
t/06gzdopen.t 350 1024 23 41 178.26% 3-23
Failed 2/6 test scripts, 66.67% okay. 27/302 subtests failed, 91.06% okay.
%C-F-EINVAL, invalid argument
%MMS-F-ABORT, For target TEST_DYNAMIC, CLI returned abort status: %X003580B4.
-C-F-EINVAL, invalid argument
The C<$Inc> code in t/03examples.t is still not right (attached patch fixes
that):
$ perl -"Mblib" [.t]03examples.t
1..13
not ok 1
# Failed test at line 119
not ok 2
# Failed test at line 120
not ok 3
# Failed test at line 130
not ok 4
# Failed test at line 132
not ok 5
# Failed test at line 150
not ok 6
# Failed test at line 151
Can't locate Compress/Zlib.pm in @INC (@INC contains: perl_root:
[lib.VMS_AXP.5_8
_6] perl_root:[lib] perl_root:[lib.site_perl.VMS_AXP] perl_root:
[lib.site_perl]
/perl_root/lib/site_perl .) at ./examples/filtdef line 6.
BEGIN failed--compilation aborted at ./examples/filtdef line 6.
%SYSTEM-W-NOSUCHFILE, no such file
Running the failing test(10) from the command line shows:
(The "define/user sys$*put ..." are a VMS way for shell's < and > redirection)
$ type hello1.gz
hello
this is
a test
message
x ttttt
xuuuuuu
the end
$ define/user sys$input hello1.gz
$ define/user sys$output hello2.gz
$ perl -"Mblib" [.examples]gzstream
Cannot open stdout: invalid argument
%C-F-EINVAL, invalid argument
That means gzopen() failes :-(
Same goes for t/06gzdopen.t. I'm afraid I can't help here as know no C and
nothing about the OpenVMS CRTL.
Patch also adds better cleanup of tempfiles and checked on OS X, Win32, VMS.
HTH +
Good luck,
Abe
--
N-IS> Hmm - those block comments all look similar to me!
They sure do look alike-- but I didn't feel that ambitious. Someone else may.
-- Jarkko Hietaniemi on p5p @ 2002-10-24
diff -ru CZ136orig/t/03examples.t CZ136/t/03examples.t
--- CZ136orig/t/03examples.t Fri Aug 5 23:40:27 2005
+++ CZ136/t/03examples.t Sat Aug 6 11:31:52 2005
@@ -40,18 +40,7 @@
}
-my $Inc = '' ;
-#if ($^O eq 'VMS') {
-# $Inc = '-"I[.blib.lib]" -"I[.blib.arch]"';
-#}
-if ($^O eq 'MSWin32') {
- foreach (@INC)
- { $Inc .= qq["-I$_" ]}
-}
-else {
- foreach (@INC)
- { $Inc .= "-I$_ " }
-}
+my $Inc = join " ", map qq["-I$_"] => @INC;
my $Perl = '' ;
$Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
@@ -170,5 +159,6 @@
ok(13, $b eq $hello1 ) ;
}
-
-unlink $file1, $file2, $stderr ;
+END {
+ for ($file1, $file2, $stderr) { 1 while unlink $_ } ;
+}
diff -ru CZ136orig/t/03examples.t CZ136/t/03examples.t
--- CZ136orig/t/03examples.t Fri Aug 5 23:40:27 2005
+++ CZ136/t/03examples.t Sat Aug 6 11:31:52 2005
@@ -40,18 +40,7 @@
}
-my $Inc = '' ;
-#if ($^O eq 'VMS') {
-# $Inc = '-"I[.blib.lib]" -"I[.blib.arch]"';
-#}
-if ($^O eq 'MSWin32') {
- foreach (@INC)
- { $Inc .= qq["-I$_" ]}
-}
-else {
- foreach (@INC)
- { $Inc .= "-I$_ " }
-}
+my $Inc = join " ", map qq["-I$_"] => @INC;
my $Perl = '' ;
$Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
@@ -170,5 +159,6 @@
ok(13, $b eq $hello1 ) ;
}
-
-unlink $file1, $file2, $stderr ;
+END {
+ for ($file1, $file2, $stderr) { 1 while unlink $_ } ;
+}
