in reply to Getting return code to shell

You want exit. I'd do it like this, 

my %exit_code = {
    PASSED  => 0,
    FAILED  => 1,
    ABORTED => 2
);
# ...
exit $exit_code{$STATUS};

[download]

After Compline,
Zaxo

Replies are listed 'Best First'.
Re^2: Getting return code to shell
by meetraz (Hermit) on Jun 15, 2004 at 04:17 UTC
    or even:

    
use constant {
    PASSED    => 0,
    FAILED    => 1,
    ABORTED    => 2,
};

# then use:
exit PASSED;
exit FAILED; #etc

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom