diff options
Diffstat (limited to 'lib/Mixin/Linewise/Readers.pm')
-rw-r--r-- | lib/Mixin/Linewise/Readers.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Mixin/Linewise/Readers.pm b/lib/Mixin/Linewise/Readers.pm index 057fa3e..9ac4785 100644 --- a/lib/Mixin/Linewise/Readers.pm +++ b/lib/Mixin/Linewise/Readers.pm @@ -95,7 +95,7 @@ sub _mk_read_file { # Check the file Carp::croak "no filename specified" unless $filename; Carp::croak "file '$filename' does not exist" unless -e $filename; - Carp::croak "'$filename' is not readable" unless -r _; + Carp::croak "'$filename' is not readable" unless -r _ && ! -d _; my $handle = IO::File->new($filename, "<:$binmode") or Carp::croak "couldn't read file '$filename': $!"; |