--- FileSystemObjects/File-orig.pm 2006-01-19 12:50:28.000000000 +0100 +++ FileSystemObjects/File.pm 2006-01-19 13:29:06.000000000 +0100 @@ -60,17 +60,18 @@ croak "Can't stat a non existant file" unless -e $self->full_path; - return &stat($self->full_path); + return CORE::stat($self->full_path); } #documented: synopsis sub stath { my $self = shift; - my @stat = &stat($self->full_path); croak "Can't stat a non existant file" unless -e $self->full_path; + my @stat = CORE::stat($self->full_path); + return map { $stat_names[$_] => $stat[$_] } (0..12); }