This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix a remaining B::Lint bug.
[perl5.git] / ext / B / t / lint.t
index 6f21eaf..7be86ac 100644 (file)
@@ -63,13 +63,10 @@ RESULT
 Illegal reference to private name _x at -e line 1
 RESULT
 
-    {
-       local $TODO = q/doesn't catch methods/;
-       runlint 'private-names', 'sub A::_f{};A->_f()', <<'RESULT',
+    runlint 'private-names', 'sub A::_f{};A->_f()', <<'RESULT',
 Illegal reference to private method name _f at -e line 1
 RESULT
-       'private-names';
-    }
+    'private-names (method)';
 
     runlint 'undefined-subs', 'foo()', <<'RESULT';
 Undefined subroutine foo called at -e line 1