Re: filetests sometimes do not set _

>>>>> On Wed, 17 Oct 2007 11:02:18 +0200,
Mark Overmeer <markovermeer.net> said:

  > The code which now fails was ran by cpan-testers on
many many
  > systems, without problems in 5.6 and 5.8, but fails
on all 5.10/5.9.5

  > According to the cpantesters results
  > (http:/
/cpantesters.perl.org/show/Mail-Box.html), it looks like
something
  > broke between 5.9.2 and 5.9.5.

Binary search reveals the test fails since 25986

Change 25986 by nicholasnicholas-saigo on
2005/11/04 13:02:42

	ftrwrite, ftrexec, fteread, ftewrite and fteexec can all be
merged
	with Perl_pp_ftrread().

-- 
andreas

On Thu, Oct 18, 2007 at 05:29:36AM +0200, Andreas J. Koenig
wrote:
> >>>>> On Wed, 17 Oct 2007 11:02:18
+0200, Mark Overmeer <markovermeer.net> said:
> 
>   > The code which now fails was ran by cpan-testers
on many many
>   > systems, without problems in 5.6 and 5.8, but
fails on all 5.10/5.9.5
> 
>   > According to the cpantesters results
>   > (http:/
/cpantesters.perl.org/show/Mail-Box.html), it looks like
something
>   > broke between 5.9.2 and 5.9.5.
> 
> Binary search reveals the test fails since 25986
> 
> Change 25986 by nicholasnicholas-saigo on
2005/11/04 13:02:42
> 
> 	ftrwrite, ftrexec, fteread, ftewrite and fteexec can
all be merged
> 	with Perl_pp_ftrread().

Mmm, I'm not sure about this. The script starts failing for
me on 5.8.1

$ cat 46463 
#!/usr/local/bin/perl5.10.0
use filetest 'access';

-d '/etc';
-w '/etc/passwd';
warn -f _ ? "filen" : "directoryn";
warn -d _ ? "directoryn" : "filen";
$ ~/Reference/5.8.0/bin/perl5.8.0 46463 
file
file
$ ~/Reference/5.8.1/bin/perl5.8.1 46463 
directory
directory
$ ~/Reference/5.8.2/bin/perl5.8.2 46463
directory
directory
$ ~/Reference/5.8.3/bin/perl5.8.3 46463
directory
directory
$ ~/Reference/5.8.4/bin/perl5.8.4 46463
directory
directory
$ ~/Reference/5.8.5/bin/perl5.8.5 46463
directory
directory
$ ~/Reference/5.8.6/bin/perl5.8.6 46463
directory
directory
$ ~/Reference/5.8.7/bin/perl5.8.7 46463
directory
directory
$ ~/Reference/5.8.8/bin/perl5.8.8 46463
directory
directory

It's also failing on 5.6.2:

$ /usr/local/perl/5.6.2/bin/perl ~/p4perl/perl/46463
directory
directory

Nicholas Clark