Perl 5.12.2 from CPAN

31 files changed, 1113 insertions, 1114 deletions

diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/contains_bad_pod.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/contains_bad_pod.xr
index c7907963d95..ad65663e221 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/contains_bad_pod.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/contains_bad_pod.xr
@@ -1,5 +1,5 @@
-=head foo

-

-bar baz.

-

-=cut

+=head foo
+
+bar baz.
+
+=cut
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/contains_pod.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/contains_pod.xr
index b79591a95c4..7ea408de46a 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/contains_pod.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/contains_pod.xr
@@ -1,5 +1,5 @@
-=head1 foo

-

-bar baz.

-

-=cut

+=head1 foo
+
+bar baz.
+
+=cut
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/emptycmd.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/emptycmd.t
index 53d1046345b..59e395ea04d 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/emptycmd.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/emptycmd.t
@@ -1,21 +1,21 @@
-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__

-

-=pod

-

-= this is a test

-of the emergency

-broadcast system

-

-=cut

+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__
+
+=pod
+
+= this is a test
+of the emergency
+broadcast system
+
+=cut
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/emptycmd.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/emptycmd.xr
index dd474a1a447..f06d2dbb097 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/emptycmd.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/emptycmd.xr
@@ -1,2 +1,2 @@
-    = this is a test of the emergency broadcast system

-

+    = this is a test of the emergency broadcast system
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/for.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/for.t
index 12ba3392c08..44af44f17de 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/for.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/for.t
@@ -1,59 +1,59 @@
-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__

-

-

-=pod

-

-This is a test

-

-=for theloveofpete

-You shouldn't see this

-or this

-or this

-

-=for text

-pod2text should see this

-and this

-and this

-

-and everything should see this!

-

-=begin text

-

-Similarly, this line ...

-

-and this one ...

-

-as well this one,

-

-should all be in pod2text output

-

-=end text

-

-Tweedley-deedley-dee, Im as happy as can be!

-Tweedley-deedley-dum, cuz youre my honey sugar plum!

-

-=begin atthebeginning

-

-But I expect to see neither hide ...

-

-nor tail ...

-

-of this text

-

-=end atthebeginning

-

-The rest of this should show up in everything.

-

+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__
+
+
+=pod
+
+This is a test
+
+=for theloveofpete
+You shouldn't see this
+or this
+or this
+
+=for text
+pod2text should see this
+and this
+and this
+
+and everything should see this!
+
+=begin text
+
+Similarly, this line ...
+
+and this one ...
+
+as well this one,
+
+should all be in pod2text output
+
+=end text
+
+Tweedley-deedley-dee, Im as happy as can be!
+Tweedley-deedley-dum, cuz youre my honey sugar plum!
+
+=begin atthebeginning
+
+But I expect to see neither hide ...
+
+nor tail ...
+
+of this text
+
+=end atthebeginning
+
+The rest of this should show up in everything.
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/for.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/for.xr
index b616bf2cb2b..5f6b8b2ce8c 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/for.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/for.xr
@@ -1,21 +1,21 @@
-    This is a test

-

-    pod2text should see this

-    and this

-    and this

-

-    and everything should see this!

-

-Similarly, this line ...

-

-and this one ...

-

-as well this one,

-

-should all be in pod2text output

-

-    Tweedley-deedley-dee, Im as happy as can be! Tweedley-deedley-dum, cuz

-    youre my honey sugar plum!

-

-    The rest of this should show up in everything.

-

+    This is a test
+
+    pod2text should see this
+    and this
+    and this
+
+    and everything should see this!
+
+Similarly, this line ...
+
+and this one ...
+
+as well this one,
+
+should all be in pod2text output
+
+    Tweedley-deedley-dee, Im as happy as can be! Tweedley-deedley-dum, cuz
+    youre my honey sugar plum!
+
+    The rest of this should show up in everything.
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/headings.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/headings.t
index 4688272231a..78608d0fd9f 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/headings.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/headings.t
@@ -1,140 +1,140 @@
-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__

-

-

-#################################################################

-  use Pod::Usage;

-  pod2usage( VERBOSE => 2, EXIT => 1 );

-

-=pod

-

-=head1 NAME

-

-B<rdb2pg> - insert an rdb table into a PostgreSQL database

-

-=head1 SYNOPSIS

-

-B<rdb2pg>  [I<param>=I<value> ...]

-

-=head1 PARAMETERS

-

-B<rdb2pg> uses an IRAF-compatible parameter interface.  

-A template parameter file is in F</proj/axaf/simul/lib/uparm/rdb2pg.par>.

-

-=over 4

-

-=item B<input> I<file>

-

-The B<RDB> file to insert into the database. If the given name

-is the string C<stdin>, it reads from the UNIX standard input stream.

-

-

-=back

-

-=head1 DESCRIPTION

-

-B<rdb2pg> will enter the data from an B<RDB> database into a

-PostgreSQL database table, optionally creating the database and the

-table if they do not exist.  It automatically determines the

-PostgreSQL data type from the column definition in the B<RDB> file,

-but may be overriden via a series of definition files or directly

-via one of its parameters.

-

-The target database and table are specified by the C<db> and C<table>

-parameters.  If they do not exist, and the C<createdb> parameter is

-set, they will be created.  Table field definitions are determined

-in the following order:

-

-=cut

-

-#################################################################

-

-results in:

-

-

-#################################################################

-

-    rdb2pg - insert an rdb table into a PostgreSQL database

-

-    rdb2pg [*param*=*value* ...]

-

-    rdb2pg uses an IRAF-compatible parameter interface. A template

-    parameter file is in /proj/axaf/simul/lib/uparm/rdb2pg.par.

-

-    The RDB file to insert into the database. If the given name is

-    the string `stdin', it reads from the UNIX standard input

-    stream.

-

-    rdb2pg will enter the data from an RDB database into a

-    PostgreSQL database table, optionally creating the database and

-    the table if they do not exist. It automatically determines the

-    PostgreSQL data type from the column definition in the RDB file,

-    but may be overriden via a series of definition files or

-    directly via one of its parameters.

-

-    The target database and table are specified by the `db' and

