use strict;
use Getopt::Long;
+use POSIX;
my ($pintos) = "pintos";
my ($os_disk) = "../../src/userprog/build/os.dsk";
put_file ("child-simple")
if grep ($_ eq $test,
qw (exec-once exec-multiple
- join-simple join-twice));
+ wait-simple wait-twice));
put_file ("child-arg") if $test eq 'exec-arg';
put_file ("child-close") if $test eq 'multi-child-fd';
-put_file ("child-bad") if $test eq 'join-killed';
+put_file ("child-bad") if $test eq 'wait-killed';
sub put_file {
my ($fn) = @_;
sub xsystem {
my ($cmd) = @_;
print "$cmd\n";
- system ($cmd) == 0 || die "command failed\n";
+ system ($cmd) == 0 or die "command failed\n";
}