test failure: lib/ExtUtils/t/Installed.t

Message-Id: <200206131444.g5DEiOo22204@crypt.compulink.co.uk>

p4raw-id: //depot/perl@17223

diff --git a/lib/ExtUtils/t/Installed.t b/lib/ExtUtils/t/Installed.t
index d609f62..a1db434 100644 (file)
--- a/lib/ExtUtils/t/Installed.t
+++ b/lib/ExtUtils/t/Installed.t
@@ -81,7 +81,7 @@ ok( $ei->_is_under('baz', @under),  '... should find file under dir' );
 
 
 my $wrotelist;
-ok(mkpath('auto/FakeMod'));
+ok(scalar mkpath('auto/FakeMod'));
 END { rmtree 'auto/FakeMod' }
 
 ok(open(PACKLIST, '>auto/FakeMod/.packlist'));