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;
print "# $codefn\n";
- open my $codefh, "<:raw", $codefn
+ open my $codefh, "<", $codefn
or die "Can't open $codefn: $!";
my $listed_as;