Import perl-5.18.2

OK espie@ sthen@ deraadt@

8 files changed, 816 insertions, 0 deletions

diff --git a/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/p2u_data.pl b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/p2u_data.pl
new file mode 100644
index 00000000000..858cc56cb24
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/p2u_data.pl
@@ -0,0 +1,18 @@
+use Pod::Usage;

+pod2usage(-verbose => 2, -exit => 17, -input => \*DATA);

+

+__DATA__

+=head1 NAME

+

+Test

+

+=head1 SYNOPSIS

+

+perl podusagetest.pl

+

+=head1 DESCRIPTION

+

+This is a test. 

+

+=cut

+

diff --git a/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/pod2usage.t b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/pod2usage.t
new file mode 100644
index 00000000000..98788fc399c
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/pod2usage.t
@@ -0,0 +1,18 @@
+BEGIN {

+   use File::Basename;

+   my $THISDIR = dirname $0;

+   unshift @INC, $THISDIR;

+   require "testp2pt.pl";

+   import TestPodIncPlainText;

+}

+

+my %options = map { $_ => 1 } @ARGV;  ## convert cmdline to options-hash

+my $passed  = testpodplaintext \%options, $0;

+exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};

+

+

+__END__

+

+=include pod2usage.PL

+

+

diff --git a/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/pod2usage.xr b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/pod2usage.xr
new file mode 100644
index 00000000000..ceac4f1f825
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/pod2usage.xr
@@ -0,0 +1,63 @@
+###### begin =include pod2usage.PL #####
+NAME
+    pod2usage - print usage messages from embedded pod docs in files
+
+SYNOPSIS
+    pod2usage   [-help] [-man] [-exit *exitval*] [-output *outfile*]
+                [-verbose *level*] [-pathlist *dirlist*] [-formatter
+                *module*] *file*
+
+OPTIONS AND ARGUMENTS
+    -help   Print a brief help message and exit.
+
+    -man    Print this command's manual page and exit.
+
+    -exit *exitval*
+            The exit status value to return.
+
+    -output *outfile*
+            The output file to print to. If the special names "-" or ">&1"
+            or ">&STDOUT" are used then standard output is used. If ">&2" or
+            ">&STDERR" is used then standard error is used.
+
+    -verbose *level*
+            The desired level of verbosity to use:
+
+                1 : print SYNOPSIS only
+                2 : print SYNOPSIS sections and any OPTIONS/ARGUMENTS sections
+                3 : print the entire manpage (similar to running pod2text)
+
+    -pathlist *dirlist*
+            Specifies one or more directories to search for the input file
+            if it was not supplied with an absolute path. Each directory
+            path in the given list should be separated by a ':' on Unix (';'
+            on MSWin32 and DOS).
+
+    -formatter *module*
+            Which text formatter to use. Default is the Pod::Text manpage,
+            or for very old Perl versions the Pod::PlainText manpage. An
+            alternative would be e.g. the Pod::Text::Termcap manpage.
+
+    *file*  The pathname of a file containing pod documentation to be output
+            in usage message format (defaults to standard input).
+
+DESCRIPTION
+    pod2usage will read the given input file looking for pod documentation
+    and will print the corresponding usage message. If no input file is
+    specified then standard input is read.
+
+    pod2usage invokes the pod2usage() function in the Pod::Usage module.
+    Please see the pod2usage() entry in the Pod::Usage manpage.
+
+SEE ALSO
+    the Pod::Usage manpage, the pod2text(1) manpage
+
+AUTHOR
+    Please report bugs using http://rt.cpan.org.
+
+    Brad Appleton <bradapp@enteract.com>
+
+    Based on code for pod2text(1) written by Tom Christiansen
+    <tchrist@mox.perl.com>
+
+###### end =include pod2usage.PL #####
diff --git a/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/pod2usage2.t b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/pod2usage2.t
new file mode 100644
index 00000000000..a2b0a32f974
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/pod2usage2.t
@@ -0,0 +1,357 @@
+#!/usr/bin/perl -w

+

+use Test::More;

+use strict;

+

