develooper Front page | perl.perl5.porters | Postings from October 2005

[perl #37571] -z FH broken with Borland build [was: Smoke [5.9.3] 25867 FAIL(XF) MSWin32 WinXP/.Net SP2 (x86/2 cpu)]

Thread Next
From:
paul . marquess @ ntlworld . com
Date:
October 31, 2005 07:16
Subject:
[perl #37571] -z FH broken with Borland build [was: Smoke [5.9.3] 25867 FAIL(XF) MSWin32 WinXP/.Net SP2 (x86/2 cpu)]
Message ID:
rt-3.0.11-37571-123681.14.7196018107184@perl.org
# New Ticket Created by  paul.marquess@ntlworld.com 
# Please include the string:  [perl #37571]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=37571 >


[Forgot to CC this to perlbug]

I've tracked the failure in ext/Compress/Zlib/t/22merge.t to an issue with
the '-z' file test operator in the Borland build.

Consider this code

use IO::File;

my $out_file = "abd.txt";
unlink $out_file;


my $fh = new IO::File ">$out_file" 
               or die "# Cannot open $out_file: $!";
                   
close $fh;

$fh = new IO::File "<$out_file" 
               or die "# Cannot open $out_file: $!";
                    
print "exists\n" if -e $fh;                    
print "write\n"  if -w $fh;                                     
print "zero\n"   if -z $fh;  

my @a = stat $fh;
print "stat size $a[7]\n"; 

With the Borland C compiler 5.5.1 I get

   exists
   write
   stat size 0

and with an MS compiler (using the same snapshot) I get the expected

   exists
   write
   zero
   stat size 0

Looks like even though stat could detect that the filehandle referenced an
empty file, there is a problem with '-z'.

Looking at the test harness, I see that t/op/stat.t tests -z with a
filename, but not with a filehandle.

Paul

> -----Original Message-----
> From: Steve Hay [mailto:steve.hay@uk.radan.com]
> Sent: 29 October 2005 11:35
> To: smokers-reports@perl.org
> Cc: perl5-porters@perl.org
> Subject: Smoke [5.9.3] 25867 FAIL(XF) MSWin32 WinXP/.Net SP2 (x86/2 cpu)
> 
> Automated smoke report for 5.9.3 patch 25867
> Mugwump.uk.radan.com:  Intel(R) Pentium(R) 4 CPU 3.40GHz(~3391 MHz) (x86/2
> cpu)
>     on        MSWin32 - WinXP/.Net SP2
>     using     bcc32 version 5.5.1
>     smoketime 11 hours 54 minutes (average 17 minutes 52 seconds)
> 
> Summary: FAIL(XF)
> 
> O = OK  F = Failure(s), extended report at the bottom
> X = Failure(s) under TEST but not under harness
> ? = still running or test results not (yet) available
> Build failures during:       - = unknown or N/A
> c = Configure, m = make, M = make (after miniperl), t = make test-prep
> 
>    25867     Configuration (common) -DCCTYPE=BORLAND -
> DINST_TOP=$(INST_DRV)\Smoke\doesntexist
> ----------- ---------------------------------------------------------
> F F
> O O         -Dusemymalloc
> F F         -Duselargefiles
> F F         -Duselargefiles -Dusemymalloc
> F F         -Duseithreads -Uuseimpsys
> O O         -Duseithreads -Uuseimpsys -Dusemymalloc
> F F         -Duseithreads -Uuseimpsys -Duselargefiles
> F F         -Duseithreads -Uuseimpsys -Duselargefiles -Dusemymalloc
> X O         -Duseithreads
> F F         -Duseithreads -Duselargefiles
> F F         -Accflags='-DPERL_COPY_ON_WRITE'
> O X         -Accflags='-DPERL_COPY_ON_WRITE' -Dusemymalloc
> F F         -Accflags='-DPERL_COPY_ON_WRITE' -Duselargefiles
> F F         -Accflags='-DPERL_COPY_ON_WRITE' -Duselargefiles -Dusemymalloc
> F F         -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -Uuseimpsys
> O O         -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -Uuseimpsys -
> Dusemymalloc
> F F         -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -Uuseimpsys -
> Duselargefiles
> F F         -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -Uuseimpsys -
> Duselargefiles -Dusemymalloc
> O O         -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads
> F F         -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -Duselargefiles
> | +--------- -DDEBUGGING
> +----------- no debugging
> 
> Locally applied patches:
>     DEVEL
> 
> Failures: (common-args) -DCCTYPE=BORLAND -
> DINST_TOP=$(INST_DRV)\Smoke\doesntexist
> [default]
>     ../lib/locale.t.........................FAILED 99-103
> Inconsistent test results (between TEST and harness):
>     ../ext/Compress/Zlib/t/09gziphdr.t......dubious
> 
> [default] -DDEBUGGING
> [default] -Duseithreads -Uuseimpsys
> [default] -DDEBUGGING -Duseithreads -Uuseimpsys
> [default] -Accflags='-DPERL_COPY_ON_WRITE'
> [default] -DDEBUGGING -Accflags='-DPERL_COPY_ON_WRITE'
> [default] -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -Uuseimpsys
> [default] -DDEBUGGING -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -
> Uuseimpsys
>     ../lib/locale.t.........................FAILED 99-103
> 
> [default] -Duselargefiles
> [default] -DDEBUGGING -Duselargefiles
> [default] -DDEBUGGING -Duseithreads -Uuseimpsys -Duselargefiles
> [default] -Accflags='-DPERL_COPY_ON_WRITE' -Duselargefiles
> [default] -DDEBUGGING -Accflags='-DPERL_COPY_ON_WRITE' -Duselargefiles
> [default] -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -Uuseimpsys -
> Duselargefiles
> [default] -DDEBUGGING -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -
> Uuseimpsys -Duselargefiles
>     ../ext/Compress/Zlib/t/22merge.t........FAILED 87-490
>     ../lib/locale.t.........................FAILED 99-103
> 
> [default] -Duselargefiles -Dusemymalloc
> [default] -DDEBUGGING -Duselargefiles -Dusemymalloc
> [default] -Duseithreads -Uuseimpsys -Duselargefiles -Dusemymalloc
> [default] -DDEBUGGING -Duseithreads -Uuseimpsys -Duselargefiles -
> Dusemymalloc
> [default] -Duseithreads -Duselargefiles
> [default] -DDEBUGGING -Duseithreads -Duselargefiles
> [default] -Accflags='-DPERL_COPY_ON_WRITE' -Duselargefiles -Dusemymalloc
> [default] -DDEBUGGING -Accflags='-DPERL_COPY_ON_WRITE' -Duselargefiles -
> Dusemymalloc
> [default] -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -Uuseimpsys -
> Duselargefiles -Dusemymalloc
> [default] -DDEBUGGING -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -
> Uuseimpsys -Duselargefiles -Dusemymalloc
> [default] -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -Duselargefiles
> [default] -DDEBUGGING -Accflags='-DPERL_COPY_ON_WRITE' -Duseithreads -
> Duselargefiles
>     ../ext/Compress/Zlib/t/22merge.t........FAILED 87-490
> 
> [default] -Duseithreads -Uuseimpsys -Duselargefiles
>     ../ext/Compress/Zlib/t/22merge.t........FAILED 87-490
>     ../lib/locale.t.........................FAILED 99-103
> Inconsistent test results (between TEST and harness):
>     ../ext/Compress/Zlib/t/09gziphdr.t......dubious
> 
> [default] -Duseithreads
> Inconsistent test results (between TEST and harness):
>     ../lib/Benchmark.t......................dubious
> 
> [default] -DDEBUGGING -Accflags='-DPERL_COPY_ON_WRITE' -Dusemymalloc
> Inconsistent test results (between TEST and harness):
>     ../ext/Compress/Zlib/t/22merge.t........dubious
>     ../ext/Compress/Zlib/t/09gziphdr.t......dubious
> 
> Compiler messages(bcc32):
> Warning W8019 ..\op.c 4636: Code has no effect in function
> Perl_newCONSTSUB
> Warning W8065 ..\perlio.c 196: Call to function 'perlsio_binmode' with no
> prototype in function PerlIO_binmode
> Warning W8075 win32.c 1248: Suspicious pointer conversion in function
> win32_stat
> Warning W8004 fcrypt.c 348: 'in' is assigned a value that is never used in
> function des_set_key
> Warning W8004 fcrypt.c 505: 'b' is assigned a value that is never used in
> function des_fcrypt
> Warning W8075 .\win32.c 1248: Suspicious pointer conversion in function
> win32_stat
> Warning W8055 .\win32io.c 259: Possible overflow in shift operation in
> function PerlIOWin32_seek
> Warning W8055 .\win32io.c 280: Possible overflow in shift operation in
> function PerlIOWin32_tell
> Warning W8004 .\fcrypt.c 348: 'in' is assigned a value that is never used
> in function des_set_key
> Warning W8004 .\fcrypt.c 505: 'b' is assigned a value that is never used
> in function des_fcrypt
> Warning W8019 byterun.c 1072: Code has no effect in function byterun
> Warning W8008 crc32.c 232: Condition is always true in function crc32
> Warning W8066 crc32.c 242: Unreachable code in function crc32
> Warning W8004 deflate.c 352: 'hash_head' is assigned a value that is never
> used in function deflateSetDictionary
> Warning W8008 deflate.c 1278: Condition is always false in function
> fill_window
> Warning W8066 deflate.c 1279: Unreachable code in function fill_window
> Warning W8004 deflate.c 1669: 'bflush' is assigned a value that is never
> used in function deflate_slow
> Warning W8019 Dumper.xs 573: Code has no effect in function DD_dump
> Warning W8019 Opcode.xs 274: Code has no effect in function
> XS_Opcode__safe_pkg_prep
> Warning W8019 SDBM_File.c 129: Code has no effect in function
> XS_SDBM_File_FETCH
> Warning W8019 SDBM_File.c 136: Code has no effect in function
> XS_SDBM_File_FETCH
> Warning W8019 SDBM_File.c 164: Code has no effect in function
> XS_SDBM_File_STORE
> Warning W8019 SDBM_File.c 168: Code has no effect in function
> XS_SDBM_File_STORE
> Warning W8019 SDBM_File.c 220: Code has no effect in function
> XS_SDBM_File_DELETE
> Warning W8019 SDBM_File.c 251: Code has no effect in function
> XS_SDBM_File_EXISTS
> Warning W8019 SDBM_File.c 283: Code has no effect in function
> XS_SDBM_File_FIRSTKEY
> Warning W8019 SDBM_File.c 308: Code has no effect in function
> XS_SDBM_File_NEXTKEY
> Warning W8019 SDBM_File.c 315: Code has no effect in function
> XS_SDBM_File_NEXTKEY
> Warning W8019 Storable.xs 1815: Code has no effect in function scalar_call
> Warning W8019 Storable.xs 5404: Code has no effect in function
> retrieve_code
> Warning W8019 Storable.xs 5449: Code has no effect in function
> retrieve_code
> Warning W8019 Storable.xs 5849: Code has no effect in function retrieve
> Warning W8019 Storable.xs 5890: Code has no effect in function retrieve
> Warning W8019 APItest.xs 42: Code has no effect in function test_freeent
> Warning W8019 Typemap.xs 87: Code has no effect in function
> XS_XS__Typemap_T_SV
> Warning W8064 Win32.xs 503: Call to function with no prototype in function
> w32_RegisterServer
> Warning W8064 Win32.xs 536: Call to function with no prototype in function
> w32_UnregisterServer
> Warning W8075 .\win32.c 2737: Suspicious pointer conversion in function
> win32_fstat
> Warning W8019 threads.xs 456: Code has no effect in function
> Perl_ithread_create
> Warning W8019 threads.xs 462: Code has no effect in function
> Perl_ithread_create
> Warning W8019 threads.xs 487: Code has no effect in function
> Perl_ithread_create
> Warning W8019 threads.xs 656: Code has no effect in function
> Perl_ithread_join
> Warning W8019 shared.xs 357: Code has no effect in function
> Perl_sharedsv_associate
> Warning W8019 shared.xs 380: Code has no effect in function
> Perl_sharedsv_associate
> Warning W8019 shared.xs 596: Code has no effect in function
> sharedsv_scalar_mg_dup
> Warning W8019 shared.xs 737: Code has no effect in function
> sharedsv_elem_mg_dup
> Warning W8019 shared.xs 806: Code has no effect in function
> sharedsv_array_mg_copy
> Warning W8019 shared.xs 816: Code has no effect in function
> sharedsv_array_mg_dup
> Warning W8019 shared.xs 915: Code has no effect in function
> XS_threads__shared__tie_PUSH
> Warning W8019 shared.xs 935: Code has no effect in function
> XS_threads__shared__tie_UNSHIFT
> Warning W8019 shared.xs 1288: Code has no effect in function
> XS_threads__shared_bless
> Warning W8027 vdir.h 37: Functions containing while are not expanded
> inline
> Warning W8027 vdir.h 47: Functions containing while are not expanded
> inline
> Warning W8027 vdir.h 299: Functions containing switch are not expanded
> inline
> Warning W8027 vdir.h 527: Functions containing switch are not expanded
> inline
> Warning W8079 perlhost.h 616: Mixing pointers to different 'char' types in
> function PerlStdIOGetBase(IPerlStdIO *,FILE *)
> Warning W8079 perlhost.h 649: Mixing pointers to different 'char' types in
> function PerlStdIOGetPtr(IPerlStdIO *,FILE *)
> Warning W8079 perlhost.h 741: Mixing pointers to different 'char' types in
> function PerlStdIOSetPtr(IPerlStdIO *,FILE *,char *)
> 
> --
> Report by Test::Smoke v1.19_72 build 895 running on perl v5.9.3
> (Reporter v0.026 / Smoker v0.026)
> 
> 
> 
> ------------------------------------------------
> Radan Computational Ltd.
> 
> The information contained in this message and any files transmitted with
> it are confidential and intended for the addressee(s) only. If you have
> received this message in error or there are any problems, please notify
> the sender immediately. The unauthorized use, disclosure, copying or
> alteration of this message is strictly forbidden. Note that any views or
> opinions presented in this email are solely those of the author and do not
> necessarily represent those of Radan Computational Ltd. The recipient(s)
> of this message should check it and any attached files for viruses: Radan
> Computational will accept no liability for any damage caused by any virus
> transmitted by this email.


	
	
		
___________________________________________________________ 
Yahoo! Messenger - NEW crystal clear PC to PC calling worldwide with voicemail http://uk.messenger.yahoo.com


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About