diff options
author | Gerrit P. Haase <gp@familiehaase.de> | 2001-12-27 10:23:55 +0100 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-27 13:35:03 +0000 |
commit | 374f099828257f592a8c181d18eeff42426588cc (patch) | |
tree | 9c6331ae3cecfff8eb1ee64bd1be7e956cef7b2e | |
parent | 3853ea39bf7dbf26f8bbd5b11cd6ca8f77b7a6b7 (diff) | |
download | perl-374f099828257f592a8c181d18eeff42426588cc.tar.gz |
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
-rw-r--r-- | lib/ExtUtils/t/MM_Cygwin.t | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/ExtUtils/t/MM_Cygwin.t b/lib/ExtUtils/t/MM_Cygwin.t index 17ae269fda..eabb60899f 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 = ''; |