-    `table' parameters. If they do not exist, and the `createdb'

-    parameter is set, they will be created. Table field definitions

-    are determined in the following order:

-

-

-#################################################################

-

-while the original version of Text (using pod2text) gives

-

-#################################################################

-

-NAME

-    rdb2pg - insert an rdb table into a PostgreSQL database

-

-SYNOPSIS

-    rdb2pg [*param*=*value* ...]

-

-PARAMETERS

-    rdb2pg uses an IRAF-compatible parameter interface. A template

-    parameter file is in /proj/axaf/simul/lib/uparm/rdb2pg.par.

-

-    input *file*

-        The RDB file to insert into the database. If the given name

-        is the string `stdin', it reads from the UNIX standard input

-        stream.

-

-DESCRIPTION

-    rdb2pg will enter the data from an RDB database into a

-    PostgreSQL database table, optionally creating the database and

-    the table if they do not exist. It automatically determines the

-    PostgreSQL data type from the column definition in the RDB file,

-    but may be overriden via a series of definition files or

-    directly via one of its parameters.

-

-    The target database and table are specified by the `db' and

-    `table' parameters. If they do not exist, and the `createdb'

-    parameter is set, they will be created. Table field definitions

-    are determined in the following order:

-

-

-#################################################################

-

-

-Thanks for any help.  If, as your email indicates, you've not much

-time to look at this, I can work around things by calling pod2text()

-directly using the official Text.pm.

-

-Diab

-

--------------

-Diab Jerius

-djerius@cfa.harvard.edu

-

+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__
+
+
+#################################################################
+  use Pod::Usage;
+  pod2usage( VERBOSE => 2, EXIT => 1 );
+
+=pod
+
+=head1 NAME
+
+B<rdb2pg> - insert an rdb table into a PostgreSQL database
+
+=head1 SYNOPSIS
+
+B<rdb2pg>  [I<param>=I<value> ...]
+
+=head1 PARAMETERS
+
+B<rdb2pg> uses an IRAF-compatible parameter interface.  
+A template parameter file is in F</proj/axaf/simul/lib/uparm/rdb2pg.par>.
+
+=over 4
+
+=item B<input> I<file>
+
+The B<RDB> file to insert into the database. If the given name
+is the string C<stdin>, it reads from the UNIX standard input stream.
+
+
+=back
+
+=head1 DESCRIPTION
+
+B<rdb2pg> will enter the data from an B<RDB> database into a
+PostgreSQL database table, optionally creating the database and the
+table if they do not exist.  It automatically determines the
+PostgreSQL data type from the column definition in the B<RDB> file,
+but may be overriden via a series of definition files or directly
+via one of its parameters.
+
+The target database and table are specified by the C<db> and C<table>
+parameters.  If they do not exist, and the C<createdb> parameter is
+set, they will be created.  Table field definitions are determined
+in the following order:
+
+=cut
+
+#################################################################
+
+results in:
+
+
+#################################################################
+
+    rdb2pg - insert an rdb table into a PostgreSQL database
+
+    rdb2pg [*param*=*value* ...]
+
+    rdb2pg uses an IRAF-compatible parameter interface. A template
+    parameter file is in /proj/axaf/simul/lib/uparm/rdb2pg.par.
+
+    The RDB file to insert into the database. If the given name is
+    the string `stdin', it reads from the UNIX standard input
+    stream.
+
+    rdb2pg will enter the data from an RDB database into a
+    PostgreSQL database table, optionally creating the database and
+    the table if they do not exist. It automatically determines the
+    PostgreSQL data type from the column definition in the RDB file,
+    but may be overriden via a series of definition files or
+    directly via one of its parameters.
+
+    The target database and table are specified by the `db' and
+    `table' parameters. If they do not exist, and the `createdb'
+    parameter is set, they will be created. Table field definitions
+    are determined in the following order:
+
+
+#################################################################
+
+while the original version of Text (using pod2text) gives
+
+#################################################################
+
+NAME
+    rdb2pg - insert an rdb table into a PostgreSQL database
+
+SYNOPSIS
+    rdb2pg [*param*=*value* ...]
+
+PARAMETERS
+    rdb2pg uses an IRAF-compatible parameter interface. A template
+    parameter file is in /proj/axaf/simul/lib/uparm/rdb2pg.par.
+
+    input *file*
+        The RDB file to insert into the database. If the given name
+        is the string `stdin', it reads from the UNIX standard input
+        stream.
+
+DESCRIPTION
+    rdb2pg will enter the data from an RDB database into a
+    PostgreSQL database table, optionally creating the database and
+    the table if they do not exist. It automatically determines the
+    PostgreSQL data type from the column definition in the RDB file,
+    but may be overriden via a series of definition files or
+    directly via one of its parameters.
+
+    The target database and table are specified by the `db' and
+    `table' parameters. If they do not exist, and the `createdb'
+    parameter is set, they will be created. Table field definitions
+    are determined in the following order:
+
+
+#################################################################
+
+
+Thanks for any help.  If, as your email indicates, you've not much
+time to look at this, I can work around things by calling pod2text()
+directly using the official Text.pm.
+
+Diab
+
+-------------
+Diab Jerius
+djerius@cfa.harvard.edu
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/headings.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/headings.xr
index f92efb5ecf5..fb37a2b0cf6 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/headings.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/headings.xr
@@ -1,26 +1,26 @@
-NAME

-    rdb2pg - insert an rdb table into a PostgreSQL database

-

-SYNOPSIS

-    rdb2pg [*param*=*value* ...]

-

-PARAMETERS

-    rdb2pg uses an IRAF-compatible parameter interface. A template parameter

-    file is in /proj/axaf/simul/lib/uparm/rdb2pg.par.

-

-    input *file*

-        The RDB file to insert into the database. If the given name is the

