Import perl-5.32.1

OK sthen@

28 files changed, 583 insertions, 0 deletions

diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/overstrike/tag-width b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/overstrike/tag-width
new file mode 100644
index 00000000000..d12b16be8e0
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/overstrike/tag-width
@@ -0,0 +1,35 @@
+[name]
+Tag width with formatting
+
+[input]
+=head1 TAG WIDTH
+
+=over 10
+
+=item 12345678
+
+A
+
+=item B<12345678>
+
+B
+
+=item 1Z<>
+
+C
+
+=item B<1>
+
+D
+
+=back
+
+[output]
+TTAAGG  WWIIDDTTHH
+    12345678  A
+
+    1122334455667788  B
+
+    1         C
+
+    11         D
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/overstrike/wrapping b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/overstrike/wrapping
new file mode 100644
index 00000000000..93405f7c8ce
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/overstrike/wrapping
@@ -0,0 +1,11 @@
+[name]
+Wrapping
+
+[input]
+=head1 WRAPPING
+
+B<I<Do>> I<B<not>> B<I<include>> B<I<formatting codes when>> B<I<wrapping>>.
+
+[output]
+WWRRAAPPPPIINNGG
+    DDoo _n_o_t iinncclluuddee ffoorrmmaattttiinngg  ccooddeess  wwhheenn wwrraappppiinngg.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/termcap/term-unknown b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/termcap/term-unknown
new file mode 100644
index 00000000000..2f060774337
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/termcap/term-unknown
@@ -0,0 +1,13 @@
+[name]
+Rendering with unknown terminal type
+
+[input]
+=head1 UNKNOWN
+
+An unknown I<terminal type> B<should> C<suppress> all termcap-based
+formatting and still wrap successfully.
+
+[output]
+UNKNOWN
+    An unknown terminal type should "suppress" all termcap-based formatting
+    and still wrap successfully.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/alt b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/alt
new file mode 100644
index 00000000000..9f4e9b73ab0
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/alt
@@ -0,0 +1,38 @@
+[name]
+Alternate output
+
+[options]
+alt 1
+
+[input]
+=head1 SAMPLE
+
+=over 4
+
+=item F
+
+Paragraph.
+
+=item Bar
+
+=item B
+
+Paragraph.
+
+=item Longer
+
+Paragraph.
+
+=back
+
+[output]
+
+==== SAMPLE ====
+
+:   F   Paragraph.
+
+:   Bar
+:   B   Paragraph.
+
+:   Longer
+        Paragraph.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/c-with-spaces b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/c-with-spaces
new file mode 100644
index 00000000000..466e95e385c
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/c-with-spaces
@@ -0,0 +1,11 @@
+[name]
+C<> with spaces
+
+[input]
+=head1 CE<lt>E<gt> WITH SPACES
+
+What does C<<  this.  >> end up looking like?
+
+[output]
+C<> WITH SPACES
+    What does "this." end up looking like?
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/code b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/code
new file mode 100644
index 00000000000..89c06bb43e3
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/code
@@ -0,0 +1,33 @@
+[name]
+code option
+
+[options]
+code 1
+
+[input]
+This is some random text.
+This is more random text.
+
+This is some random text.
+This is more random text.
+
+=head1 SAMPLE
+
+This is POD.
+
+=cut
+
+This is more random text.
+
+[output]
+This is some random text.
+This is more random text.
+
+This is some random text.
+This is more random text.
+
+SAMPLE
+    This is POD.
+
+
+This is more random text.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/empty b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/empty
new file mode 100644
index 00000000000..307e36d2934
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/empty
@@ -0,0 +1,7 @@
+[name]
+Empty document
+
+[input]
+=pod
+
+[output]
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-die b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-die
new file mode 100644
index 00000000000..ab4a493bd56
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-die
@@ -0,0 +1,25 @@
+[name]
+Errors throw exceptions
+
+[options]
+errors die
+
+[input]
+=over 4
+
+=item Foo
+
+Bar.
+
+=head1 NEXT
+
+[output]
+    Foo Bar.
+
+NEXT
+
+[errors]
+Pod input around line 7: You forgot a '=back' before '=head1'
+
+[exception]
+POD document had syntax errors
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-none b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-none
new file mode 100644
index 00000000000..b0fa47b5991
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-none
@@ -0,0 +1,19 @@
+[name]
+Suppress errors
+
+[options]
+errors none
+
+[input]
+=over 4
+
+=item Foo
+
+Bar.
+
+=head1 NEXT
+
+[output]
+    Foo Bar.
+
+NEXT
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-normal b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-normal
new file mode 100644
index 00000000000..b99111661ad
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-normal
@@ -0,0 +1,22 @@
+[name]
+Normal error handling
+
+[input]
+=over 4
+
+=item Foo
+
+Bar.
+
+=head1 NEXT
+
+[output]
+    Foo Bar.
+
+NEXT
+POD ERRORS
+    Hey! The above document had some coding errors, which are explained
+    below:
+
+    Around line 7:
+        You forgot a '=back' before '=head1'
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-pod b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-pod
new file mode 100644
index 00000000000..807de010f87
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-pod
@@ -0,0 +1,25 @@
+[name]
+Errors to POD source
+
+[options]
+errors pod
+
+[input]
+=over 4
+
+=item Foo
+
+Bar.
+
+=head1 NEXT
+
+[output]
+    Foo Bar.
+
+NEXT
+POD ERRORS
+    Hey! The above document had some coding errors, which are explained
+    below:
+
+    Around line 7:
+        You forgot a '=back' before '=head1'
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-stderr b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-stderr
new file mode 100644
index 00000000000..e1ec95b6f5e
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-stderr
@@ -0,0 +1,22 @@
+[name]
+Errors to standard error
+
+[options]
+errors stderr
+
+[input]
+=over 4
+
+=item Foo
+
+Bar.
+
+=head1 NEXT
+
+[output]
+    Foo Bar.
+
+NEXT
+
+[errors]
+Pod input around line 7: You forgot a '=back' before '=head1'
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-stderr-opt b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-stderr-opt
new file mode 100644
index 00000000000..7547f846da0
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/error-stderr-opt
@@ -0,0 +1,22 @@
+[name]
+Errors to standard error with stderr option
+
+[options]
+stderr 1
+
+[input]
+=over 4
+
+=item Foo
+
+Bar.
+
+=head1 NEXT
+
+[output]
+    Foo Bar.
+
+NEXT
+
+[errors]
+Pod input around line 7: You forgot a '=back' before '=head1'
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/for b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/for
new file mode 100644
index 00000000000..56fb7673447
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/for
@@ -0,0 +1,28 @@
+[name]
+Handling of =for
+
+[input]
+=head1 Test of =for
+
+=for comment
+This won't be seen.
+
+Yes.
+
+=for text
+This should be seen.
+
+=for TEXT As should this.
+
+=for man
+But this shouldn't.
+
+Some more text.
+
+[output]
+Test of =for
+    Yes.
+
+This should be seen.
+As should this.
+    Some more text.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/iso-8859-1 b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/iso-8859-1
new file mode 100644
index 00000000000..739fa928301
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/iso-8859-1
@@ -0,0 +1,25 @@
+[name]
+ISO-8859-1 encoding
+
+[input]
+=encoding iso-8859-1
+
+=head1 ACCENTS
+
+Beyoncé!  Beyoncé!  Beyoncé!!
+
+    Beyoncé!  Beyoncé!
+      Beyoncé!  Beyoncé!
+        Beyoncé!  Beyoncé!
+
+Older versions didn't convert Beyoncé in verbatim.
+
+[output]
+ACCENTS
+    Beyoncé! Beyoncé! Beyoncé!!
+
+        Beyoncé!  Beyoncé!
+          Beyoncé!  Beyoncé!
+            Beyoncé!  Beyoncé!
+
+    Older versions didn't convert Beyoncé in verbatim.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/late-encoding b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/late-encoding
new file mode 100644
index 00000000000..99c0de938a5
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/late-encoding
@@ -0,0 +1,28 @@
+[name]
+Late use of =encoding
+
+[input]
+=pod
+
+=head1 NAME
+
+This is the first ascii text
+
+=encoding utf8
+
+=over 4
+
+=item ⇒This is the first non-ascii text�
+
+This is the second ascii text
+
+=back
+
+=cut
+
+[output]
+NAME
+    This is the first ascii text
+
+    ⇒This is the first non-ascii text�
+        This is the second ascii text
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/link-rt b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/link-rt
new file mode 100644
index 00000000000..8669874f71a
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/link-rt
@@ -0,0 +1,11 @@
+[name]
+Link to an RT ticket
+
+[input]
+=head1 RT LINK
+
+L<[perl #12345]|https://rt.cpan.org/12345>
+
+[output]
+RT LINK
+    [perl #12345] <https://rt.cpan.org/12345>
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/link-url b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/link-url
new file mode 100644
index 00000000000..7ef33fd172e
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/link-url
@@ -0,0 +1,11 @@
+[name]
+Link to a URL
+
+[input]
+=head1 LINK TO URL
+
+This is a L<link|http://www.example.com/> to a URL.
+
+[output]
+LINK TO URL
+    This is a link <http://www.example.com/> to a URL.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/margin b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/margin
new file mode 100644
index 00000000000..786f06b97c3
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/margin
@@ -0,0 +1,34 @@
+[name]
+margin option
+
+[options]
+margin 4
+
+[input]
+=head1 SAMPLE
+
+This is some body text that is long enough to be a paragraph that wraps,
+thereby testing margins with wrapped paragraphs.
+
+ This is some verbatim text.
+
+=over 6
+
+=item Test
+
+This is a test of an indented paragraph.
+
+This is another indented paragraph.
+
+=back
+
+[output]
+    SAMPLE
+        This is some body text that is long enough to be a paragraph that
+        wraps, thereby testing margins with wrapped paragraphs.
+
+         This is some verbatim text.
+
+        Test  This is a test of an indented paragraph.
+
+              This is another indented paragraph.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/nonbreaking-space b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/nonbreaking-space
new file mode 100644
index 00000000000..d57ed73ca18
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/nonbreaking-space
@@ -0,0 +1,11 @@
+[name]
+Multiple non-breaking spaces
+
+[input]
+=head1 Test of SE<lt>E<gt>
+
+This is some S<  > whitespace.
+
+[output]
+Test of S<>
+    This is some    whitespace.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/nourls b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/nourls
new file mode 100644
index 00000000000..a34202a0614
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/nourls
@@ -0,0 +1,14 @@
+[name]
+nourls option
+
+[options]
+nourls 1
+
+[input]
+=head1 URL suppression
+
+L<anchor|http://www.example.com/>
+
+[output]
+URL suppression
+    anchor
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/periods b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/periods
new file mode 100644
index 00000000000..44fe3a2bb87
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/periods
@@ -0,0 +1,11 @@
+[name]
+Quoting of periods
+
+[input]
+=head1 PERIODS
+
+This C<.> should be quoted.
+
+[output]
+PERIODS
+    This "." should be quoted.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/quotes-opt b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/quotes-opt
new file mode 100644
index 00000000000..4d2e6b6408b
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/quotes-opt
@@ -0,0 +1,14 @@
+[name]
+quotes option
+
+[options]
+quotes <<<>>>
+
+[input]
+=head1 FOO C<BAR> BAZ
+
+Foo C<bar> baz.
+
+[output]
+FOO <<<BAR>>> BAZ
+    Foo <<<bar>>> baz.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/s-whitespace b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/s-whitespace
new file mode 100644
index 00000000000..ff4febc6e71
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/s-whitespace
@@ -0,0 +1,11 @@
+[name]
+S<> whitespace
+
+[input]
+=head1 Test of SE<lt>E<gt>
+
+This is S<some whitespace>.
+
+[output]
+Test of S<>
+    This is some whitespace.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/sentence-spacing b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/sentence-spacing
new file mode 100644
index 00000000000..bce8c813c85
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/sentence-spacing
@@ -0,0 +1,18 @@
+[name]
+Spacing with sentence option
+
+[options]
+sentence 1
+
+[input]
+=head1 EXAMPLE
+
+Whitespace around C<<  this.  >> must be ignored per perlpodspec.  >>
+needs to eat all of the space in front of it.
+
+=cut
+
+[output]
+EXAMPLE
+    Whitespace around "this." must be ignored per perlpodspec.  >> needs to
+    eat all of the space in front of it.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/utf8 b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/utf8
new file mode 100644
index 00000000000..8231a2abd93
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/utf8
@@ -0,0 +1,38 @@
+[name]
+UTF-8 text
+
+[input]
+=encoding utf-8
+
+=head1 I can eat glass
+
+=over 4
+
+=item Esperanto
+
+Mi povas man�i vitron, �i ne dama�as min.
+
+=item Braille
+
+⠊⠀⠉��⠀⠑�⠞⠀⠛⠇�⠎⠎⠀��⠙⠀⠊⠞⠀⠙⠕⠑⠎�⠞⠀⠓⠥⠗⠞⠀�⠑
+
+=item Hindi
+
+मैं का�च खा सकता हू� और म��े उससे कोई चोट नहीं पह�ंचती.
+
+=back
+
+See L<http://www.columbia.edu/kermit/utf8.html>
+
+[output]
+I can eat glass
+    Esperanto
+        Mi povas man�i vitron, �i ne dama�as min.
+
+    Braille
+        ⠊⠀⠉��⠀⠑�⠞⠀⠛⠇�⠎⠎⠀��⠙⠀⠊⠞⠀⠙⠕⠑⠎�⠞⠀⠓⠥⠗⠞⠀�⠑
+
+    Hindi
+        मैं का�च खा सकता हू� और म��े उससे कोई चोट नहीं पह�ंचती.
+
+    See <http://www.columbia.edu/kermit/utf8.html>
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/utf8-iso b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/utf8-iso
new file mode 100644
index 00000000000..ba375e49ad2
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/utf8-iso
@@ -0,0 +1,28 @@
+[name]
+ISO-8859-1 encoding with forced UTF-8 output
+
+[options]
+utf8 1
+
+[input]
+=encoding iso-8859-1
+
+=head1 ACCENTS
+
+Beyoncé!  Beyoncé!  Beyoncé!!
+
+    Beyoncé!  Beyoncé!
+      Beyoncé!  Beyoncé!
+        Beyoncé!  Beyoncé!
+
+Older versions didn't convert Beyoncé in verbatim.
+
+[output]
+ACCENTS
+    Beyoncé! Beyoncé! Beyoncé!!
+
+        Beyoncé!  Beyoncé!
+          Beyoncé!  Beyoncé!
+            Beyoncé!  Beyoncé!
+
+    Older versions didn't convert Beyoncé in verbatim.
diff --git a/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/verbatim b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/verbatim
new file mode 100644
index 00000000000..689a60f94df
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/podlators/t/data/snippets/text/verbatim
@@ -0,0 +1,18 @@
+[name]
+Verbatim text
+
+[input]
+=pod
+
+text
+
+  line1
+  
+  line3
+
+[output]
+    text
+
+      line1
+  
+      line3