diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-07-07 17:44:21 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-07-07 17:44:21 -0500 |
| commit | a90f35e18274df56f4d2aa2a8ddb4e01bfe24b93 (patch) | |
| tree | aaf31c1beed66c472e3885e26ab96f513b2d4c79 | |
| parent | 76c4f384d2991a7306dd8fe8256fbd662357d967 (diff) | |
| download | smartmatch-a90f35e18274df56f4d2aa2a8ddb4e01bfe24b93.tar.gz smartmatch-a90f35e18274df56f4d2aa2a8ddb4e01bfe24b93.zip | |
fix syntax error
| -rw-r--r-- | lib/smartmatch/engine/rjbs.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/smartmatch/engine/rjbs.pm b/lib/smartmatch/engine/rjbs.pm index fb2dfc6..6f0d964 100644 --- a/lib/smartmatch/engine/rjbs.pm +++ b/lib/smartmatch/engine/rjbs.pm @@ -11,13 +11,13 @@ sub match { if (!defined($b)) { return !defined($a); } - elsif (blessed($b) && my $overload = overload::Method($b, '~~')) { + elsif (blessed($b) && (my $overload = overload::Method($b, '~~'))) { return $b->$overload($a, 1); } elsif (reftype($b) eq 'REGEXP') { return $a =~ $b; } - elsif (blessed($b) && my $overload = overload::Method($b, '=~')) { + elsif (blessed($b) && overload::Method($b, '=~')) { return $a =~ $b; } elsif (!blessed($b) && reftype($b) eq 'CODE') { |