Mailing List Archive

A full patched perl5.002beta1g.tar.gz now in (the master)

CPAN/src/5.0/

and the separate patches in

CPAN/src/5.0/patches/perl5-porters/5.002beta/

Btw, Tom, there were three minor (=already applied) patch snippets
in your 2b1g. At least funet thought so. :-)

++jhi;

Oops, perl5.002beta1g.tar.gz, not perl5.002b1g.tar.gz.
For hysterical raisins.

++jhi;

things that sneaked out accidentally:

1) the commenting out of the PERL= line in pod/Makefile
2) um, the getline() and getlines() methods in FileHandle,
which weren't supposed to be released. they don't
break anything, but larry doesn't like them.

you can use splitpod by hand if you want to make itty bitty pods
out of perlfunc.pod

--tom

ok, i'll rebuild from 1d + e and f, and see how different it is.

pod2text: Did not handle multiline `letter<text>'
buildtoc,perltoc.pod: Removed `<' in `Larry Wall <<lwall@netlabs.com>'

Unfixed bugs:

* pod2text should split in front of `-' in /\s-\S/, not after it, as it
does with -F*regexp* in perltoc (item Switches).

* pod2text converts C<'STRING'> to `'STRING''. Ugly.
Plain 'STRING' looks better. Or maybe the rule should be
`Dont use C<> on quoted strings'? (perlfunc, perlipc, perlop, perltoc)

* perltoc.pod,perlop.pod: 'STRING', ... qw/STRING/ are not regexp operators.
I suppose they should either be moved to `Quote and Quotelike
Operators' from `Regexp Quotelike Operators' and the latter maybe
renamed to `Regexp Operators', or it could be called `Regexp and
Quotelike Operators' and keep 'STRING' & co.



*** pod/pod2text.orig Thu Dec 21 19:01:16 1995
--- pod/pod2text Thu Dec 21 20:30:36 1995
***************
*** 44,48 ****
unless ($FANCY) {
! s/C<(.*?)>/`$1'/g;
} else {
! s/C<(.*?)>/noremap("E<lchevron>${1}E<rchevron>")/ge;
}
--- 44,48 ----
unless ($FANCY) {
! s/C<(.*?)>/`$1'/sg;
} else {
! s/C<(.*?)>/noremap("E<lchevron>${1}E<rchevron>")/sge;
}
***************
*** 49,53 ****
# s/[IF]<(.*?)>/italic($1)/ge;
! s/I<(.*?)>/*$1*/g;
# s/[CB]<(.*?)>/bold($1)/ge;
! s/X<.*?>//g;
# LREF: a manpage(3f)
--- 49,53 ----
# s/[IF]<(.*?)>/italic($1)/ge;
! s/I<(.*?)>/*$1*/sg;
# s/[CB]<(.*?)>/bold($1)/ge;
! s/X<.*?>//sg;
# LREF: a manpage(3f)
***************
*** 95,99 ****
}
! }gex;

! s/[A-Z]<(.*?)>/$1/g;
}
--- 95,99 ----
}
! }sgex;

! s/[A-Z]<(.*?)>/$1/sg;
}
*** pod/buildtoc.orig Thu Dec 21 19:01:07 1995
--- pod/buildtoc Thu Dec 21 20:31:08 1995
***************
*** 121,123 ****

! Larry Wall E<lt><F<lwall\@netlabs.com>E<gt>, with the help of oodles
of other folks.
--- 121,123 ----

! Larry Wall E<lt>F<lwall\@netlabs.com>E<gt>, with the help of oodles
of other folks.
*** pod/perltoc.pod.orig Thu Dec 21 19:01:14 1995
--- pod/perltoc.pod Thu Dec 21 23:25:20 1995
***************
*** 2779,2781 ****

! Larry Wall E<lt><F<lwall@netlabs.com>E<gt>, with the help of oodles of
other folks.
--- 2779,2781 ----

! Larry Wall E<lt>F<lwall@netlabs.com>E<gt>, with the help of oodles of
other folks.

>* pod2text should split in front of `-' in /\s-\S/, not after it, as it
> does with -F*regexp* in perltoc (item Switches).

That's not really my fault, you know. :-) I'm just using perl's ^<<<
thingie.

>* pod2text converts C<'STRING'> to `'STRING''. Ugly.
> Plain 'STRING' looks better. Or maybe the rule should be
> `Dont use C<> on quoted strings'? (perlfunc, perlipc, perlop, perltoc)

Well, C<string> probbably should go to `string' or to the fancy chevron
thing. But C<'string'> should be left alone or chevronized.

>* perltoc.pod,perlop.pod: 'STRING', ... qw/STRING/ are not regexp operators.

> I suppose they should either be moved to `Quote and Quotelike
> Operators' from `Regexp Quotelike Operators' and the latter maybe
> renamed to `Regexp Operators', or it could be called `Regexp and
> Quotelike Operators' and keep 'STRING' & co.

yes they are under

=item Regexp Quotelike Operators

which probably should be

=item Regexp and Quotelike Operators

which they certainly are. that's actually what it ought to be, but
i haven't hardcopied and seriously proofed it yet.

i think you're the first one to look at pod2text. no one
paid it much attention. i'm thinking of the write interface for
a module. if it were well written, one might be able to do
simply:

#!/usr/bin/perl
# pod2text
use Pod::Text qw(convert);
$/ = '';
while (<>) {
convert($_);
}

or perhaps

#!/usr/bin/perl
# pod2text
use Pod::Text;
while ( $podagraph = Pod::Text->new(\*ARGV ) ) {
print $podagraph->convert();
}

or something like that.

--tom