[Quoting Paul Johnson, on March 16 2006, 12:22, in "Re: RFC: GetoptionsF"]
>         my $result = GetOptions(@opts);
>         wantarray ? ($result, @ARGV) : $result

    wantarray ? ($result, @ARGV)
              : @ARGV ? die(...) : $result;

-- Johan


Reply via email to