projects
/
pintos-anon
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove patch no longer needed.
[pintos-anon]
/
grading
/
userprog
/
prep-disk
diff --git
a/grading/userprog/prep-disk
b/grading/userprog/prep-disk
index 611fdcce55767142179d6a67dfc5fb728320e00d..f525b07adc38fbfb6bf21d81d469066a809887f3 100755
(executable)
--- a/
grading/userprog/prep-disk
+++ b/
grading/userprog/prep-disk
@@
-2,6
+2,7
@@
use strict;
use Getopt::Long;
use strict;
use Getopt::Long;
+use POSIX;
my ($pintos) = "pintos";
my ($os_disk) = "../../src/userprog/build/os.dsk";
my ($pintos) = "pintos";
my ($os_disk) = "../../src/userprog/build/os.dsk";
@@
-42,9
+43,13
@@
put_file ("sample.txt")
read-normal read-bad-ptr read-boundary read-zero
write-normal write-bad-ptr write-boundary write-zero
multi-child-fd));
read-normal read-bad-ptr read-boundary read-zero
write-normal write-bad-ptr write-boundary write-zero
multi-child-fd));
-put_file ("child-simple") if $test eq 'exec-once' or $test eq 'exec-multiple';
+put_file ("child-simple")
+ if grep ($_ eq $test,
+ qw (exec-once exec-multiple
+ join-simple join-twice));
put_file ("child-arg") if $test eq 'exec-arg';
put_file ("child-close") if $test eq 'multi-child-fd';
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';
sub put_file {
my ($fn) = @_;
sub put_file {
my ($fn) = @_;
@@
-57,5
+62,5
@@
sub put_file {
sub xsystem {
my ($cmd) = @_;
print "$cmd\n";
sub xsystem {
my ($cmd) = @_;
print "$cmd\n";
- system ($cmd) == 0
||
die "command failed\n";
+ system ($cmd) == 0
or
die "command failed\n";
}
}