Skip Menu |

This queue is for tickets about the Test-Taint CPAN distribution.

Report information
The Basics
Id: 6109
Status: resolved
Priority: 0/
Queue: Test-Taint

People
Owner: Nobody in particular
Requestors: blair [...] orcaware.com
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)



Subject: Test::Taint 1.02 fails make with with perl 5.8.0
Hello, Taint::Test 1.00 passes make test just fine with perl 5.8.0 but Taint::Test 1.02 failes with this error: t/taint...........ok t/taint_deeply....Parentheses missing around "my" list at t/taint_deeply.t line 162. # Looks like your test died before it could output anything. t/taint_deeply....dubious Test returned status 2 (wstat 512, 0x200) DIED. FAILED tests 1-104 Failed 104/104 tests, 0.00% okay t/tainted.........ok t/tainted_ok......ok Failed Test Stat Wstat Total Fail Failed List of Failed ------------------------------------------------------------------------------- t/taint_deeply.t 2 512 104 208 200.00% 1-104 Failed 1/8 test scripts, 87.50% okay. 104/125 subtests failed, 16.80% okay. make: *** [test_dynamic] Error 29 % /opt/i386-linux/installed/perl-5.8.0/bin/perl -V Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration: Platform: osname=linux, osvers=2.4.20-18.9, archname=i686-linux-thread-multi uname='linux orcaware.com 2.4.20-18.9 #1 thu may 29 07:08:16 edt 2003 i686 i686 i386 gnulinux ' config_args='-Dprefix=/opt/i386-linux/installed/perl-5.8.0 -Dcc=/opt/i386-linux/gcc/bin/gcc -Doptimize=-O3 -march=i386 -mtune=i686 -Uinstallusrbinperl -Ulocincpth -Duseshrplib -Dcf_email=blair@orcaware.com -Ui_db -Uversiononly -Ubincompat5005 -Dusethreads -Duseithreads -Dlibpth=/lib /usr/lib -Dlibspath=/lib /usr/lib -Dd_dosuid' hint=recommended, useposix=true, d_sigaction=define usethreads=define use5005threads=undef useithreads=define usemultiplicity=define useperlio=define d_sfio=undef uselargefiles=define usesocks=undef use64bitint=undef use64bitall=undef uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='/opt/i386-linux/gcc/bin/gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm', optimize='-O3 -march=i386 -mtune=i686', cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -I/usr/include/gdbm' ccversion='', gccversion='3.3', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=4, prototype=define Linker and Libraries: ld='/opt/i386-linux/gcc/bin/gcc', ldflags ='' libpth=/lib /usr/lib libs=-lnsl -lgdbm -ldl -lm -lpthread -lc -lcrypt -lutil perllibs=-lnsl -ldl -lm -lpthread -lc -lcrypt -lutil libc=/lib/libc-2.3.2.so, so=so, useshrplib=true, libperl=libperl.so gnulibc_version='2.3.2' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic -Wl,-rpath,/opt/i386-linux/installed/perl-5.8.0/lib/5.8.0/i686-linux-thread-multi/CORE' cccdlflags='-fpic', lddlflags='-shared' Characteristics of this binary (from libperl): Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES PERL_IMPLICIT_CONTEXT Locally applied patches: ActivePerl Build 806 Built under linux Compiled at Jun 25 2003 17:38:15 @INC: /opt/i386-linux/installed/perl-5.8.0/lib/5.8.0/i686-linux-thread-multi /opt/i386-linux/installed/perl-5.8.0/lib/5.8.0 /opt/i386-linux/installed/perl-5.8.0/lib/site_perl/5.8.0/i686-linux-thread-multi /opt/i386-linux/installed/perl-5.8.0/lib/site_perl/5.8.0 /opt/i386-linux/installed/perl-5.8.0/lib/site_perl . Blair
This patch solves the problem. (code extracted from Test::Taint 1.03_01). diff -ru Test-Taint-1.02/t/taint_deeply.t Test-Taint-1.02-patched/t/taint_deeply.t --- Test-Taint-1.02/t/taint_deeply.t 2004-04-23 05:25:58.000000000 +0100 +++ Test-Taint-1.02-patched/t/taint_deeply.t 2004-07-06 04:10:47.000000000 +0100 @@ -159,7 +159,7 @@ TAINT_A_SCALAR_OBJECT: { { package My::ObjectScalar; - sub new { bless \my $scalar, => shift }; + sub new { my $scalar; bless \$scalar => shift }; } my $scalar_object = My::ObjectScalar->new;
This is fixed in 1.03_01 and above.
[PETDANCE - Tue Jul 6 00:11:38 2004]: Show quoted text
> This is fixed in 1.03_01 and above.
Thanks! Blair