Merge pull request #2 from everybody/master

fix typo in function call

lib/B/Utils.pm

@@ -703,7 +703,7 @@ Same as above, but filtered.
 sub walkallops_filtered {
     $sub = undef;
 
-    &_walkallops_filterd;
+    &_walkallops_filtered;
 
     return _TRUE;
 }

t/regression_walkallops_filtered.t

@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+use Test::Exception tests => 1;
+
+use B::Utils qw( walkallops_filtered opgrep );
+
+lives_ok {
+    walkallops_filtered(
+        sub { opgrep( {name => "exec",
+                    next => {
+                                name    => "nextstate",
+                                sibling => { name => [qw(! exit warn die)] }
+                            }
+                    }, @_)},
+        sub {
+            warn("Statement unlikely to be reached");
+            warn("\t(Maybe you meant system() when you said exec()?)\n");
+        }
+    )
+} 'walkallops_filtered should not die when called as documented';
+