Change 13901 by jhi@alpha on 2001/12/27 13:35:03
Subject: [PATCH] Re: ExtUtils::MM_Cygwin test failures (was Re: [ PATCH ]
Cygwin groups.t (PLEASE CHECK))
From: "Gerrit P. Haase" <[EMAIL PROTECTED]>
Date: Thu, 27 Dec 2001 09:23:55 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/ExtUtils/t/MM_Cygwin.t#2 edit
Differences ...
==== //depot/perl/lib/ExtUtils/t/MM_Cygwin.t#2 (text) ====
Index: perl/lib/ExtUtils/t/MM_Cygwin.t
--- perl/lib/ExtUtils/t/MM_Cygwin.t.~1~ Thu Dec 27 06:45:05 2001
+++ perl/lib/ExtUtils/t/MM_Cygwin.t Thu Dec 27 06:45:05 2001
@@ -69,13 +69,15 @@
$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 = '';
End of Patch.