-        string `stdin', it reads from the UNIX standard input stream.

-

-DESCRIPTION

-    rdb2pg will enter the data from an RDB database into a PostgreSQL

-    database table, optionally creating the database and the table if they

-    do not exist. It automatically determines the PostgreSQL data type from

-    the column definition in the RDB file, but may be overriden via a series

-    of definition files or directly via one of its parameters.

-

-    The target database and table are specified by the `db' and `table'

-    parameters. If they do not exist, and the `createdb' parameter is set,

-    they will be created. Table field definitions are determined in the

-    following order:

-

+NAME
+    rdb2pg - insert an rdb table into a PostgreSQL database
+
+SYNOPSIS
+    rdb2pg [*param*=*value* ...]
+
+PARAMETERS
+    rdb2pg uses an IRAF-compatible parameter interface. A template parameter
+    file is in /proj/axaf/simul/lib/uparm/rdb2pg.par.
+
+    input *file*
+        The RDB file to insert into the database. If the given name is the
+        string `stdin', it reads from the UNIX standard input stream.
+
+DESCRIPTION
+    rdb2pg will enter the data from an RDB database into a PostgreSQL
+    database table, optionally creating the database and the table if they
+    do not exist. It automatically determines the PostgreSQL data type from
+    the column definition in the RDB file, but may be overriden via a series
+    of definition files or directly via one of its parameters.
+
+    The target database and table are specified by the `db' and `table'
+    parameters. If they do not exist, and the `createdb' parameter is set,
+    they will be created. Table field definitions are determined in the
+    following order:
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/include.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/include.t
index 9edb47864ce..4e73b783563 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/include.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/include.t
@@ -1,36 +1,36 @@
-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__

-

-

-=pod

-

-This file tries to demonstrate a simple =include directive

-for pods. It is used as follows:

-

-   =include filename

-

-where "filename" is expected to be an absolute pathname, or else

-reside be relative to the directory in which the current processed

-podfile resides, or be relative to the current directory.

-

-Lets try it out with the file "included.t" shall we.

-

-***THIS TEXT IS IMMEDIATELY BEFORE THE INCLUDE***

-

-=include included.t

-

-***THIS TEXT IS IMMEDIATELY AFTER THE INCLUDE***

-

-So how did we do???

+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__
+
+
+=pod
+
+This file tries to demonstrate a simple =include directive
+for pods. It is used as follows:
+
+   =include filename
+
+where "filename" is expected to be an absolute pathname, or else
+reside be relative to the directory in which the current processed
+podfile resides, or be relative to the current directory.
+
+Lets try it out with the file "included.t" shall we.
+
+***THIS TEXT IS IMMEDIATELY BEFORE THE INCLUDE***
+
+=include included.t
+
+***THIS TEXT IS IMMEDIATELY AFTER THE INCLUDE***
+
+So how did we do???
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/include.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/include.xr
index 187653b741a..624ee444474 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/include.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/include.xr
@@ -1,22 +1,22 @@
-    This file tries to demonstrate a simple =include directive for pods. It

-    is used as follows:

-

-       =include filename

-

-    where "filename" is expected to be an absolute pathname, or else reside

-    be relative to the directory in which the current processed podfile

-    resides, or be relative to the current directory.

-

-    Lets try it out with the file "included.t" shall we.

-

-    ***THIS TEXT IS IMMEDIATELY BEFORE THE INCLUDE***

-

-###### begin =include included.t #####

-    This is the text of the included file named "included.t". It should

-    appear in the final pod document from pod2xxx

-

-###### end =include included.t #####

-    ***THIS TEXT IS IMMEDIATELY AFTER THE INCLUDE***

-

-    So how did we do???

-

+    This file tries to demonstrate a simple =include directive for pods. It
+    is used as follows:
+
+       =include filename
+
+    where "filename" is expected to be an absolute pathname, or else reside
+    be relative to the directory in which the current processed podfile
+    resides, or be relative to the current directory.
+
+    Lets try it out with the file "included.t" shall we.
+
+    ***THIS TEXT IS IMMEDIATELY BEFORE THE INCLUDE***
+
+###### begin =include included.t #####
+    This is the text of the included file named "included.t". It should
+    appear in the final pod document from pod2xxx
+
+###### end =include included.t #####
+    ***THIS TEXT IS IMMEDIATELY AFTER THE INCLUDE***
+
+    So how did we do???
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/included.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/included.t
index d6e4a504311..4f171c454bf 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/included.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/included.t
@@ -1,35 +1,35 @@
-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__

-

-

-##------------------------------------------------------------

-# This file is =included by "include.t"

-#

-# This text should NOT be in the resultant pod document

-# because we havent seen an =xxx pod directive in this file!

-##------------------------------------------------------------

-

-=pod

-

-This is the text of the included file named "included.t".

-It should appear in the final pod document from pod2xxx

-

-=cut

-

-##------------------------------------------------------------

-# This text should NOT be in the resultant pod document

-# because it is *after* an =cut an no other pod directives

-# proceed it!

-##------------------------------------------------------------

+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__
+
+
+##------------------------------------------------------------
+# This file is =included by "include.t"
+#
+# This text should NOT be in the resultant pod document
+# because we havent seen an =xxx pod directive in this file!
+##------------------------------------------------------------
+
+=pod
+
+This is the text of the included file named "included.t".
+It should appear in the final pod document from pod2xxx
+
+=cut
+
+##------------------------------------------------------------
+# This text should NOT be in the resultant pod document
+# because it is *after* an =cut an no other pod directives
+# proceed it!
+##------------------------------------------------------------
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/included.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/included.xr
index 16a65cd3586..54142fa0d32 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/included.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/included.xr
@@ -1,3 +1,3 @@
-    This is the text of the included file named "included.t". It should

-    appear in the final pod document from pod2xxx

-

+    This is the text of the included file named "included.t". It should
+    appear in the final pod document from pod2xxx
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/lref.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/lref.t
index 33a0a7ca9f3..02e2c9e3071 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/lref.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/lref.t
@@ -1,66 +1,66 @@
-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__

-

-

-=pod

-

-Try out I<LOTS> of different ways of specifying references:

-

-Reference the L<manpage/section>

-

-Reference the L<manpage / section>

-

-Reference the L<manpage/ section>

-

-Reference the L<manpage /section>

-

-Reference the L<"manpage/section">

-

-Reference the L<"manpage"/section>

-

-Reference the L<manpage/"section">

-

-Reference the L<manpage/

-section>

-

-Reference the L<manpage

-/section>

-

-Now try it using the new "|" stuff ...

-

-Reference the L<thistext|manpage/section>

-

-Reference the L<thistext | manpage / section>

-

-Reference the L<thistext| manpage/ section>

-

-Reference the L<thistext |manpage /section>

-

-Reference the L<thistext|

-"manpage/section">

-

-Reference the L<thistext

-|"manpage"/section>

-

-Reference the L<thistext|manpage/"section">

-

-Reference the L<thistext|

-manpage/

-section>

-

-Reference the L<thistext

-|manpage

-/section>

-

+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__
+
+
+=pod
+
+Try out I<LOTS> of different ways of specifying references:
+
+Reference the L<manpage/section>
+
+Reference the L<manpage / section>
+
+Reference the L<manpage/ section>
+
+Reference the L<manpage /section>
+
+Reference the L<"manpage/section">
+
+Reference the L<"manpage"/section>
+
+Reference the L<manpage/"section">
+
+Reference the L<manpage/
+section>
+
+Reference the L<manpage
+/section>
+
+Now try it using the new "|" stuff ...
+
+Reference the L<thistext|manpage/section>
+
+Reference the L<thistext | manpage / section>
+
+Reference the L<thistext| manpage/ section>
+
+Reference the L<thistext |manpage /section>
+
+Reference the L<thistext|
+"manpage/section">
+
+Reference the L<thistext
+|"manpage"/section>
+
+Reference the L<thistext|manpage/"section">
+
+Reference the L<thistext|
+manpage/
+section>
+
+Reference the L<thistext
+|manpage
+/section>
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/lref.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/lref.xr
index c287cf5a6d9..297053b1ace 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/lref.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/lref.xr
@@ -1,40 +1,40 @@
-    Try out *LOTS* of different ways of specifying references:

-

-    Reference the the section entry in the manpage manpage

-

-    Reference the the section entry in the manpage manpage

-

-    Reference the the section entry in the manpage manpage

-

-    Reference the the section entry in the manpage manpage

-

-    Reference the the section on "manpage/section"

-

-    Reference the the section entry in the "manpage" manpage

-

-    Reference the the section on "section" in the manpage manpage

-

-    Reference the the section entry in the manpage manpage

-

-    Reference the the section entry in the manpage manpage

-

-    Now try it using the new "|" stuff ...

-

-    Reference the thistext

-

-    Reference the thistext

-

-    Reference the thistext

-

-    Reference the thistext

-

-    Reference the thistext

-

-    Reference the thistext

-

-    Reference the thistext

-

-    Reference the thistext

-

-    Reference the thistext

-

+    Try out *LOTS* of different ways of specifying references:
+
+    Reference the the section entry in the manpage manpage
+
+    Reference the the section entry in the manpage manpage
+
+    Reference the the section entry in the manpage manpage
+
+    Reference the the section entry in the manpage manpage
+
+    Reference the the section on "manpage/section"
+
+    Reference the the section entry in the "manpage" manpage
+
+    Reference the the section on "section" in the manpage manpage
+
+    Reference the the section entry in the manpage manpage
+
+    Reference the the section entry in the manpage manpage
+
+    Now try it using the new "|" stuff ...
+
+    Reference the thistext
+
+    Reference the thistext
+
+    Reference the thistext
+
+    Reference the thistext
+
+    Reference the thistext
+
+    Reference the thistext
+
+    Reference the thistext
+
+    Reference the thistext
+
+    Reference the thistext
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/multiline_items.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/multiline_items.t
index 98ad34222eb..0fe410a4e6d 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/multiline_items.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/multiline_items.t
@@ -1,31 +1,31 @@
-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__

-

-

-=head1 Test multiline item lists

-

-This is a test to ensure that multiline =item paragraphs

-get indented appropriately.

-

-=over 4 

-

-=item This 

-is

-a

-test.

-

-=back

-

-=cut

+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__
+
+
+=head1 Test multiline item lists
+
+This is a test to ensure that multiline =item paragraphs
+get indented appropriately.
+
+=over 4 
+
+=item This 
+is
+a
+test.
+
+=back
+
+=cut
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/multiline_items.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/multiline_items.xr
index cda163b7f5b..9eea63a8f09 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/multiline_items.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/multiline_items.xr
@@ -1,6 +1,6 @@
-Test multiline item lists

-    This is a test to ensure that multiline =item paragraphs get indented

-    appropriately.

-

-    This is a test.

-

+Test multiline item lists
+    This is a test to ensure that multiline =item paragraphs get indented
+    appropriately.
+
+    This is a test.
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_items.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_items.t
index f60a67f1abb..c8e9b224272 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_items.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_items.t
@@ -1,64 +1,64 @@
-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__

-

-

-=head1 Test nested item lists

-

-This is a test to ensure the nested =item paragraphs

-get indented appropriately.

-

-=over 2

-

-=item 1

-

-First section.

-

-=over 2

-

-=item a

-

-this is item a

-

-=item b

-

-this is item b

-

-=back

-

-=item 2

-

-Second section.

-

-=over 2

-

-=item a

-

-this is item a

-

-=item b

-

-this is item b

-

-=item c

-

-=item d

-

-This is item c & d.

-

-=back

-

-=back

-

-=cut

+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__
+
+
+=head1 Test nested item lists
+
+This is a test to ensure the nested =item paragraphs
+get indented appropriately.
+
+=over 2
+
+=item 1
+
+First section.
+
+=over 2
+
+=item a
+
+this is item a
+
+=item b
+
+this is item b
+
+=back
+
+=item 2
+
+Second section.
+
+=over 2
+
+=item a
+
+this is item a
+
+=item b
+
+this is item b
+
+=item c
+
+=item d
+
+This is item c & d.
+
+=back
+
+=back
+
+=cut
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_items.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_items.xr
index 30834e9ca62..dd1adac1272 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_items.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_items.xr
@@ -1,19 +1,19 @@
-Test nested item lists

-    This is a test to ensure the nested =item paragraphs get indented

-    appropriately.

-

-    1 First section.

-

-      a this is item a

-

-      b this is item b

-

-    2 Second section.

-

-      a this is item a

-

-      b this is item b

-

-      c

-      d This is item c & d.

-

+Test nested item lists
+    This is a test to ensure the nested =item paragraphs get indented
+    appropriately.
+
+    1 First section.
+
+      a this is item a
+
+      b this is item b
+
+    2 Second section.
+
+      a this is item a
+
+      b this is item b
+
+      c
+      d This is item c & d.
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_seqs.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_seqs.t
index 6f7ae67e997..8559f1f25f6 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_seqs.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_seqs.t
@@ -1,23 +1,23 @@
-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__

-

-

-=pod

-

-The statement: C<This is dog kind's I<finest> hour!> is a parody of a

-quotation from Winston Churchill.

-

-=cut

-

+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__
+
+
+=pod
+
+The statement: C<This is dog kind's I<finest> hour!> is a parody of a
+quotation from Winston Churchill.
+
+=cut
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_seqs.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_seqs.xr
index 4d2e09e499c..f981061f949 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_seqs.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/nested_seqs.xr
@@ -1,3 +1,3 @@
-    The statement: `This is dog kind's *finest* hour!' is a parody of a