+BEGIN {

+  if ($^O eq 'MSWin32' || $^O eq 'VMS') {

+    plan skip_all => "Not portable on Win32 or VMS\n";

+  }

+  else {

+    plan tests => 34;

+  }

+  use_ok ("Pod::Usage");

+}

+

+sub getoutput

+{

+  my ($code) = @_;

+  my $pid = open(TEST_IN, "-|");

+  unless(defined $pid) {

+    die "Cannot fork: $!";

+  }

+  if($pid) {

+    # parent

+    my @out = <TEST_IN>;

+    close(TEST_IN);

+    my $exit = $?>>8;

+    s/^/#/ for @out;

+    local $" = "";

+    print "#EXIT=$exit OUTPUT=+++#@out#+++\n";

+    return($exit, join("",@out));

+  }

+  # child

+  open(STDERR, ">&STDOUT");

+  Test::More->builder->no_ending(1);

+  &$code;

+  print "--NORMAL-RETURN--\n";

+  exit 0;

+}

+

+sub compare

+{

+  my ($left,$right) = @_;

+  $left  =~ s/^#\s+/#/gm;

+  $right =~ s/^#\s+/#/gm;

+  $left  =~ s/\s+/ /gm;

+  $right =~ s/\s+/ /gm;

+  $left eq $right;

+}

+

+SKIP: {

+if('Pod::Usage'->isa('Pod::Text') && $Pod::Text::VERSION < 2.18) {

+  skip("Formatting with Pod::Text $Pod::Text::VERSION not reliable", 33);

+}

+

+my ($exit, $text) = getoutput( sub { pod2usage() } );

+is ($exit, 2,                 "Exit status pod2usage ()");

+ok (compare ($text, <<'EOT'), "Output test pod2usage ()");

+#Usage:

+#    frobnicate [ -r | --recursive ] [ -f | --force ] file ...

+#

+EOT

+

+($exit, $text) = getoutput( sub { pod2usage(

+  -message => 'You naughty person, what did you say?',

+  -verbose => 1 ) });

+is ($exit, 1,                 "Exit status pod2usage (-message => '...', -verbose => 1)");

+ok (compare ($text, <<'EOT'), "Output test pod2usage (-message => '...', -verbose => 1)") or diag("Got:\n$text\n");

+#You naughty person, what did you say?

+# Usage:

+#     frobnicate [ -r | --recursive ] [ -f | --force ] file ...

+# 

+# Options:

+#     -r | --recursive

+#         Run recursively.

+# 

+#     -f | --force

+#         Just do it!

+# 

+#     -n number

+#         Specify number of frobs, default is 42.

+# 

+EOT

+

+($exit, $text) = getoutput( sub { pod2usage(

+  -verbose => 2, -exit => 42 ) } );

+is ($exit, 42,                "Exit status pod2usage (-verbose => 2, -exit => 42)");

+ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 2, -exit => 42)");

+#NAME

+#     frobnicate - do what I mean

+#

+# SYNOPSIS

+#     frobnicate [ -r | --recursive ] [ -f | --force ] file ...

+#

+# DESCRIPTION

+#     frobnicate does foo and bar and what not.

+#

+# OPTIONS

+#     -r | --recursive

+#         Run recursively.

+#

+#     -f | --force

+#         Just do it!

+#

+#     -n number

+#         Specify number of frobs, default is 42.

+#

+EOT

+

+($exit, $text) = getoutput( sub { pod2usage(0) } );

+is ($exit, 0,                 "Exit status pod2usage (0)");

+ok (compare ($text, <<'EOT'), "Output test pod2usage (0)");

+#Usage:

+#     frobnicate [ -r | --recursive ] [ -f | --force ] file ...

+#

+# Options:

+#     -r | --recursive

+#         Run recursively.

+#

+#     -f | --force

+#         Just do it!

+#

+#     -n number

+#         Specify number of frobs, default is 42.

+#

+EOT

+

+($exit, $text) = getoutput( sub { pod2usage(42) } );

+is ($exit, 42,                "Exit status pod2usage (42)");

