| Subject: | Test failure with old perl (5.005_05) |
The last test in t/pod/pod2usage2.t fails, because old blib.pm emits
something unexpected like "Using
/mnt/i386/usr/local/src/CPAN/new.build/Pod-Parser-1.35/blib".
The attached patch fixes the problem by removing this string before
comparing with the expected output.
Regards,
Slaven
| Subject: | Pod-Parser-5.5.5.patch |
#
#
# To apply this patch:
# STEP 1: Chdir to the source directory.
# STEP 2: Run the 'applypatch' program with this patch file as input.
#
# If you do not have 'applypatch', it is part of the 'makepatch' package
# that you can fetch from the Comprehensive Perl Archive Network:
# http://www.perl.com/CPAN/authors/Johan_Vromans/makepatch-x.y.tar.gz
# In the above URL, 'x' should be 2 or higher.
#
# To apply this patch without the use of 'applypatch':
# STEP 1: Chdir to the source directory.
# STEP 2: Run the 'patch' program with this file as input.
#
#### End of Preamble ####
#### Patch data follows ####
diff -up '../build/Pod-Parser-1.35-ylgznC/t/pod/pod2usage2.t' 'Pod-Parser-1.35/t/pod/pod2usage2.t'
Index: ./t/pod/pod2usage2.t
--- ./t/pod/pod2usage2.t Sun Sep 10 22:14:32 2006
+++ ./t/pod/pod2usage2.t Wed Oct 3 23:06:22 2007
@@ -145,8 +145,9 @@ EOT
# does the __DATA__ work ok as input
($exit, $text) = getoutput( sub { system($^X, '-Mblib', File::Spec->catfile(qw(t pod p2u_data.pl))); 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)");
+ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 2, -input => \*DATA)") or diag "Got:\n$text\n";
#NAME
# Test
#
#### End of Patch data ####
#### ApplyPatch data follows ####
# Data version : 1.0
# Date generated : Wed Oct 3 23:07:20 2007
# Generated by : makepatch 2.03
# Recurse directories : Yes
# Excluded files : (\A|/).*\~\Z
# (\A|/).*\.a\Z
# (\A|/).*\.bak\Z
# (\A|/).*\.BAK\Z
# (\A|/).*\.elc\Z
# (\A|/).*\.exe\Z
# (\A|/).*\.gz\Z
# (\A|/).*\.ln\Z
# (\A|/).*\.o\Z
# (\A|/).*\.obj\Z
# (\A|/).*\.olb\Z
# (\A|/).*\.old\Z
# (\A|/).*\.orig\Z
# (\A|/).*\.rej\Z
# (\A|/).*\.so\Z
# (\A|/).*\.Z\Z
# (\A|/)\.del\-.*\Z
# (\A|/)\.make\.state\Z
# (\A|/)\.nse_depinfo\Z
# (\A|/)core\Z
# (\A|/)tags\Z
# (\A|/)TAGS\Z
# p 't/pod/pod2usage2.t' 4475 1191445582 0100755
#### End of ApplyPatch data ####
#### End of Patch kit [created: Wed Oct 3 23:07:20 2007] ####
#### Patch checksum: 49 2062 64624 ####
#### Checksum: 67 2686 50617 ####