diff options
author | bustico | 2008-02-27 16:04:47 +0000 |
---|---|---|
committer | bustico | 2008-02-27 16:04:47 +0000 |
commit | c4af522b7ac3cd0303643023b18eebb2c0ce2775 (patch) | |
tree | bc3429f99fe86121d11b54ff9c0fede571743aa6 | |
parent | c1ac8c7cf2130c3a8e8899f766c6af35205afce1 (diff) | |
download | ivy-perl-c4af522b7ac3cd0303643023b18eebb2c0ce2775.zip ivy-perl-c4af522b7ac3cd0303643023b18eebb2c0ce2775.tar.gz ivy-perl-c4af522b7ac3cd0303643023b18eebb2c0ce2775.tar.bz2 ivy-perl-c4af522b7ac3cd0303643023b18eebb2c0ce2775.tar.xz |
fix an error in validity callback checking
only the pattern [callback, arg ...] was allowed, but another
pattern is allowed : [obj, method, arg]
-rw-r--r-- | Ivy.pm | 2 | ||||
-rw-r--r-- | debian/changelog | 6 |
2 files changed, 7 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 (); } diff --git a/debian/changelog b/debian/changelog index 6804937..aa01ad3 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +ivy-perl (4.25-6) unstable; urgency=low + + * New upstream version: * fix an error in validity callback checking + only the pattern [callback, arg ...] was allowed, but another + pattern is allowed : [obj, method, arg] + ivy-perl (4.25-5) unstable; urgency=low * New upstream version: * verify validity callback arg in bindRegexp instead of verifiying it whell actually calling the callback |