diff options
| author | Max Maischein <corion@corion.net> | 2009-10-05 19:03:19 +0200 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2009-10-05 18:14:00 +0100 |
| commit | 38ec24b4509c45dcd56747fd58a17bbb8960a9a9 (patch) | |
| tree | 42d74e3b84c9e572e2febeab49f1335d46f0c61d /t/porting | |
| parent | 30eb83e14adc33b610414ff28fab0f8316c1fba7 (diff) | |
| download | perl-38ec24b4509c45dcd56747fd58a17bbb8960a9a9.tar.gz | |
Remove :raw open mode from tests
Message-ID: <4ACA2753.4080100@corion.net>
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; |