Re: Untested modules update: There's more than we thought

[chromatic]

Hello again Gerrit,

You know, I didn't put the MOST important line in the block.  Here's a better 
patch.  I blame Jeffrey Friedl.  :)

Any better?

-- c


--- lib/ExtUtils/~MM_Cygwin.t	Sun Dec 16 11:02:04 2001
+++ lib/ExtUtils/MM_Cygwin.t	Sun Dec 16 19:59:44 2001
@@ -69,12 +69,17 @@
 
 $args->{MAN3PODS} = { foo => 1 };
 my $out = tie *STDOUT, 'FakeOut';
-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/,
-	'... should use default pod2man target' );
-like( $res, qr/pure_all.+foo/, '... should add MAN3PODS targets' );
+
+{
+	# try to trip warning on line 53
+	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/,
+		'... should use default pod2man target' );
+	like( $res, qr/pure_all.+foo/, '... should add MAN3PODS targets' );
+}
 
 $args->{PERL_SRC} = File::Spec->updir;
 $args->{MAN1PODS} = { bar => 1 };