diff options
Diffstat (limited to 'lib/Net/HTTP')
-rwxr-xr-x[-rw-r--r--] | lib/Net/HTTP/Spore/Meta/Method/Spore.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Net/HTTP/Spore/Meta/Method/Spore.pm b/lib/Net/HTTP/Spore/Meta/Method/Spore.pm index 9ebe5f0..b046b04 100644..100755 --- a/lib/Net/HTTP/Spore/Meta/Method/Spore.pm +++ b/lib/Net/HTTP/Spore/Meta/Method/Spore.pm @@ -37,14 +37,14 @@ sub find_spore_method_by_name { sub remove_spore_method { my ($meta, $name) = @_; - my @methods = grep { !/$name/ } $meta->get_all_spore_methods; + my @methods = grep { $_ ne $name } $meta->get_all_spore_methods; $meta->local_spore_methods(\@methods); $meta->remove_method($name); } before add_spore_method => sub { my ($meta, $name) = @_; - if ($meta->_find_spore_method_by_name(sub {/^$name$/})) { + if ($meta->_find_spore_method_by_name(sub {$_ eq $name})) { confess "method '$name' is already delcared in ".$meta->name; } }; |