diff options
| author | fukachan <fukachan> | 2001-01-19 14:50:13 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-19 14:50:13 +0000 |
| commit | c35b9ccefadd1b5ed2ce6d491dc174966a201369 (patch) | |
| tree | 7398827259655c96119368e7789da746dc6ef456 /fml/libexec | |
| parent | 6bcc5c7b1aae5298c64d5fe33338d6988681ecf4 (diff) | |
| download | fml8-c35b9ccefadd1b5ed2ce6d491dc174966a201369.tar.gz fml8-c35b9ccefadd1b5ed2ce6d491dc174966a201369.tar.bz2 fml8-c35b9ccefadd1b5ed2ce6d491dc174966a201369.zip | |
croak $@ when we fail to require()
Diffstat (limited to 'fml/libexec')
| -rwxr-xr-x | fml/libexec/fml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/fml/libexec/fml b/fml/libexec/fml index cdc342f5..25852986 100755 --- a/fml/libexec/fml +++ b/fml/libexec/fml @@ -31,7 +31,9 @@ sub main::ProcessSwitch # 1. create process my $pkg = _package_we_use($args); + eval qq{ require $pkg; }; # XXX require() needs bare words. + croak($@) if $@; $pkg->import(); # fake to use() method. my $process = $pkg->new($args); # create a new process object |