=cut
use strict;
-use 5.006;
+use 5.009001;
use Carp;
$Carp::Internal{__PACKAGE__.""}++;
-our $VERSION = 1.16;
+our $VERSION = 1.17;
our $DEBUG;
our $VERBOSE;
our $PRETTY;
my $WHOAMI = ref bless []; # nobody's business, prolly not even mine
local $| = 1;
-local $_;
+my $_;
my $standalone;
my(%HTML_2_Troff, %HTML_2_Latin_1, %HTML_2_ASCII_7);
{
print STDERR "FINISHING COMPILATION for $_\n" if $DEBUG;
local $/ = '';
- local $_;
my $header;
my $for_item;
while (<POD_DIAG>) {
$toks[$i] = '[\da-f]+';
}
} elsif( length( $toks[$i] ) ){
- $toks[$i] =~ s/^.*$/\Q$&\E/;
+ $toks[$i] = quotemeta $toks[$i];
$conlen += length( $toks[$i] );
}
}
my $wantspace;
sub splainthis {
return 0 if $TRACEONLY;
- local $_ = shift;
+ $_ = shift;
local $\;
+ local $!;
### &finish_compilation unless %msg;
s/\.?\n+$//;
my $orig = $_;