diff options
Diffstat (limited to 'cpan/CPANPLUS-Dist-Build/lib/CPANPLUS/Dist/Build.pm')
-rw-r--r-- | cpan/CPANPLUS-Dist-Build/lib/CPANPLUS/Dist/Build.pm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/cpan/CPANPLUS-Dist-Build/lib/CPANPLUS/Dist/Build.pm b/cpan/CPANPLUS-Dist-Build/lib/CPANPLUS/Dist/Build.pm index 2bb5070815..0f27639cda 100644 --- a/cpan/CPANPLUS-Dist-Build/lib/CPANPLUS/Dist/Build.pm +++ b/cpan/CPANPLUS-Dist-Build/lib/CPANPLUS/Dist/Build.pm @@ -30,7 +30,7 @@ use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext'; local $Params::Check::VERBOSE = 1; -$VERSION = '0.44'; +$VERSION = '0.46'; =pod @@ -403,19 +403,19 @@ sub _find_prereqs { } } - else { - my $file = File::Spec->catfile( $dir, '_build', 'prereqs' ); - return unless -f $file; - my $fh = FileHandle->new(); + my $file = File::Spec->catfile( $dir, '_build', 'prereqs' ); + return unless -f $file; - unless( $fh->open( $file ) ) { - error( loc( "Cannot open '%1': %2", $file, $! ) ); - return; - } - - $content = do { local $/; <$fh> }; + my $fh = FileHandle->new(); + + unless( $fh->open( $file ) ) { + error( loc( "Cannot open '%1': %2", $file, $! ) ); + return; } + + $content = do { local $/; <$fh> }; + } return unless $content; |