Fix t/commandline

AndyA · Nov 14, 2007 · 3f23a80 · 3f23a80
1 parent 265cda1
commit 3f23a80
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/t/commandline.t b/t/commandline.t
@@ -5,13 +5,14 @@ use File::Spec;
 use IPC::Run qw( run timeout );
 
 my @cmd = ( $^X, '-I' . File::Spec->catdir( 't', 'lib' ) );
+my @nop = ( '-e', '0' );
 
-like tryit( @cmd, '-MSome::Module' ), qr{^\s*$}, "no error";
+like tryit( @cmd, '-MSome::Module', @nop ), qr{^\s*$}, "no error";
 
-like tryit( @cmd, '-Ilib', '-d:Unplug=Some::Module', '-MSome::Module' ),
+like tryit( @cmd, '-Ilib', '-MDevel::Unplug=Some::Module', '-MSome::Module', @nop ),
   qr{Can't\s+locate\s+Some/Module.pm}, "error message";
 
-like tryit( @cmd, '-Ilib', '-d:Unplug=Some::Module', '-MSome::Other::Module' ),
+like tryit( @cmd, '-Ilib', '-MDevel::Unplug=Some::Module', '-MSome::Other::Module', @nop ),
   qr{^\s*$}, "no crosstalk";
 
 sub tryit {