[perl.git] branch blead, updated. v5.27.2-150-g5c780defa5

[Matthew Horsfall]

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