[perl #71204] diagnostics.pm suppresses 'Use of uninitialized value in range (or...

[p5sagit/p5-mst-13.2.git] / t / x2p / s2p.t

diff --git a/t/x2p/s2p.t b/t/x2p/s2p.t
old mode 100755 (executable)
new mode 100644 (file)
index 20000bf..95db0e2
--- a/t/x2p/s2p.t
+++ b/t/x2p/s2p.t
@@ -36,7 +36,6 @@ BEGIN {
     @INC = ( '../lib' );
 }
 
-### use Test::More;
 use File::Copy;
 use File::Spec;
 require './test.pl';
@@ -806,9 +805,6 @@ my $sedcmd = [ $psed, '-f', $script, $stdin ];
 my $s2pcmd = [ $s2p,  '-f', $script ];
 my $plcmd  = [ $plsed, $stdin ];
 
-my $switches = '';
-$switches = ['-x'] if $^O eq 'MacOS';
-
 # psed: we create a local copy as linking may not work on some systems.
 copy( $s2p, $psed );
 push( @aux, $psed );
@@ -852,19 +848,19 @@ for my $tc ( sort keys %testcase ){
 
     # run and compare
     #
-    $psedres = runperl( args => $sedcmd, switches => $switches );
+    $psedres = runperl( args => $sedcmd );
     is( $psedres, $testcase{$tc}{expect}, "psed $tc" );
 
     # 2nd test: run s2p
     # translate the sed script to a Perl program
 
-    my $perlprog = runperl( args => $s2pcmd, switches => $switches );
+    my $perlprog = runperl( args => $s2pcmd );
     open( PP, ">$plsed" ) || goto FAIL_S2P;
     print PP $perlprog;
     close( PP ) || goto FAIL_S2P;
 
     # execute generated Perl program, compare
-    $s2pres = runperl( args => $plcmd, switches => $switches );
+    $s2pres = runperl( args => $plcmd );
     is( $s2pres, $testcase{$tc}{expect}, "s2p $tc" );
     next;