perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Stas Bekman <s...@stason.org>
Subject Re: [mp2] t/apr-ext/finfo and t/apr-ext/perlio failures on Linux
Date Sat, 04 Dec 2004 16:16:07 GMT
Markus Wichitill wrote:
> Stas Bekman wrote:
> 
>> Bizarre, I had this problem with 5.6.1 and traced it to Cwd. Upgrading 
>> took the problem away.
>>
>> Please apply
>>
>> Index: t/apr-ext/finfo.t
>> ===================================================================
>> --- t/apr-ext/finfo.t   (revision 109799)
>> +++ t/apr-ext/finfo.t   (working copy)
>> @@ -1,5 +1,10 @@
>>  #!perl -T
>>
>> +BEGIN {
>> +    use Carp;
>> +    $SIG{__DIE__} = \&Carp::confess;
>> +}
>> +
>>  use strict;
>>  use warnings FATAL => 'all';
>>  use Apache::Test;
>>
>> and run the tests again to find the guilty module for finfo
> 
> 
> t/apr-ext/finfo....Insecure dependency in require while running with -T 
> switch at /usr/src/modperl-2.0/t/lib/TestAPRlib/finfo.pm line 24.
>  at /usr/src/modperl-2.0/t/lib/TestAPRlib/finfo.pm line 24
>   TestAPRlib::finfo::BEGIN() called at 
> /usr/src/modperl-2.0/t/lib/TestAPRlib/finfo.pm line 24

There is nothing on line 24 in that file. besides 'use APR::Const', but 2 
lines earlier. Try to add:

1;
__END__

and slide it from the top down in that file to see where the error kicks in.

>> I see that the second test reports the problem more detailed:
>>
>>   Insecure dependency in mkdir while running with -T switch at
>>     /usr/local/perl/lib/File/Path.pm line 159. dubious
>>
>> that sucks, but still apply the same thing (or simply put it in t/TEST 
>> once)
> 
> 
> Putting it in t/TEST doesn't work.

right, sorry, it doesn't affect the tests.

> Insecure dependency in mkdir while running with -T switch at 
> /usr/local/perl/lib/File/Path.pm line 159.
>  at /usr/local/perl/lib/File/Path.pm line 159
>   File::Path::mkpath('/usr/src/modperl-2.0/t/htdocs/perlio-ext', 0, 493) 
> called at /usr/src/modperl-2.0/blib/lib/Apache/TestUtil.pm line 250

Strange, can you reproduce it outside the script?

perl -T -MFile::Path -le 'File::Path::mkpath("/tmp/xxx", 0, 0755)'

-- 
__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message