make-rmg-checklist - Be more helpful about file open/close errors
authorMatthew Horsfall <wolfsage@gmail.com>
Sun, 20 Aug 2017 23:28:29 +0000 (19:28 -0400)
committerMatthew Horsfall <wolfsage@gmail.com>
Sun, 20 Aug 2017 23:28:29 +0000 (19:28 -0400)
Porting/make-rmg-checklist

index e4a810d..8b11ed0 100644 (file)
@@ -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;