Archive::Tar, TK failures for 5.8.0RC1 on Win32

alien_life_form has asked for the wisdom of the Perl Monks concerning the following question:

Greetings,

I have built 5.8.RC1 on my wintel NTSP6 box (smooth)

I am now trying to reapply the bundle of what is already installed on my good ole 5.6.1 - and this is not going very smoothly. Until now I have been unable to build Archive::Tar and Tk (surely others will pop up).

Archive::Tar errors like this:

D:\home\alf\.cpan58\build\Archive-Tar-0.22>nmake test

...
cp Tar.pm blib\lib\Archive\Tar.pm
        D:\perl58\bin\perl.exe -MExtUtils::Command -e cp ptar blib\scr
+ipt\ptar
        pl2bat.bat blib\script\ptar
        D:\perl58\bin\perl.exe "-Iblib\lib" "-Iblib\arch" test.pl
1..10
ok 1
ok 2
ok 3
Can't call method "gzwrite" on an undefined value at blib\lib/Archive/
+Tar.pm line 493.
NMAKE : fatal error U1077: 'D:\perl58\bin\perl.exe' : return code '0xf
+f'
Stop.
[download]

The error is related to this line:

    $fh = Compress::Zlib::gzdopen_ ($fh, $mode, 0)
        or &_drat;
[download]

I tried to change it thusly:

    $fh = Compress::Zlib::gzdopen_ (fileno($fh),$mode,0)
        or &_drat;
[download]

Which solves the problem in test 4 and 5, only to fail on test 6:

ok 5
Can't call method "gzseek" on an undefined value at blib\lib/Archive/T
+ar.pm line 846.
[download]

The reason for this failure is deeper however and I cannot comprehend it, also because it appears to be time-dependent: if I step through the code with the debugger quickly the failure appears rooted at the line:

    sysseek ($_[0], 0, 0)
    or goto &_drat;
[download]

which 'drats', while if I debug more slowly i can get to the end of the test (which prints not ok 6) and the situation unravels later on;

Tk gets a straight compile failure:

        cl -c  -I.. -I../pTk/mTk/xlib  -nologo -Gf -W3 -MD -DNDEBUG -O
+1 -DWIN32
-D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPER
+L_IMPLICIT
_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX -MD -DNDEBUG -O1    -DVERSION=
+\"800.024\
"  -DXS_VERSION=\"800.024\"  "-ID:\perl58\lib\CORE"    Xlib.c
Xlib.c
..\pTk/tkWinPort.h(135) : error C2143: syntax error : missing ')' befo
+re '('
..\pTk/tkWinPort.h(135) : error C2143: syntax error : missing ')' befo
+re '('
..\pTk/tkWinPort.h(135) : error C2091: function returns function
..\pTk/tkWinPort.h(135) : error C2091: function returns function
..\pTk/tkWinPort.h(135) : error C2146: syntax error :missing ')' befor
+e identifier 'Perl_get_context'
NMAKE : fatal error U1077: 'cl' : return code '0x2'
[download]

Google does not really help here so - opinions? Ideas?
TIA & Cheers,
alf

You can't have everything: where would you put it?

Comment on Archive::Tar, TK failures for 5.8.0RC1 on Win32 Select or Download Code

Replies are listed 'Best First'.
Re: Archive::Tar, TK failures for 5.8.0RC1 on Win32 by csotzing (Sexton) on Jul 09, 2002 at 15:46 UTC
I came across the same problem while building Archive::Tar on Win2K, Visual Studio 6. I fixed the same line in _get_handle, but as: `$fh = Compress::Zlib::gzopen ($fh, $mode) or &_drat;` [download] (since gzopen will actually call gzdopen for file handles) This brought me to the same place as you, failing on test 6. At this point, the dummy.tar file is produced--though it should really be named dummy.tar.gz. I was successfully able to unzip and view it in WinZip. BUT, after looking at the code for Tar.pm... it appears the error is that some subs allow you to specify a $compress flag, while others don't. The result (as I believe) is that get_content doesn't tell _get_handle that the file is compressed. So, _get_handle returns undef, which breaks the code. I looked on CPAN, and noticed that this module is only in its alpha stages though--so I guess you can just wait and hope that the beta is better. :-) print(map(lc(chr),split(6,qw/99672682673683684689632658645641610607/)));	[reply] [d/l]

Replies are listed 'Best First'.

Re: Archive::Tar, TK failures for 5.8.0RC1 on Win32
by csotzing (Sexton) on Jul 09, 2002 at 15:46 UTC

    $fh = Compress::Zlib::gzopen ($fh, $mode)
        or &_drat;
[download]

[reply]
[d/l]