From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 21 Apr 2002 12:20:47 +0000 (+0000)
Subject: Revert change #15974.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ffcd656d3b1c696c6fbd279a2db5040b66279f6d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 "") {