This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Pod-Parser to CPAN version 1.60
[perl5.git] / cpan / Pod-Parser / t / pod / included.t
index 4f171c4..d6e4a50 100644 (file)
@@ -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 {\r
+   use File::Basename;\r
+   my $THISDIR = dirname $0;\r
+   unshift @INC, $THISDIR;\r
+   require "testp2pt.pl";\r
+   import TestPodIncPlainText;\r
+}\r
+\r
+my %options = map { $_ => 1 } @ARGV;  ## convert cmdline to options-hash\r
+my $passed  = testpodplaintext \%options, $0;\r
+exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};\r
+\r
+\r
+__END__\r
+\r
+\r
+##------------------------------------------------------------\r
+# This file is =included by "include.t"\r
+#\r
+# This text should NOT be in the resultant pod document\r
+# because we havent seen an =xxx pod directive in this file!\r
+##------------------------------------------------------------\r
+\r
+=pod\r
+\r
+This is the text of the included file named "included.t".\r
+It should appear in the final pod document from pod2xxx\r
+\r
+=cut\r
+\r
+##------------------------------------------------------------\r
+# This text should NOT be in the resultant pod document\r
+# because it is *after* an =cut an no other pod directives\r
+# proceed it!\r
+##------------------------------------------------------------\r