Skip to content
Browse files

Fixes from new Perl::Critic policies.

  • Loading branch information...
1 parent 681a9a7 commit 8f30897dfe5f8af5a7d2b2b6e7e956bebb47d31d @rjray committed Aug 12, 2011
Showing with 3 additions and 3 deletions.
  1. +3 −3 etc/make_method
View
6 etc/make_method
@@ -310,20 +310,20 @@ sub read_from_opts
sub read_external
{
my $file = shift;
- my ($fh, $tmp);
+ my ($fh, $content);
if (! open $fh, '<', $file)
{
croak "Cannot open file $file for reading: $!, stopped";
}
else
{
- $tmp = do { local $/ = undef; <$fh> };
+ $content = do { local $/ = undef; <$fh> };
close $fh or
croak "Error closing $file: $!, stopped";
}
- return \$tmp;
+ return \$content;
}
###############################################################################

0 comments on commit 8f30897

Please sign in to comment.
Something went wrong with that request. Please try again.