Error in File::Find?

[Abe Timmerman]

Hi,

I see this on Alpha (not on VAX!). It makes Test::Smoke on alpha rather hard.

TIMMERMAN:FASOLT$ type fftest.pl
#! perl
use warnings FATAL => 'all';
use strict;

use File::Find;
use Cwd;

my $ddir = 'disk$user_2:[timmerman.fasolt.perl-58x]';
my $cwd = cwd();
chdir $ddir or die "Cannot chdir($ddir): $!";
File::Find::find( sub {
    -d and print "$File::Find::name\n";
}, '.' );
chdir $cwd or die "Cannot chdir($cwd) back: $!";
TIMMERMAN:FASOLT$ perl fftest.pl
.
./x2p
./wince
./wince/include
./wince/include/sys
./wince/include/arpa
./wince/bin
Can't cd to (./) win32: invalid argument
 at fftest.pl line 13
%SYSTEM-F-ABORT, abort

Does anyone know why, or a way around it?

good luck,

Abe
--
Amsterdam Perl Mongers http://amsterdam.pm.org
perl -wl
%_ = reverse (tsuJ=>0, rehtona=>1, lreP=>2, rekcah=>3);
@_ = reverse map { ($_{$_}, $_) } sort keys %_;
$_ = reverse join " ", map $_[$_] => grep $_%2 => 0..$#_; print;