Avoid a NULL deref.

rakudo · Jun 21, 2013 · e7596b6 · e7596b6
1 parent c673b0f
commit e7596b6
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/vm/parrot/guts/bind.c b/src/vm/parrot/guts/bind.c
@@ -492,9 +492,10 @@ Rakudo_binding_bind_one_param(PARROT_INTERP, PMC *lexpad, Rakudo_Signature *sign
     if (!PMC_IS_NULL(param->coerce_type)) {
         /* Coercing natives not possible - nothing to call a method on. */
         if (bv.type != BIND_VAL_OBJ) {
-            *error = Parrot_sprintf_c(interp,
-                "Unable to coerce natively typed parameter '%S'",
-                param->variable_name);
+            if (error)
+                *error = Parrot_sprintf_c(interp,
+                    "Unable to coerce natively typed parameter '%S'",
+                    param->variable_name);
             return BIND_RESULT_FAIL;
         }