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);
  }

Reply via email to