diff options
Diffstat (limited to 'Ivy.pm')
-rw-r--r-- | Ivy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 (); } |