Let Lint private_names catch out-of-package _foo methods.

p4raw-id: //depot/perlext/Compiler@52

1 files changed, 9 insertions, 0 deletions

diff --git a/B/Lint.pm b/B/Lint.pm
index 4e3454549f..3b4ea7ef52 100644
--- a/B/Lint.pm
+++ b/B/Lint.pm
@@ -183,6 +183,15 @@ sub B::UNOP::lint {
 	warning("Implicit scalar context for %s in %s",
 		$ppaddr eq "pp_rv2av" ? "array" : "hash", $parent->desc);
     }
+    if ($check{private_names} && $ppaddr eq "pp_method") {
+	my $methop = $op->first;
+	if ($methop->ppaddr eq "pp_const") {
+	    my $method = $methop->sv->PV;
+	    if ($method =~ /^_/ && !defined(&{"$curstash\::$method"})) {
+		warning("Illegal reference to private method name $method");
+	    }
+	}
+    }
 }
 
 sub B::PMOP::lint {