Exclude a new Pod-Perldoc test script for now, since it's failing in core

Failures on Win32/MSVC++ when dropped into core are:

not ok 3 - got expected output in STDOUT
#   Failed test 'got expected output in STDOUT'
#   at t/02_module_pod_output.t line 40.
#                   undef
#     doesn't match '(?^:Look up Perl documentation)'

not ok 7 - got expected output in STDERR
#   Failed test 'got expected output in STDERR'
#   at t/02_module_pod_output.t line 73.
#                   ''perl' is not recognized as an internal or external command
,
# operable program or batch file.
# '
#     doesn't match '(?^:No documentation)'

1 files changed, 0 insertions, 74 deletions

diff --git a/cpan/Pod-Perldoc/t/02_module_pod_output.t b/cpan/Pod-Perldoc/t/02_module_pod_output.t
deleted file mode 100644
index abfaa2a548..0000000000
--- a/cpan/Pod-Perldoc/t/02_module_pod_output.t
+++ /dev/null
@@ -1,74 +0,0 @@
-
-use File::Spec;
-use FindBin qw($Bin);
-
-use IPC::Open3;
-use Test::More;
-
-
-my $pid = undef;
-my $stdout = undef;
-my $stderr = undef;
-
-# get path to perldoc exec in a hopefully platform neutral way..
-my ($volume, $bindir, undef) = File::Spec->splitpath($Bin);
-my $perldoc = File::Spec->catpath($volume,$bindir, File::Spec->catfile(qw(blib script perldoc)));
-my @dir = ($bindir,"lib","Pod");
-my $podpath = File::Spec->catdir(@dir);
-my $good_podfile = File::Spec->catpath($volume,$podpath,"Perldoc.pm");
-my $bad_podfile = File::Spec->catpath($volume,$podpath,"asdfsdaf.pm");
-
-plan tests => 7;
-
-# First, look for something that should be there
-
-eval{
-
-$pid = open3(\*CHLD_IN,\*CHLD_OUT1,\*CHLD_ERR1,"perl " .$perldoc." ".$good_podfile);
-
-};
-
-is(length($@),0,"open succeeded"); # returns '' not undef
-ok(defined($pid),"got process id");
-
-#gather STDOUT
-while(<CHLD_OUT1>){
- $stdout .=$_;
-}
-
-#check STDOUT
-like($stdout,qr/Look up Perl documentation/,"got expected output in STDOUT");
-
-while(<CHLD_ERR1>){
- $stderr .=$_;
-}
-
-#is($stderr,undef,"no output to STDERR as expected");
-
-# Then look for something that should not be there
-$stdout = undef;
-$stderr = undef;
-
-eval{
-
-$pid = open3(\*CHLD_IN,\*CHLD_OUT2,\*CHLD_ERR2,"perl " .$perldoc." ".$bad_podfile);
-
-};
-
-is(length($@),0,"open succeeded"); # returns '' not undef
-ok(defined($pid),"got process id");
-
-#gather STDOUT
-while(<CHLD_OUT2>){
- $stdout .=$_;
-}
-
-#check STDOUT
-is($stdout,undef,"no output to STDOUT as expected");
-
-while(<CHLD_ERR2>){
- $stderr .=$_;
-}
-
-like($stderr,qr/No documentation/,"got expected output in STDERR");
-