OK, time to give up.
I went back to "basics" and the directory does not appear as a directory
to perl. I also tried perl 5.22 just in case.
Time to give in for now. Thanks for all the suggestions.
Simple test script:
Code:
--------------------
#!/usr/bin/perl
use utf8;
BEGIN {
push @INC, 'C:\Users\...\slimserver-public-7.9\CPAN';
};
opendir(DIR, ".") || die;
my @contents = readdir(DIR);
closedir DIR;
foreach (@contents) {
print "$_\n";
}
use File::Next;
my $iter = File::Next::everything( "." );
while (my $file = $iter->()) {
next unless -d $file;
print "$file\n";
}
use File::Find;
find(\&wanted, ".");
sub wanted
{
return unless -d $_;
print "$File::Find::name\n";
}
--------------------
------------------------------------------------------------------------
Peter Galbavy's Profile: http://forums.slimdevices.com/member.php?userid=32718
View this thread: http://forums.slimdevices.com/showthread.php?t=105502
_______________________________________________
beta mailing list
[email protected]
http://lists.slimdevices.com/mailman/listinfo/beta
