[perl #62488] B::Deparse fails on 'CORE::require(STRING)'

This patch allows the following to deparse properly:

    perl -MO=Deparse -e 'CORE::require "CGI.pm"'

(necessary due to the specific way require() is overriden)

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 753192d..c398ddb 100644 (file)
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -1603,8 +1603,10 @@ sub unop {
     my $kid;
     if ($op->flags & OPf_KIDS) {
        $kid = $op->first;
-       if (defined prototype("CORE::$name")
-          && prototype("CORE::$name") =~ /^;?\*/
+       my $builtinname = $name;
+       $builtinname =~ /^CORE::/ or $builtinname = "CORE::$name";
+       if (defined prototype($builtinname)
+          && prototype($builtinname) =~ /^;?\*/
           && $kid->name eq "rv2gv") {
            $kid = $kid->first;
        }