diff options
Diffstat (limited to 't/porting')
| -rw-r--r-- | t/porting/diag.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/porting/diag.t b/t/porting/diag.t index a9db20c3a3..907c7f964c 100644 --- a/t/porting/diag.t +++ b/t/porting/diag.t @@ -6,7 +6,7 @@ $|=1; my $make_exceptions_list = ($ARGV[0]||'') eq '--make-exceptions-list'; -open my $diagfh, "<:raw", "../pod/perldiag.pod" +open my $diagfh, "<", "../pod/perldiag.pod" or die "Can't open ../pod/perldiag.pod: $!"; my %entries; @@ -46,7 +46,7 @@ sub check_file { print "# $codefn\n"; - open my $codefh, "<:raw", $codefn + open my $codefh, "<", $codefn or die "Can't open $codefn: $!"; my $listed_as; |