[prev in list] [next in list] [prev in thread] [next in thread]
List: perl5-porters
Subject: [perl #37571] -z FH broken with Borland build [was: Smoke [5.9.3] 25867 FAIL(XF) MSWin32 WinXP/.N
From: "paul.marquess () ntlworld ! com (via RT)" <perlbug-followup () perl ! org>
Date: 2005-10-31 14:34:11
Message-ID: rt-3.0.11-37571-123681.14.7196018107184 () perl ! org
[Download RAW message or body]
# 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
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic