On Thu, Mar 23, 2006 at 02:03:57PM +0100, Rafael Garcia-Suarez wrote:
> Tom Hukins (via RT) wrote:
> > Fatal.pm and readdir() do not play well together.  Run the followi
+ng
> > script in a directory containing several files.  It only prints ou
+t '.'.
> > Then comment out the 'use Fatal' line and run the script again.  I
+t now
> > prints out all the files in the directory.
> > 
> > #!/usr/bin/perl
> > 
> > use strict;
> > use warnings;
> > 
> > use Fatal qw(readdir);
> > 
> > my $start_dir = '.';
> > opendir(my $dir, $start_dir);
> > my [at]subdir = readdir $dir;
> > closedir $dir;
> > print "@subdir\n";
>
[download]