#!/usr/bin/perl -w
use strict;
-use vars qw($Quiet);
use File::Spec;
use FindBin;
use Text::Wrap;
use Getopt::Long;
+our $Quiet;
no locale;
# Assumption is that we're either already being run from the top level (*nix,
sub podset {
my ($pod, $file) = @_;
- open my $fh, '<', $file or my_die "Can't open file '$file' for $pod: $!";
+ open my $fh, '<:raw', $file or my_die "Can't open file '$file' for $pod: $!";
local *_;
my $found_pod;