+ok (compare ($text, <<'EOT'), "Output test pod2usage (42)");

+#Usage:

+#     frobnicate [ -r | --recursive ] [ -f | --force ] file ...

+#

+EOT

+

+($exit, $text) = getoutput( sub { pod2usage(-verbose => 0, -exit => 'NOEXIT') } );

+is ($exit, 0,                 "Exit status pod2usage (-verbose => 0, -exit => 'NOEXIT')");

+ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 0, -exit => 'NOEXIT')");

+#Usage:

+#     frobnicate [ -r | --recursive ] [ -f | --force ] file ...

+#

+# --NORMAL-RETURN--

+EOT

+

+($exit, $text) = getoutput( sub { pod2usage(-verbose => 99, -sections => 'DESCRIPTION') } );

+is ($exit, 1,                 "Exit status pod2usage (-verbose => 99, -sections => 'DESCRIPTION')");

+ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 99, -sections => 'DESCRIPTION')");

+#Description:

+#     frobnicate does foo and bar and what not.

+#

+EOT

+

+# does the __DATA__ work ok as input

+my (@blib, $test_script, $pod_file1, , $pod_file2);

+if (!$ENV{PERL_CORE}) {

+  @blib = '-Mblib';

+}

+$test_script = File::Spec->catfile(qw(t pod p2u_data.pl));

+$pod_file1 = File::Spec->catfile(qw(t pod usage.pod));

+$pod_file2 = File::Spec->catfile(qw(t pod usage2.pod));

+

+

+($exit, $text) = getoutput( sub { system($^X, @blib, $test_script); exit($?  >> 8); } );

+$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR

+is ($exit, 17,                 "Exit status pod2usage (-verbose => 2, -input => \*DATA)");

+ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 2, -input => \*DATA)") or diag "Got:\n$text\n";

+#NAME

+#    Test

+#

+#SYNOPSIS

+#    perl podusagetest.pl

+#

+#DESCRIPTION

+#    This is a test.

+#

+EOT

+

+# test that SYNOPSIS and USAGE are printed

+($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file1,

+                                            -exitval => 0, -verbose => 0); });

+$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR

+is ($exit, 0,                 "Exit status pod2usage with USAGE");

+ok (compare ($text, <<'EOT'), "Output test pod2usage with USAGE") or diag "Got:\n$text\n";

+#Usage:

+#    This is a test for CPAN#33020

+#

+#Usage:

+#    And this will be also printed.

+#

+EOT

+

+# test that SYNOPSIS and USAGE are printed with options

+($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file1,

+                                            -exitval => 0, -verbose => 1); });

+$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR

+is ($exit, 0,                 "Exit status pod2usage with USAGE and verbose=1");

+ok (compare ($text, <<'EOT'), "Output test pod2usage with USAGE and verbose=1") or diag "Got:\n$text\n";

+#Usage:

+#    This is a test for CPAN#33020

+#

+#Usage:

+#    And this will be also printed.

+#

+#Options:

+#    And this with verbose == 1

+#

+EOT

+

+# test that only USAGE is printed when requested

+($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file1,

+                                            -exitval => 0, -verbose => 99, -sections => 'USAGE'); });

+$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR

+is ($exit, 0,                 "Exit status pod2usage with USAGE and verbose=99");

+ok (compare ($text, <<'EOT'), "Output test pod2usage with USAGE and verbose=99") or diag "Got:\n$text\n";

+#Usage:

+#    This is a test for CPAN#33020

+# 

+EOT

+

+# test with pod_where

+use_ok('Pod::Find', qw(pod_where));

+

+($exit, $text) = getoutput( sub { pod2usage( -input => pod_where({-inc => 1}, 'Pod::Usage'),

+                                             -exitval => 0, -verbose => 0) } );

+$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR

+is ($exit, 0,                 "Exit status pod2usage with Pod::Find");

+ok (compare ($text, <<'EOT'), "Output test pod2usage with Pod::Find") or diag "Got:\n$text\n";

+#Usage:

+#      use Pod::Usage

+#

+#      my $message_text  = "This text precedes the usage message.";

