risugen: Include perl's error message when evaluating constraints block fails

1 files changed, 1 insertions, 1 deletions

diff --git a/risugen b/risugen
index 688789c..ca835ed 100755
--- a/risugen
+++ b/risugen
@@ -551,7 +551,7 @@ sub eval_with_fields($$$$$) {
     $evalstr .= "}";
     my $v = eval $evalstr;
     if ($@) {
-        print "Syntax error detected evaluating $insnname $blockname string:\n$block\n";
+        print "Syntax error detected evaluating $insnname $blockname string:\n$block\n$@";
         exit(1);
     }
     return $v;