From: Gerrit P. Haase <gp@familiehaase.de>
Date: Thu, 27 Dec 2001 09:23:55 +0000 (+0100)
Subject: Re: ExtUtils::MM_Cygwin test failures (was Re: [ PATCH ] Cygwin groups.t  (PLEASE... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=374f099828257f592a8c181d18eeff42426588cc;p=p5sagit%2Fp5-mst-13.2.git

Re: ExtUtils::MM_Cygwin test failures (was Re: [ PATCH ] Cygwin groups.t  (PLEASE CHECK))
Message-ID: <98211521662.20011227092355@familiehaase.de>

p4raw-id: //depot/perl@13901
---

diff --git a/lib/ExtUtils/t/MM_Cygwin.t b/lib/ExtUtils/t/MM_Cygwin.t
index 17ae269..eabb608 100644
--- a/lib/ExtUtils/t/MM_Cygwin.t
+++ b/lib/ExtUtils/t/MM_Cygwin.t
@@ -69,13 +69,15 @@ like( $args->manifypods(), qr/pure_all\n\tnoecho/,
 
 $args->{MAN3PODS} = { foo => 1 };
 my $out = tie *STDOUT, 'FakeOut';
-my $res = $args->manifypods();
-like( $$out, qr/could not locate your pod2man/,
+{
+  local *MM::perl_script = sub { return };
+  my $res = $args->manifypods();
+  like( $$out, qr/could not locate your pod2man/,
 	'... should warn if pod2man cannot be located' );
-like( $res, qr/POD2MAN_EXE = -S pod2man/,
+  like( $res, qr/POD2MAN_EXE = -S pod2man/,
 	'... should use default pod2man target' );
-like( $res, qr/pure_all.+foo/, '... should add MAN3PODS targets' );
-
+  like( $res, qr/pure_all.+foo/, '... should add MAN3PODS targets' );
+}
 $args->{PERL_SRC} = File::Spec->updir;
 $args->{MAN1PODS} = { bar => 1 };
 $$out = '';