+#      my $exit_status   = 2;          ## The exit status to use

+#      my $verbose_level = 0;          ## The verbose level to use

+#      my $filehandle    = \*STDERR;   ## The filehandle to write to

+#

+#      pod2usage($message_text);

+#

+#      pod2usage($exit_status);

+#

+#      pod2usage( { -message => $message_text ,

+#                   -exitval => $exit_status  ,  

+#                   -verbose => $verbose_level,  

+#                   -output  => $filehandle } );

+#

+#      pod2usage(   -msg     => $message_text ,

+#                   -exitval => $exit_status  ,  

+#                   -verbose => $verbose_level,  

+#                   -output  => $filehandle   );

+#

+#      pod2usage(   -verbose => 2,

+#                   -noperldoc => 1  )

+#

+EOT

+

+# verify that sections are correctly found after nested headings

+($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file2,

+                                            -exitval => 0, -verbose => 99,

+                                            -sections => [qw(BugHeader BugHeader/.*')]) });

+$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR

+is ($exit, 0,                 "Exit status pod2usage with nested headings");

+ok (compare ($text, <<'EOT'), "Output test pod2usage with nested headings") or diag "Got:\n$text\n";

+#BugHeader:

+#    Some text

+#

+#  BugHeader2:

+#    More

+#    Still More

+#

+EOT

+

+# Verify that =over =back work OK

+($exit, $text) = getoutput( sub {

+  pod2usage(-input => $pod_file2,

+            -exitval => 0, -verbose => 99, -sections => 'BugHeader/BugHeader2') } );

+$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR

+is ($exit, 0,                 "Exit status pod2usage with over/back");

+ok (compare ($text, <<'EOT'), "Output test pod2usage with over/back") or diag "Got:\n$text\n";

+#  BugHeader2:

+#    More

+#    Still More

+#

+EOT

+

+# new array API for -sections

+($exit, $text) = getoutput( sub {

+  pod2usage(-input => $pod_file2,

+            -exitval => 0, -verbose => 99, -sections => [qw(Heading-1/!.+ Heading-2/.+)]) } );

+$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR

+is ($exit, 0,                 "Exit status pod2usage with -sections => []");

+ok (compare ($text, <<'EOT'), "Output test pod2usage with -sections => []") or diag "Got:\n$text\n";

+#Heading-1:

+#    One

+#    Two

+#

+#  Heading-2.2:

+#    More text.

+#

+EOT

+

+# allow subheadings in OPTIONS and ARGUMENTS

+($exit, $text) = getoutput( sub {

+  pod2usage(-input => $pod_file2,

+            -exitval => 0, -verbose => 1) } );

+$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR

+$text =~ s{[*](destination|files)[*]}{$1}g; # strip * chars

+is ($exit, 0,                 "Exit status pod2usage with subheadings in OPTIONS");

+ok (compare ($text, <<'EOT'), "Output test pod2usage with subheadings in OPTIONS") or diag "Got:\n$text\n";

+#Options and Arguments:

+#  Arguments:

+#    The required arguments (which typically follow any options on the

+#    command line) are:

+#

+#    destination

+#    files

+#

+#  Options:

+#    Options may be abbreviated. Options which take values may be separated

+#    from the values by whitespace or the "=" character.

+#

+EOT

+} # end SKIP

+

+__END__

+

+=head1 NAME

+

+frobnicate - do what I mean

+

+=head1 SYNOPSIS

+

+B<frobnicate> S<[ B<-r> | B<--recursive> ]> S<[ B<-f> | B<--force> ]>

+  file ...

+

+=head1 DESCRIPTION

+

+B<frobnicate> does foo and bar and what not.

+

+=head1 OPTIONS

+

+=over 4

+

+=item B<-r> | B<--recursive>

+

+Run recursively.

+

+=item B<-f> | B<--force>

+

+Just do it!

+

+=item B<-n> number

+

+Specify number of frobs, default is 42.

+

+=back

+

+=cut

+

diff --git a/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/testcmp.pl b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/testcmp.pl
new file mode 100644
index 00000000000..b8592fcc2a8
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/testcmp.pl
@@ -0,0 +1,94 @@
+package TestCompare;

+

+use vars qw(@ISA @EXPORT $MYPKG);

+#use strict;

+#use diagnostics;

+use Carp;

+use Exporter;

+use File::Basename;

+use File::Spec;

+use FileHandle;

+

+@ISA = qw(Exporter);

+@EXPORT = qw(&testcmp);

+$MYPKG = eval { (caller)[0] };

+

+##--------------------------------------------------------------------------

+

+=head1 NAME

+

+testcmp -- compare two files line-by-line

+

+=head1 SYNOPSIS

+

+    $is_diff = testcmp($file1, $file2);

+

+or

+

+    $is_diff = testcmp({-cmplines => \&mycmp}, $file1, $file2);

+

+=head2 DESCRIPTION

+

+Compare two text files line-by-line and return 0 if they are the

+same, 1 if they differ. Each of $file1 and $file2 may be a filenames,

+or a filehandles (in which case it must already be open for reading).

+

+If the first argument is a hashref, then the B<-cmplines> key in the

+hash may have a subroutine reference as its corresponding value.

+The referenced user-defined subroutine should be a line-comparator

+function that takes two pre-chomped text-lines as its arguments

+(the first is from $file1 and the second is from $file2). It should

+return 0 if it considers the two lines equivalent, and non-zero

+otherwise.

+

+=cut

+

+##--------------------------------------------------------------------------

+

+sub testcmp( $ $ ; $) {

+   my %opts = ref($_[0]) eq 'HASH' ? %{shift()} : ();

+   my ($file1, $file2) = @_;

+   my ($fh1, $fh2) = ($file1, $file2);

+   unless (ref $fh1) {

+      $fh1 = FileHandle->new($file1, "r") or die "Can't open $file1: $!";

+   }

+   unless (ref $fh2) {

+      $fh2 = FileHandle->new($file2, "r") or die "Can't open $file2: $!";

+   }

+  

+   my $cmplines = $opts{'-cmplines'} || undef;

+   my ($f1text, $f2text) = ("", "");

+   my ($line, $diffs)    = (0, 0);

+  

+   while ( defined($f1text) and defined($f2text) ) {

+      defined($f1text = <$fh1>)  and  chomp($f1text);

+      defined($f2text = <$fh2>)  and  chomp($f2text);

+      ++$line;

+      last unless ( defined($f1text) and defined($f2text) );

+      # kill any extra line endings

+      $f1text =~ s/[\r\n]+$//s;

+      $f2text =~ s/[\r\n]+$//s;

+      $diffs = (ref $cmplines) ? &$cmplines($f1text, $f2text)

+                               : ($f1text ne $f2text);

+      last if $diffs;

+   }

+   close($fh1) unless (ref $file1);

+   close($fh2) unless (ref $file2);

+  

+   $diffs = 1  if (defined($f1text) or defined($f2text));

+   if ( defined($f1text) and defined($f2text) ) {

+      ## these two lines must be different

+      warn "$file1 and $file2 differ at line $line\n";

+   }

+   elsif (defined($f1text)  and  (! defined($f1text))) {

+      ## file1 must be shorter

+      warn "$file1 is shorter than $file2\n";

+   }

+   elsif (defined $f2text) {

+      ## file2 must be longer

+      warn "$file1 is shorter than $file2\n";

+   }

+   return $diffs;

+}

+

+1;

diff --git a/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/testp2pt.pl b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/testp2pt.pl
new file mode 100644
index 00000000000..5c17300b508
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/testp2pt.pl
@@ -0,0 +1,192 @@
+package TestPodIncPlainText;

+

+BEGIN {

+   use File::Basename;

+   use File::Spec;

+   use Cwd qw(abs_path);

+   push @INC, '..';

+   my $THISDIR = abs_path(dirname $0);

+   unshift @INC, $THISDIR;

+   require "testcmp.pl";

+   import TestCompare;

+   my $PARENTDIR = dirname $THISDIR;

+   push @INC, map { File::Spec->catfile($_, 'lib') } ($PARENTDIR, $THISDIR);

+}

+

+#use strict;

+#use diagnostics;

+use Carp;

+use Exporter;

+#use File::Compare;

+#use Cwd qw(abs_path);

+

+use vars qw($MYPKG @EXPORT @ISA);

+$MYPKG = eval { (caller)[0] };

+@EXPORT = qw(&testpodplaintext);

+BEGIN {

+    require Pod::PlainText;

+    @ISA = qw( Pod::PlainText );

+    require VMS::Filespec if $^O eq 'VMS';

+}

+

+## Hardcode settings for TERMCAP and COLUMNS so we can try to get

+## reproducible results between environments

+@ENV{qw(TERMCAP COLUMNS)} = ('co=76:do=^J', 76);

+

+sub catfile(@) { File::Spec->catfile(@_); }

+

+my $INSTDIR = abs_path(dirname $0);

+$INSTDIR = VMS::Filespec::unixpath($INSTDIR) if $^O eq 'VMS';

+$INSTDIR =~ s#/$## if $^O eq 'VMS';

+$INSTDIR =~ s#:$## if $^O eq 'MacOS';

+$INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 'pod');

+$INSTDIR =~ s#:$## if $^O eq 'MacOS';

+$INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 't');

