In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/5c780defa5eed869f1da17d4b8f4da88606ed674?hp=e792e8c06267200185d8d7239eff4887535aa1ac>
- Log -----------------------------------------------------------------
commit 5c780defa5eed869f1da17d4b8f4da88606ed674
Author: Matthew Horsfall <wolfs...@gmail.com>
Date: Sun Aug 20 19:28:29 2017 -0400
make-rmg-checklist - Be more helpful about file open/close errors
-----------------------------------------------------------------------
Summary of changes:
Porting/make-rmg-checklist | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/Porting/make-rmg-checklist b/Porting/make-rmg-checklist
index e4a810d36f..8b11ed02fc 100644
--- a/Porting/make-rmg-checklist
+++ b/Porting/make-rmg-checklist
@@ -6,13 +6,13 @@ use Getopt::Long qw< :config no_ignore_case >;
sub pod {
my $filename = shift;
- open my $fh, '<', 'Porting/release_managers_guide.pod'
- or die "Cannot open file: $!\n";
+ open my $fh, '<', $filename
+ or die "Cannot open file ($filename): $!\n";
my @lines = <$fh>;
close $fh
- or die "Cannot close file: $!\n";
+ or die "Cannot close file ($filename): $!\n";
return \@lines;
}
@@ -140,7 +140,7 @@ if ($html) {
my $type = _type_from_version($version);
-chomp( my @pod_lines = @{ pod() } );
+chomp( my @pod_lines = @{ pod('Porting/release_managers_guide.pod') } );
my ( @items, $current_element, @leading_attrs );
my $skip_headers = qr/^=encoding/xms;
--
Perl5 Master Repository
