diff options
Diffstat (limited to 'test')
-rwxr-xr-x | test/run | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -198,6 +198,13 @@ sub exec_test($$) { return su($prog->[1]); } elsif ($prog->[0] eq "sg") { return sg($prog->[1]); + } elsif ($prog->[0] eq "export") { + my ($name, $value) = split /=/, prog->[1]; + $ENV{$name} = $value; + return []; + } elsif ($prog->[0] eq "unset") { + delete $ENV{$name}; + return []; } pipe *IN2, *OUT |