On Mon 09 Jul 2001 19:01, Jarkko Hietaniemi <jhi@iki.fi> wrote: > > 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 > > lib/File/Find/taint................FAILED at test 29 > > ..but on this I'd appreciate some debugging... I'm not into tainting very much, but @11308, after inserting 'system "ls -lR fa" just before the eval of test 29 I got this: ok 28 # check untaint_skip (No follow) total 0 -rw-rw-rw- 1 merijn softwr 0 Jul 12 19:37 fa_ord drwxrwx--- 2 merijn softwr 96 Jul 12 19:37 faa drwxrwx--- 3 merijn softwr 96 Jul 12 19:37 fab lrwxrwxrwx 1 merijn softwr 5 Jul 12 19:37 fsl -> ../fb fa/faa: total 0 -rw-rw-rw- 1 merijn softwr 0 Jul 12 19:37 faa_ord fa/fab: total 0 -rw-rw-rw- 1 merijn softwr 0 Jul 12 19:37 fab_ord drwxrwx--- 2 merijn softwr 96 Jul 12 19:37 faba fa/fab/faba: total 0 -rw-rw-rw- 1 merijn softwr 0 Jul 12 19:37 faba_ord # $File::Find::dir => 'fa' # $_ => '.' # $File::Find::dir => 'fa' # $_ => 'fsl' # $File::Find::dir => 'fa' # $_ => 'fa_ord' # $File::Find::dir => 'fa' # $_ => 'fab' # $File::Find::dir => 'fa' # $_ => 'faa' not ok 29 -- H.Merijn Brand Amsterdam Perl Mongers (http://www.amsterdam.pm.org/) using perl-5.6.1, 5.7.1 & 628 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