+my @PODINCDIRS = ( catfile($INSTDIR, 'lib', 'Pod'),

+                   catfile($INSTDIR, 'scripts'),

+                   catfile($INSTDIR, 'pod'),

+                   catfile($INSTDIR, 't', 'pod')

+                 );

+

+# FIXME - we should make the core capable of finding utilities built in

+# locations in ext.

+push @PODINCDIRS, catfile((File::Spec->updir()) x 2, 'pod') if $ENV{PERL_CORE};

+

+## Find the path to the file to =include

+sub findinclude {

+    my $self    = shift;

+    my $incname = shift;

+

+    ## See if its already found w/out any "searching;

+    return  $incname if (-r $incname);

+

+    ## Need to search for it. Look in the following directories ...

+    ##   1. the directory containing this pod file

+    my $thispoddir = dirname $self->input_file;

+    ##   2. the parent directory of the above

+    my $parentdir  = dirname $thispoddir;

+    my @podincdirs = ($thispoddir, $parentdir, @PODINCDIRS);

+

+    for (@podincdirs) {

+       my $incfile = catfile($_, $incname);

+       return $incfile  if (-r $incfile);

+    }

+    warn("*** Can't find =include file $incname in @podincdirs\n");

+    return "";

+}

+

+sub command {

+    my $self = shift;

+    my ($cmd, $text, $line_num, $pod_para)  = @_;

+    $cmd     = ''  unless (defined $cmd);

+    local $_ = $text || '';

+    my $out_fh  = $self->output_handle;

+

+    ## Defer to the superclass for everything except '=include'

+    return  $self->SUPER::command(@_) unless ($cmd eq "include");

+

+    ## We have an '=include' command

+    my $incdebug = 1; ## debugging

+    my @incargs = split;

+    if (@incargs == 0) {

+        warn("*** No filename given for '=include'\n");

+        return;

+    }

+    my $incfile  = $self->findinclude(shift @incargs)  or  return;

+    my $incbase  = basename $incfile;

+    print $out_fh "###### begin =include $incbase #####\n"  if ($incdebug);

+    $self->parse_from_file( {-cutting => 1}, $incfile );

+    print $out_fh "###### end =include $incbase #####\n"    if ($incdebug);

+}

