develooper Front page | perl.perl5.porters | Postings from September 2001

Re: Report /pro/3gl/CPAN/perl-current@11794

Thread Previous | Thread Next
From:
H.Merijn Brand
Date:
September 2, 2001 05:03
Subject:
Re: Report /pro/3gl/CPAN/perl-current@11794
Message ID:
20010902135854.7140.H.M.BRAND@hccnet.nl
On Sat 01 Sep 2001 20:34, Arthur Bergman <arthur@contiller.se> wrote:
> > 1. Since Cwd.pm is now an extension module, that may be the reason for the
> > problems on HP-UX 10.20 (is a path properly marked as tainted?).
> 
> No other test fails. I am not sure.
> 
> Another wierd problem is that it only happens under threads!!!

Huh? No:

HP-UX 10.20  stdio/perlio     -Uuseperlio
HP-UX 10.20  stdio/perlio     -DDEBUGGING -Uuseperlio
HP-UX 10.20  stdio/perlio     -Duseperlio
HP-UX 10.20  stdio/perlio     -DDEBUGGING -Duseperlio
HP-UX 10.20  stdio/perlio     -Duseperlio -Duselongdouble
HP-UX 10.20  stdio/perlio     -DDEBUGGING -Duseperlio -Duselongdouble
HP-UX 10.20  stdio/perlio     -Uuseperlio -Dusethreads -Duseithreads
HP-UX 10.20  stdio/perlio     -DDEBUGGING -Uuseperlio -Dusethreads -Duseithreads
HP-UX 10.20  stdio/perlio     -Duseperlio -Dusethreads -Duseithreads
HP-UX 10.20  stdio/perlio     -DDEBUGGING -Duseperlio -Dusethreads -Duseithreads
HP-UX 10.20  stdio/perlio     -Duseperlio -Duselongdouble -Dusethreads -Duseithreads
HP-UX 10.20  stdio/perlio     -DDEBUGGING -Duseperlio -Duselongdouble -Dusethreads -Duseithreads
    lib/File/Find/taint................FAILED at test 29

> Merijn, do you have time to debug this?

As you reply in the answer to the second question, Scalar::Util pass all tests.
lib/File/Find/taint is the *only* failure accross the line of 10.20
configurations.

> Anyone, any idea what could possibly make the return value of cwd not
> tainted under threads on this platform?
> 
> > 2. File::Find uses either an internal function is_tainted_pp() or - if
> > installed - Scalar::Util::tainted() to check if a scalar (path) is tainted. If
> > these functions (most probably Scalar::Util::tainted()) fail on HP-UX 10.20,
> > then the two tests in question will also fail.
> 
> The tests for Scalar::Util::tainted() do not fail :/
> :
> I hope we can solve this,

So do I :)

> otherwise we will have to skip the test and add it to the documentation.

But there's two reasons not to.

1. It used to pass until not so long agon (2 month?)
2. It works perfectly on 11.00

k1:/pro/3gl/CPAN/perl-current/t 115 > perl -T -I../lib ../lib/File/Find/taint.t | wgrep -w5 not
-:   74 ===
# $File::Find::dir => 'fa'
# $_ => 'faa'
not ok 29
# --- symbolic link tests --- 
# check untainting (follow)
-:  139 ===
# $File::Find::dir => 'fa'
# $_ => 'faa'
not ok 45
k1:/pro/3gl/CPAN/perl-current/t 116 > perl harness ../lib/File/Find/taint.t
../lib/File/Find/taint....FAILED tests 29, 45                                
        Failed 2/45 tests, 95.56% okay
Failed Test              Stat Wstat Total Fail  Failed  List of Failed
-----------------------------------------------------------------------------------------------------------------------------------
../lib/File/Find/taint.t               45    2   4.44%  29 45
Failed 1/1 test scripts, 0.00% okay. 2/45 subtests failed, 95.56% okay.
k1:/pro/3gl/CPAN/perl-current/t 117 > 


-- 
H.Merijn Brand    Amsterdam Perl Mongers (http://www.amsterdam.pm.org/)
using perl-5.6.1, 5.7.1 & 623 on HP-UX 10.20 & 11.00, AIX 4.2, AIX 4.3,
     WinNT 4, Win2K pro & WinCE 2.11 often with Tk800.022 &/| DBD-Unify
ftp://ftp.funet.fi/pub/languages/perl/CPAN/authors/id/H/HM/HMBRAND/


Thread Previous | 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