-    quotation from Winston Churchill.

-

+    The statement: `This is dog kind's *finest* hour!' is a parody of a
+    quotation from Winston Churchill.
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/oneline_cmds.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/oneline_cmds.t
index 65df35271be..28bd1d09e5f 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/oneline_cmds.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/oneline_cmds.t
@@ -1,46 +1,46 @@
-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__

-

-

-==head1 NAME

-B<rdb2pg> - insert an rdb table into a PostgreSQL database

-

-==head1 SYNOPSIS

-B<rdb2pg>  [I<param>=I<value> ...]

-

-==head1 PARAMETERS

-B<rdb2pg> uses an IRAF-compatible parameter interface.  

-A template parameter file is in F</proj/axaf/simul/lib/uparm/rdb2pg.par>.

-

-==over 4

-==item B<input> I<file>

-The B<RDB> file to insert into the database. If the given name

-is the string C<stdin>, it reads from the UNIX standard input stream.

-

-==back

-

-==head1 DESCRIPTION

-B<rdb2pg> will enter the data from an B<RDB> database into a

-PostgreSQL database table, optionally creating the database and the

-table if they do not exist.  It automatically determines the

-PostgreSQL data type from the column definition in the B<RDB> file,

-but may be overriden via a series of definition files or directly

-via one of its parameters.

-

-The target database and table are specified by the C<db> and C<table>

-parameters.  If they do not exist, and the C<createdb> parameter is

-set, they will be created.  Table field definitions are determined

-in the following order:

-

+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__
+
+
+==head1 NAME
+B<rdb2pg> - insert an rdb table into a PostgreSQL database
+
+==head1 SYNOPSIS
+B<rdb2pg>  [I<param>=I<value> ...]
+
+==head1 PARAMETERS
+B<rdb2pg> uses an IRAF-compatible parameter interface.  
+A template parameter file is in F</proj/axaf/simul/lib/uparm/rdb2pg.par>.
+
+==over 4
+==item B<input> I<file>
+The B<RDB> file to insert into the database. If the given name
+is the string C<stdin>, it reads from the UNIX standard input stream.
+
+==back
+
+==head1 DESCRIPTION
+B<rdb2pg> will enter the data from an B<RDB> database into a
+PostgreSQL database table, optionally creating the database and the
+table if they do not exist.  It automatically determines the
+PostgreSQL data type from the column definition in the B<RDB> file,
+but may be overriden via a series of definition files or directly
+via one of its parameters.
+
+The target database and table are specified by the C<db> and C<table>
+parameters.  If they do not exist, and the C<createdb> parameter is
+set, they will be created.  Table field definitions are determined
+in the following order:
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/oneline_cmds.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/oneline_cmds.xr
index f92efb5ecf5..fb37a2b0cf6 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/oneline_cmds.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/oneline_cmds.xr
@@ -1,26 +1,26 @@
-NAME

-    rdb2pg - insert an rdb table into a PostgreSQL database

-

-SYNOPSIS

-    rdb2pg [*param*=*value* ...]

-

-PARAMETERS

-    rdb2pg uses an IRAF-compatible parameter interface. A template parameter

-    file is in /proj/axaf/simul/lib/uparm/rdb2pg.par.

-

-    input *file*

-        The RDB file to insert into the database. If the given name is the

-        string `stdin', it reads from the UNIX standard input stream.

