Revert change #15974.

p4raw-link: @15974 on //depot/perl: 8a6aa900aaa729fd6735df2eb96e87e52d2662e8

p4raw-id: //depot/perl@16039

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 786c7a4..b10c1fb 100644 (file)
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -2951,14 +2951,6 @@ sub pp_entersub {
        # it back.
        $kid =~ s/^CORE::GLOBAL:://;
 
-        # If the sub name is not a valid identifier, then somebody
-        # (probably Abigail) must have written "foo"->(...). Reproduce
-        # this.
-        if ($kid !~ /^([a-zA-Z_]|::)([a-zA-Z_0-9]|::)*$/) {
-            $kid = single_delim("qq", '"', uninterp(escape_str(unback($kid))));
-            $kid .= "->";
-        }
-
         if (!$declared) {
            return "$kid(" . $args . ")";
        } elsif (defined $proto and $proto eq "") {