fix an error in validity callback checking

only the pattern [callback, arg ...] was allowed, but another
pattern is allowed : [obj, method, arg]

1 files changed, 1 insertions, 1 deletions

diff --git a/Ivy.pm b/Ivy.pm
index 60efc5c..854bffe 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -886,7 +886,7 @@ sub bindRegexp ($$$;$$)
       carp ("Warning binRegexp on $regexp :\nargument 3 (callback) is not correct and will be ignored\n");
       return ();
     }
-    if (ref ($cb->[0]) ne 'CODE') {
+    if ((ref ($cb->[0]) ne 'CODE') && (ref ($cb->[1]) ne 'CODE')) {
       carp ("Warning binRegexp on $regexp :\nargument 3 (callback) is not correct and will be ignored\n");
       return ();
     }