Ticket #2095: t.op.spawnw.t.diff

File t.op.spawnw.t.diff, 481 bytes (added by jkeenan, 4 years ago)

Eliminate us of 'env'

  • t/op/spawnw.t

    diff --git a/t/op/spawnw.t b/t/op/spawnw.t
    index bb48be1..82a4d0b 100644
    a b  
    4545 
    4646# test string version of spawnw 
    4747 
    48  
    49 my $perl = "perl"; 
    50 my $perl_exists = `perl -V`; 
    51 unless ($perl_exists) { 
    52     if( -e "/usr/bin/env" ) { 
    53         $perl = system("/usr/bin/env perl"); 
    54     } 
    55 } 
    56  
     48my $perl = $^X; 
    5749 
    5850pasm_output_is( <<"CODE", <<'OUTPUT', "exit code: 0" ); 
    5951.pcc_sub :main main: