File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 4646 use Config;
4747 my $perl = $Config {' perlpath' };
4848 $perl = $^X if $^O eq ' VMS' or -x $^X and $^X =~ m , ^([a-z]:)?/, i ;
49- open (DAEMON, " $perl local/http.t daemon |" ) or die " Can't exec daemon: $! " ;
49+ open (DAEMON, " $perl t/ local/http.t daemon |" ) or die " Can't exec daemon: $! " ;
5050}
5151
5252use Test;
Original file line number Diff line number Diff line change 4949 use Config;
5050 my $perl = $Config {' perlpath' };
5151 $perl = $^X if $^O eq ' VMS' or -x $^X and $^X =~ m , ^([a-z]:)?/, i ;
52- open (DAEMON, " $perl robot/ua.t daemon |" ) or die " Can't exec daemon: $! " ;
52+ open (DAEMON, " $perl t/ robot/ua.t daemon |" ) or die " Can't exec daemon: $! " ;
5353}
5454
5555print " 1..8\n " ;
Original file line number Diff line number Diff line change 4949 use Config;
5050 my $perl = $Config {' perlpath' };
5151 $perl = $^X if $^O eq ' VMS' or -x $^X and $^X =~ m , ^([a-z]:)?/, i ;
52- open (DAEMON, " $perl robot/ua.t daemon |" ) or die " Can't exec daemon: $! " ;
52+ open (DAEMON, " $perl t/ robot/ua.t daemon |" ) or die " Can't exec daemon: $! " ;
5353}
5454
5555print " 1..7\n " ;
You can’t perform that action at this time.
0 commit comments