On Wed, Sep 06, 2000 at 09:40:17PM -0700, Russ Allbery wrote:
> It's an argument to the constructor; you should be able to just do:
>
> $parser = Pod::Text->new (quotes => "`'");
> $parser->parse_from_file (...);
In which case - the following patch should do the trick
(here after my signature).
--
Brad Appleton <[EMAIL PROTECTED]> http://www.bradapp.net/
"And miles to go before I sleep." -- Robert Frost
##############################################################
# diff -c t/pod/testp2pt.pl.ORIG t/pod/testp2pt.pl
*** t/pod/testp2pt.pl.ORIG Thu Sep 7 00:24:27 2000
--- t/pod/testp2pt.pl Thu Sep 7 00:23:55 2000
***************
*** 106,112 ****
sub podinc2plaintext( $ $ ) {
my ($infile, $outfile) = @_;
local $_;
! my $text_parser = $MYPKG->new;
$text_parser->parse_from_file($infile, $outfile);
}
--- 106,112 ----
sub podinc2plaintext( $ $ ) {
my ($infile, $outfile) = @_;
local $_;
! my $text_parser = $MYPKG->new(quotes => "`'");
$text_parser->parse_from_file($infile, $outfile);
}