+

+sub begin_input {

+   $_[0]->{_INFILE} = VMS::Filespec::unixify($_[0]->{_INFILE}) if $^O eq 'VMS';

+}

+

+sub podinc2plaintext( $ $ ) {

+    my ($infile, $outfile) = @_;

+    local $_;

+    my $text_parser = $MYPKG->new;

+    $text_parser->parse_from_file($infile, $outfile);

+}

+

+sub testpodinc2plaintext( @ ) {

+   my %args = @_;

+   my $infile  = $args{'-In'}  || croak "No input file given!";

+   my $outfile = $args{'-Out'} || croak "No output file given!";

+   my $cmpfile = $args{'-Cmp'} || croak "No compare-result file given!";

+

+   my $different = '';

+   my $testname = basename $cmpfile, '.t', '.xr';

+

+   unless (-e $cmpfile) {

+      my $msg = "*** Can't find comparison file $cmpfile for testing $infile";

+      warn  "$msg\n";

+      return  $msg;

+   }

+

+   print "# Running testpodinc2plaintext for '$testname'...\n";

+   ## Compare the output against the expected result

+   podinc2plaintext($infile, $outfile);

+   if ( testcmp($outfile, $cmpfile) ) {

+       $different = "$outfile is different from $cmpfile";

+   }

+   else {

+       unlink($outfile);

+   }

+   return  $different;

+}

