Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fileno can be 0 especially when you run from cpanm with *some* perl

  • Loading branch information...
commit 257c1909a4035f390f503bd24adcd5cf9a4cc7d2 1 parent 6501277
@miyagawa authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  lib/Data/Section/Simple.pm
View
2  lib/Data/Section/Simple.pm
@@ -19,7 +19,7 @@ sub get_data_section {
return $self->get_data_section->{$_[0]};
} else {
my $d = do { no strict 'refs'; \*{$self->{package}."::DATA"} };
- return unless fileno $d;
+ return unless defined fileno $d;
seek $d, 0, 0;
my $content = join '', <$d>;
Please sign in to comment.
Something went wrong with that request. Please try again.