On Mar 20, 2005, at 4:09 PM, Yitzchak Scott-Thoennes wrote:
I was thinking along the lines of:
if (have_compiler($errmsg)) { plan tests => 1; } else { plan skip_all => $errmsg; }
sub have_compiler { my $errmsg = "";
...
$_[0] = $errmsg if @_; return $have_compiler; }
It would probably be better to set $@ or another global. Using inout-style arguments is a little unexpected these days unless the arg is a reference to a data structure.
-Ken