+

+sub testpodplaintext( @ ) {

+   my %opts = (ref $_[0] eq 'HASH') ? %{shift()} : ();

+   my @testpods = @_;

+   my ($testname, $testdir) = ("", "");

+   my ($podfile, $cmpfile) = ("", "");

+   my ($outfile, $errfile) = ("", "");

+   my $passes = 0;

+   my $failed = 0;

+   local $_;

+

+   print "1..", scalar @testpods, "\n"  unless ($opts{'-xrgen'});

+

+   for $podfile (@testpods) {

+      ($testname, $_) = fileparse($podfile);

+      $testdir ||=  $_;

+      $testname  =~ s/\.t$//;

+      $cmpfile   =  $testdir . $testname . '.xr';

+      $outfile   =  $testdir . $testname . '.OUT';

+

+      if ($opts{'-xrgen'}) {

+          if ($opts{'-force'} or ! -e $cmpfile) {

+             ## Create the comparison file

+             print "# Creating expected result for \"$testname\"" .

+                   " pod2plaintext test ...\n";

+             podinc2plaintext($podfile, $cmpfile);

+          }

+          else {

+             print "# File $cmpfile already exists" .

+                   " (use '-force' to regenerate it).\n";

+          }

+          next;

+      }

+

+      my $failmsg = testpodinc2plaintext

+                        -In  => $podfile,

+                        -Out => $outfile,

+                        -Cmp => $cmpfile;

+      if ($failmsg) {

+          ++$failed;

+          print "#\tFAILED. ($failmsg)\n";

+	  print "not ok ", $failed+$passes, "\n";

+      }

+      else {

+          ++$passes;

+          unlink($outfile);

+          print "#\tPASSED.\n";

+	  print "ok ", $failed+$passes, "\n";

+      }

+   }

+   return  $passes;

+}

+

+1;

diff --git a/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/usage.pod b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/usage.pod
new file mode 100644
index 00000000000..c0fbbc528e1
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/usage.pod
@@ -0,0 +1,18 @@
+=head1 NAME

+

+usage.pod - example for testing USAGE and SYNOPSIS

+

+=head1 USAGE

+

+This is a test for CPAN#33020

+

+=head1 SYNOPSIS

+

+And this will be also printed.

+

+=head1 OPTIONS

+

+And this with verbose == 1

+

+=cut

+

diff --git a/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/usage2.pod b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/usage2.pod
new file mode 100644
index 00000000000..1e03b7dfc68
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/usage2.pod
@@ -0,0 +1,56 @@
+=head1 Heading-1

+

+=over 100

+

+=item One

+

+=item Two

+

+=back

+

+=head2 Heading 2

+

+Some text

+

+=head1 BugHeader

+

+Some text

+

+=head2 BugHeader2

+

+=over 4

+

+=item More

+

+=item Still More

+

+=back

+

+=head1 Heading-2

+

+=head2 Heading-2.2

+

+More text.

+

+=head1 OPTIONS AND ARGUMENTS

+

+=head2 Arguments

+

+The required arguments (which typically follow any options on the

+command line) are:

+

+=over

+

+=item I<destination>

+

+=item I<files>

+

+=back

+

+=head2 Options

+

+Options may be abbreviated. Options which take values may be separated

+from the values by whitespace or the "=" character.

+

+=cut

+