-

-DESCRIPTION

-    rdb2pg will enter the data from an RDB database into a PostgreSQL

-    database table, optionally creating the database and the table if they

-    do not exist. It automatically determines the PostgreSQL data type from

-    the column definition in the RDB file, but may be overriden via a series

-    of definition files or directly via one of its parameters.

-

-    The target database and table are specified by the `db' and `table'

-    parameters. If they do not exist, and the `createdb' parameter is set,

-    they will be created. Table field definitions are determined in the

-    following order:

-

+NAME
+    rdb2pg - insert an rdb table into a PostgreSQL database
+
+SYNOPSIS
+    rdb2pg [*param*=*value* ...]
+
+PARAMETERS
+    rdb2pg uses an IRAF-compatible parameter interface. A template parameter
+    file is in /proj/axaf/simul/lib/uparm/rdb2pg.par.
+
+    input *file*
+        The RDB file to insert into the database. If the given name is the
+        string `stdin', it reads from the UNIX standard input stream.
+
+DESCRIPTION
+    rdb2pg will enter the data from an RDB database into a PostgreSQL
+    database table, optionally creating the database and the table if they
+    do not exist. It automatically determines the PostgreSQL data type from
+    the column definition in the RDB file, but may be overriden via a series
+    of definition files or directly via one of its parameters.
+
+    The target database and table are specified by the `db' and `table'
+    parameters. If they do not exist, and the `createdb' parameter is set,
+    they will be created. Table field definitions are determined in the
+    following order:
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/podselect.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/podselect.t
index 2d8e6b4f585..0004548cb7a 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/podselect.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/podselect.t
@@ -1,18 +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 podselect.PL

-

-

+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 podselect.PL
+
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/podselect.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/podselect.xr
index 00b977491cd..c288e91280c 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/podselect.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/podselect.xr
@@ -1,44 +1,44 @@
-###### begin =include podselect.PL #####

-NAME

-    podselect - print selected sections of pod documentation on standard

-    output

-

-SYNOPSIS

-    podselect [-help] [-man] [-section *section-spec*] [*file* ...]

-

-OPTIONS AND ARGUMENTS

-    -help   Print a brief help message and exit.

-

-    -man    Print the manual page and exit.

-

-    -section *section-spec*

-            Specify a section to include in the output. See the section on

-            "SECTION SPECIFICATIONS" in the Pod::Parser manpage for the

-            format to use for *section-spec*. This option may be given

-            multiple times on the command line.

-

-    *file*  The pathname of a file from which to select sections of pod

-            documentation (defaults to standard input).

-

-DESCRIPTION

-    podselect will read the given input files looking for pod documentation

-    and will print out (in raw pod format) all sections that match one ore

-    more of the given section specifications. If no section specifications

-    are given than all pod sections encountered are output.

-

-    podselect invokes the podselect() function exported by Pod::Select

-    Please see the podselect() entry in the Pod::Select manpage for more

-    details.

-

-SEE ALSO

-    the Pod::Parser manpage and the Pod::Select manpage

-

-AUTHOR

-    Please report bugs using http://rt.cpan.org.

-

-    Brad Appleton <bradapp@enteract.com>

-

-    Based on code for Pod::Text::pod2text(1) written by Tom Christiansen

-    <tchrist@mox.perl.com>

-

-###### end =include podselect.PL #####

+###### begin =include podselect.PL #####
+NAME
+    podselect - print selected sections of pod documentation on standard
+    output
+
+SYNOPSIS
+    podselect [-help] [-man] [-section *section-spec*] [*file* ...]
+
+OPTIONS AND ARGUMENTS
+    -help   Print a brief help message and exit.
+
+    -man    Print the manual page and exit.
+
+    -section *section-spec*
+            Specify a section to include in the output. See the section on
+            "SECTION SPECIFICATIONS" in the Pod::Parser manpage for the
+            format to use for *section-spec*. This option may be given
+            multiple times on the command line.
+
+    *file*  The pathname of a file from which to select sections of pod
+            documentation (defaults to standard input).
+
+DESCRIPTION
+    podselect will read the given input files looking for pod documentation
+    and will print out (in raw pod format) all sections that match one ore
+    more of the given section specifications. If no section specifications
+    are given than all pod sections encountered are output.
+
+    podselect invokes the podselect() function exported by Pod::Select
+    Please see the podselect() entry in the Pod::Select manpage for more
+    details.
+
+SEE ALSO
+    the Pod::Parser manpage and the Pod::Select manpage
+
+AUTHOR
+    Please report bugs using http://rt.cpan.org.
+
+    Brad Appleton <bradapp@enteract.com>
+
+    Based on code for Pod::Text::pod2text(1) written by Tom Christiansen
+    <tchrist@mox.perl.com>
+
+###### end =include podselect.PL #####
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/special_seqs.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/special_seqs.t
index f1399ccf771..ecd99ecde81 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/special_seqs.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/special_seqs.t
@@ -1,46 +1,46 @@
-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__

-

-

-=pod

-

-This is a test to see if I can do not only C<$self> and C<method()>, but

-also C<< $self->method() >> and C<< $self->{FIELDNAME} >> and

-C<< $Foo <=> $Bar >> without resorting to escape sequences. If 

-I want to refer to the right-shift operator I can do something

-like C<<< $x >> 3 >>> or even C<<<< $y >> 5 >>>>.

-

-Now for the grand finale of C<< $self->method()->{FIELDNAME} = {FOO=>BAR} >>.

-And I also want to make sure that newlines work like this

-C<<<

-$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]

->>>

-

-Of course I should still be able to do all this I<with> escape sequences

-too: C<$self-E<gt>method()> and C<$self-E<gt>{FIELDNAME}> and C<{FOO=E<gt>BAR}>.

-

-Dont forget C<$self-E<gt>method()-E<gt>{FIELDNAME} = {FOO=E<gt>BAR}>.

-

-And make sure that C<0> works too!

-

-Now, if I use << or >> as my delimiters, then I have to use whitespace.

-So things like C<<$self->method()>> and C<<$self->{FIELDNAME}>> wont end

-up doing what you might expect since the first > will still terminate

-the first < seen.

-

-Lets make sure these work for empty ones too, like C<<  >> and C<< >> >>

-(just to be obnoxious)

-

-=cut

+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__
+
+
+=pod
+
+This is a test to see if I can do not only C<$self> and C<method()>, but
+also C<< $self->method() >> and C<< $self->{FIELDNAME} >> and
+C<< $Foo <=> $Bar >> without resorting to escape sequences. If 
+I want to refer to the right-shift operator I can do something
+like C<<< $x >> 3 >>> or even C<<<< $y >> 5 >>>>.
+
+Now for the grand finale of C<< $self->method()->{FIELDNAME} = {FOO=>BAR} >>.
+And I also want to make sure that newlines work like this
+C<<<
+$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]
+>>>
+
+Of course I should still be able to do all this I<with> escape sequences
+too: C<$self-E<gt>method()> and C<$self-E<gt>{FIELDNAME}> and C<{FOO=E<gt>BAR}>.
+
+Dont forget C<$self-E<gt>method()-E<gt>{FIELDNAME} = {FOO=E<gt>BAR}>.
+
+And make sure that C<0> works too!
+
+Now, if I use << or >> as my delimiters, then I have to use whitespace.
+So things like C<<$self->method()>> and C<<$self->{FIELDNAME}>> wont end
+up doing what you might expect since the first > will still terminate
+the first < seen.
+
+Lets make sure these work for empty ones too, like C<<  >> and C<< >> >>
+(just to be obnoxious)
+
+=cut
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/special_seqs.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/special_seqs.xr
index 4d6c55e5a18..a8c715ae0ac 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/special_seqs.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/special_seqs.xr
@@ -1,25 +1,25 @@
-    This is a test to see if I can do not only `$self' and `method()', but

