Re: capture errors from eval

[tinita]

I'd do it like this:

my $re = eval { qr/$x/ };
if ($@) { ... }
else { $string =~ $re }