[perl #77098] [PATCH] Fixing *error getting set to itself, which must be an error

[via RT]

# New Ticket Created by  Andy Lester 
# Please include the string:  [perl #77098]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=77098 >


>From fe669b447b49aea2500f8ca29f7e20832d86684f Mon Sep 17 00:00:00 2001
From: Andy Lester <a...@petdance.com>
Date: Sun, 8 Aug 2010 23:26:59 -0500
Subject: [PATCH] Fix a problem of setting *error with itself.

---
 src/binder/bind.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/binder/bind.c b/src/binder/bind.c
index d64c237..18a8f80 100644
--- a/src/binder/bind.c
+++ b/src/binder/bind.c
@@ -767,7 +767,7 @@ Rakudo_binding_bind_llsig(PARROT_INTERP, PMC *lexpad, PMC 
*llsig,
     if (cur_pos_arg < num_pos_args && !suppress_arity_fail) {
         /* Oh noes, too many positionals passed. */
         if (error)
-            *error = *error = Rakudo_binding_arity_fail(interp, elements, 
num_elements, num_pos_args, 1);
+            *error = Rakudo_binding_arity_fail(interp, elements, num_elements, 
num_pos_args, 1);
         return BIND_RESULT_FAIL;
     }
     if (!PMC_IS_NULL(named_args_copy) && VTABLE_elements(interp, 
named_args_copy)) {
-- 
1.7.1