-    also `$self->method()' and `$self->{FIELDNAME}' and `$Foo <=> $Bar'

-    without resorting to escape sequences. If I want to refer to the

-    right-shift operator I can do something like `$x >> 3' or even `$y >>

-    5'.

-

-    Now for the grand finale of `$self->method()->{FIELDNAME} = {FOO=>BAR}'.

-    And I also want to make sure that newlines work like this

-    `$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]'

-

-    Of course I should still be able to do all this *with* escape sequences

-    too: `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}'.

-

-    Dont forget `$self->method()->{FIELDNAME} = {FOO=>BAR}'.

-

-    And make sure that `0' works too!

-

-    Now, if I use << or >> as my delimiters, then I have to use whitespace.

-    So things like `<$self-'method()>> and `<$self-'{FIELDNAME}>> wont end

-    up doing what you might expect since the first > will still terminate

-    the first < seen.

-

-    Lets make sure these work for empty ones too, like and `>>' (just to be

-    obnoxious)

-

+    This is a test to see if I can do not only `$self' and `method()', but
+    also `$self->method()' and `$self->{FIELDNAME}' and `$Foo <=> $Bar'
+    without resorting to escape sequences. If I want to refer to the
+    right-shift operator I can do something like `$x >> 3' or even `$y >>
+    5'.
+
+    Now for the grand finale of `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
+    And I also want to make sure that newlines work like this
+    `$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]'
+
+    Of course I should still be able to do all this *with* escape sequences
+    too: `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}'.
+
+    Dont forget `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
+
+    And make sure that `0' works too!
+
+    Now, if I use << or >> as my delimiters, then I have to use whitespace.
+    So things like `<$self-'method()>> and `<$self-'{FIELDNAME}>> wont end
+    up doing what you might expect since the first > will still terminate
+    the first < seen.
+
+    Lets make sure these work for empty ones too, like and `>>' (just to be
+    obnoxious)
+
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testcmp.pl b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testcmp.pl
index b8592fcc2a8..17f0b0b4c2c 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testcmp.pl
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testcmp.pl
@@ -1,94 +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;

+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-Parser/t/pod/testp2pt.pl b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testp2pt.pl
index 4ed58446876..308cd1ccd6b 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testp2pt.pl
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testp2pt.pl
@@ -141,8 +141,8 @@ sub testpodplaintext( @ ) {
    my %opts = (ref $_[0] eq 'HASH') ? %{shift()} : ();
    my @testpods = @_;
    my ($testname, $testdir) = ("", "");
-   my ($podfile , $cmpfile) = ("", "");
-   my ($outfile , $errfile) = ("", "");
+   my ($podfile, $cmpfile) = ("", "");
+   my ($outfile, $errfile) = ("", "");
    my $passes = 0;
    my $failed = 0;
    local $_;
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testpchk.pl b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testpchk.pl
index 0464a9a0fcf..8aa10b94f87 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testpchk.pl
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testpchk.pl
@@ -1,130 +1,129 @@
-package TestPodChecker;

-

-BEGIN {

-   use File::Basename;

-   use File::Spec;

-   push @INC, '..';

-   my $THISDIR = dirname $0;

-   unshift @INC, $THISDIR;

-   require "testcmp.pl";

-   import TestCompare;

-   my $PARENTDIR = dirname $THISDIR;

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

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

-}

-

-use Pod::Checker;

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

-#use strict;

-#use diagnostics;

-use Carp;

-use Exporter;

-#use File::Compare;

-

-@ISA = qw(Exporter);

-@EXPORT = qw(&testpodchecker);

-@EXPORT_OK = qw(&testpodcheck);

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

-

-sub stripname( $ ) {

-   local $_ = shift;

-   return /(\w[.\w]*)\s*$/ ? $1 : $_;

-}

-

-sub msgcmp( $ $ ) {

-   ## filter out platform-dependent aspects of error messages

-   my ($line1, $line2) = @_;

-   for ($line1, $line2) {

-      ## remove filenames from error messages to avoid any

-      ## filepath naming differences between OS platforms

-      s/(at line \S+ in file) .*\W(\w+\.[tT])\s*$/$1 \L$2\E/;

-      s/.*\W(\w+\.[tT]) (has \d+ pod syntax error)/\L$1\E $2/;

-   }

-   return ($line1 ne $line2);

-}

-

-sub testpodcheck( @ ) {

-   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 $infile, '.t', '.xr';

-

-   unless (-e $cmpfile) {

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

-      warn  "$msg\n";

-      return  $msg;

-   }

-

-   print "# Running podchecker for '$testname'...\n";

-   ## Compare the output against the expected result

-   if ($^O eq 'VMS') {

-      for ($infile, $outfile, $cmpfile) {

-         $_ = VMS::Filespec::unixify($_)  unless  ref;

-      }

-   }

-   podchecker($infile, $outfile);

-   if ( testcmp({'-cmplines' => \&msgcmp}, $outfile, $cmpfile) ) {

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

-   }

-   else {

-       unlink($outfile);

-   }

-   return  $different;

-}

-

-sub testpodchecker( @ ) {

-   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\"" .

-                   " podchecker test ...\n";

-             podchecker($podfile, $cmpfile);

-          }

-          else {

-             print "# File $cmpfile already exists" .

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

-          }

-          next;

-      }

-

-      my $failmsg = testpodcheck

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

+package TestPodChecker;
+
+BEGIN {
+   use File::Basename;
+   use File::Spec;
+   push @INC, '..';
+   my $THISDIR = dirname $0;
+   unshift @INC, $THISDIR;
+   require "testcmp.pl";
+   import TestCompare;
+   my $PARENTDIR = dirname $THISDIR;
+   push @INC, map { File::Spec->catfile($_, 'lib') } ($PARENTDIR, $THISDIR);
+   require VMS::Filespec if $^O eq 'VMS';
+}
+
+use Pod::Checker;
+use vars qw(@ISA @EXPORT $MYPKG);
+#use strict;
+#use diagnostics;
+use Carp;
+use Exporter;
+#use File::Compare;
+
+@ISA = qw(Exporter);
+@EXPORT = qw(&testpodchecker);
+$MYPKG = eval { (caller)[0] };
+
+sub stripname( $ ) {
+   local $_ = shift;
+   return /(\w[.\w]*)\s*$/ ? $1 : $_;
+}
+
+sub msgcmp( $ $ ) {
+   ## filter out platform-dependent aspects of error messages
+   my ($line1, $line2) = @_;
+   for ($line1, $line2) {
+      ## remove filenames from error messages to avoid any
+      ## filepath naming differences between OS platforms
+      s/(at line \S+ in file) .*\W(\w+\.[tT])\s*$/$1 \L$2\E/;
+      s/.*\W(\w+\.[tT]) (has \d+ pod syntax error)/\L$1\E $2/;
+   }
+   return ($line1 ne $line2);
+}
+
+sub testpodcheck( @ ) {
+   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 podchecker for '$testname'...\n";
+   ## Compare the output against the expected result
+   if ($^O eq 'VMS') {
+      for ($infile, $outfile, $cmpfile) {
+         $_ = VMS::Filespec::unixify($_)  unless  ref;
+      }
+   }
+   podchecker($infile, $outfile);
+   if ( testcmp({'-cmplines' => \&msgcmp}, $outfile, $cmpfile) ) {
+       $different = "$outfile is different from $cmpfile";
+   }
+   else {
+       unlink($outfile);
+   }
+   return  $different;
+}
+
+sub testpodchecker( @ ) {
+   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\"" .
+                   " podchecker test ...\n";
+             podchecker($podfile, $cmpfile);
+          }
+          else {
+             print "# File $cmpfile already exists" .
+                   " (use '-force' to regenerate it).\n";
+          }
+          next;
+      }
+
+      my $failmsg = testpodcheck
+                        -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-Parser/t/pod/testpods/lib/Pod/Stuff.pm b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testpods/lib/Pod/Stuff.pm
index 00a719c6560..d5c11203037 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testpods/lib/Pod/Stuff.pm
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/testpods/lib/Pod/Stuff.pm
@@ -1,20 +1,20 @@
-=head1 NAME

-

-Pod::Stuff - dummy testing pod

-

-=head1 DESCRIPTION

-

-This isn't really anything, its just some dummy pod code.

-And stuff.

-

-Lots of stuff.

-

-=head2 STUFF

-

-For all your stuff [tm]

-

-Stuffit

-

-Mmmm, stuffed pizza bread.

-

-=cut

+=head1 NAME
+
+Pod::Stuff - dummy testing pod
+
+=head1 DESCRIPTION
+
+This isn't really anything, its just some dummy pod code.
+And stuff.
+
+Lots of stuff.
+
+=head2 STUFF
+
+For all your stuff [tm]
+
+Stuffit
+
+Mmmm, stuffed pizza bread.
+
+=cut
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/twice.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/twice.t
index ffb957dadda..098bc3c628d 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/twice.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/twice.t
@@ -1,36 +1,36 @@
-use strict;

-use Test;

-use File::Spec;

-

-BEGIN { plan tests => 1 }

-

-use Pod::Parser;

-use Carp;

-$SIG{__DIE__} = \&Carp::confess;

-

-eval {require IO::String;};

-skip($@ ? 'no IO::String' : '', sub {

-  {

-    my $pod_string = 'some I<silly> text';

-    my $handle = IO::String->new( \$pod_string );

-    my $parser = Pod::Parser->new();

-    $parser->parse_from_file( $0, $handle );

-  }

-  # free the reference

-  {

-    my $parser = Pod::Parser->new();

-    $parser->parse_from_file( $0, File::Spec->devnull );

-  }

-  1;

-});

-

-exit 0;

-

-__END__

-

-=head1 EXAMPLE

-

-This test makes sure the parse_from_file is re-entrant

-

-=cut

-

+use strict;
+use Test;
+use File::Spec;
+
+BEGIN { plan tests => 1 }
+
+use Pod::Parser;
+use Carp;
+$SIG{__DIE__} = \&Carp::confess;
+
+eval {require IO::String;};
+skip($@ ? 'no IO::String' : '', sub {
+  {
+    my $pod_string = 'some I<silly> text';
+    my $handle = IO::String->new( \$pod_string );
+    my $parser = Pod::Parser->new();
+    $parser->parse_from_file( $0, $handle );
+  }
+  # free the reference
+  {
+    my $parser = Pod::Parser->new();
+    $parser->parse_from_file( $0, File::Spec->devnull );
+  }
+  1;
+});
+
+exit 0;
+
+__END__
+
+=head1 EXAMPLE
+
+This test makes sure the parse_from_file is re-entrant
+
+=cut
+