Change 17354 by jhi@alpha on 2002/06/25 19:20:15
Upgrade to podlators 1.22.
Affected files ...
.... //depot/perl/MANIFEST#913 edit
.... //depot/perl/lib/Pod/Man.pm#33 edit
.... //depot/perl/lib/Pod/Text.pm#33 edit
.... //depot/perl/lib/Pod/t/man.t#2 edit
.... //depot/perl/lib/Pod/t/text.t#1 add
Differences ...
==== //depot/perl/MANIFEST#913 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST#912~17315~ Wed Jun 19 17:03:56 2002
+++ perl/MANIFEST Tue Jun 25 12:20:15 2002
@@ -1388,6 +1388,7 @@
lib/Pod/t/parselink.t podlators test
lib/Pod/t/pod2html-lib.pl pod2html testing library
lib/Pod/t/Select.t See if Pod::Select works
+lib/Pod/t/text.t podlators test
lib/Pod/t/text-errors.t podlators test
lib/Pod/t/Usage.t See if Pod::Usage works
lib/Pod/t/utils.t Test for Pod::ParseUtils
==== //depot/perl/lib/Pod/Man.pm#33 (text) ====
Index: perl/lib/Pod/Man.pm
--- perl/lib/Pod/Man.pm#32~14013~ Wed Jan 2 05:43:58 2002
+++ perl/lib/Pod/Man.pm Tue Jun 25 12:20:15 2002
@@ -1,5 +1,5 @@
# Pod::Man -- Convert POD data to formatted *roff input.
-# $Id: Man.pm,v 1.32 2002/01/02 09:02:24 eagle Exp $
+# $Id: Man.pm,v 1.33 2002/06/23 19:16:21 eagle Exp $
#
# Copyright 1999, 2000, 2001, 2002 by Russ Allbery <[EMAIL PROTECTED]>
#
@@ -38,7 +38,7 @@
# Don't use the CVS revision as the version, since this module is also in Perl
# core and too many things could munge CVS magic revision strings. This
# number should ideally be the same as the CVS revision in podlators, however.
-$VERSION = 1.32;
+$VERSION = 1.33;
##############################################################################
@@ -1012,7 +1012,7 @@
| \$+ [\#^]? \S $index # special ($^Foo, $")
| [\$\@%&*]+ \#? [:\'\w]+ $index # plain var or func
| [\$\@%&*]* [:\'\w]+ (?: -> )? \(\s*[^\s,]\s*\) # 0/1-arg func call
- | [+-]? [\d.]+ (?: [eE] [+-]? \d+ )? # a number
+ | [+-]? ( \d[\d.]* | \.\d+ ) (?: [eE][+-]?\d+ )? # a number
| 0x [a-fA-F\d]+ # a hex constant
)
\s*\z
==== //depot/perl/lib/Pod/Text.pm#33 (text) ====
Index: perl/lib/Pod/Text.pm
--- perl/lib/Pod/Text.pm#32~14013~ Wed Jan 2 05:43:58 2002
+++ perl/lib/Pod/Text.pm Tue Jun 25 12:20:15 2002
@@ -1,7 +1,7 @@
# Pod::Text -- Convert POD data to formatted ASCII text.
-# $Id: Text.pm,v 2.18 2002/01/01 02:40:51 eagle Exp $
+# $Id: Text.pm,v 2.19 2002/06/23 19:16:21 eagle Exp $
#
-# Copyright 1999, 2000, 2001 by Russ Allbery <[EMAIL PROTECTED]>
+# Copyright 1999, 2000, 2001, 2002 by Russ Allbery <[EMAIL PROTECTED]>
#
# This program is free software; you may redistribute it and/or modify it
# under the same terms as Perl itself.
@@ -43,7 +43,7 @@
# Don't use the CVS revision as the version, since this module is also in Perl
# core and too many things could munge CVS magic revision strings. This
# number should ideally be the same as the CVS revision in podlators, however.
-$VERSION = 2.18;
+$VERSION = 2.19;
##############################################################################
@@ -459,7 +459,7 @@
| \$+ [\#^]? \S $index # special ($^Foo, $")
| [\$\@%&*]+ \#? [:\'\w]+ $index # plain var or func
| [\$\@%&*]* [:\'\w]+ (?: -> )? \(\s*[^\s,]\s*\) # 0/1-arg func call
- | [+-]? [\d.]+ (?: [eE] [+-]? \d+ )? # a number
+ | [+-]? ( \d[\d.]* | \.\d+ ) (?: [eE][+-]?\d+ )? # a number
| 0x [a-fA-F\d]+ # a hex constant
)
\s*\z
@@ -821,7 +821,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright 1999, 2000, 2001 by Russ Allbery <[EMAIL PROTECTED]>.
+Copyright 1999, 2000, 2001, 2002 by Russ Allbery <[EMAIL PROTECTED]>.
This program is free software; you may redistribute it and/or modify it
under the same terms as Perl itself.
==== //depot/perl/lib/Pod/t/man.t#2 (text) ====
Index: perl/lib/Pod/t/man.t
--- perl/lib/Pod/t/man.t#1~14013~ Wed Jan 2 05:43:58 2002
+++ perl/lib/Pod/t/man.t Tue Jun 25 12:20:15 2002
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# $Id: man.t,v 1.1 2002/01/02 09:03:28 eagle Exp $
+# $Id: man.t,v 1.2 2002/06/23 19:16:25 eagle Exp $
#
# man.t -- Additional specialized tests for Pod::Man.
#
@@ -17,7 +17,7 @@
}
unshift (@INC, '../blib/lib');
$| = 1;
- print "1..2\n";
+ print "1..3\n";
}
END {
@@ -83,4 +83,14 @@
.SH "\*(C+ NOTES"
.IX Header " NOTES"
Other mentions of \*(C+.
+###
+
+###
+=head1 PERIODS
+
+This C<.> should be quoted.
+###
+.SH "PERIODS"
+.IX Header "PERIODS"
+This \f(CW\*(C`.\*(C'\fR should be quoted.
###
==== //depot/perl/lib/Pod/t/text.t#1 (text) ====
Index: perl/lib/Pod/t/text.t
--- /dev/null Tue May 5 13:32:27 1998
+++ perl/lib/Pod/t/text.t Tue Jun 25 12:20:15 2002
@@ -0,0 +1,79 @@
+#!/usr/bin/perl -w
+# $Id: text.t,v 1.1 2002/06/23 19:16:25 eagle Exp $
+#
+# text.t -- Additional specialized tests for Pod::Text.
+#
+# Copyright 2002 by Russ Allbery <[EMAIL PROTECTED]>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+BEGIN {
+ chdir 't' if -d 't';
+ if ($ENV{PERL_CORE}) {
+ @INC = '../lib';
+ } else {
+ unshift (@INC, '../blib/lib');
+ }
+ unshift (@INC, '../blib/lib');
+ $| = 1;
+ print "1..2\n";
+}
+
+END {
+ print "not ok 1\n" unless $loaded;
+}
+
+use Pod::Text;
+
+$loaded = 1;
+print "ok 1\n";
+
+my $n = 2;
+while (<DATA>) {
+ next until $_ eq "###\n";
+ open (TMP, '> tmp.pod') or die "Cannot create tmp.pod: $!\n";
+ while (<DATA>) {
+ last if $_ eq "###\n";
+ print TMP $_;
+ }
+ close TMP;
+ my $parser = Pod::Text->new or die "Cannot create parser\n";
+ $parser->parse_from_file ('tmp.pod', 'out.tmp');
+ open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
+ my $output;
+ {
+ local $/;
+ $output = <TMP>;
+ }
+ close TMP;
+ unlink ('tmp.pod', 'out.tmp');
+ my $expected = '';
+ while (<DATA>) {
+ last if $_ eq "###\n";
+ $expected .= $_;
+ }
+ if ($output eq $expected) {
+ print "ok $n\n";
+ } else {
+ print "not ok $n\n";
+ print "Expected\n========\n$expected\nOutput\n======\n$output\n";
+ }
+ $n++;
+}
+
+# Below the marker are bits of POD and corresponding expected text output.
+# This is used to test specific features or problems with Pod::Text. The
+# input and output are separated by lines containing only ###.
+
+__DATA__
+
+###
+=head1 PERIODS
+
+This C<.> should be quoted.
+###
+PERIODS
+ This "." should be quoted.
+
+###
End of Patch.
