diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-21 12:20:47 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-21 12:20:47 +0000 |
| commit | ffcd656d3b1c696c6fbd279a2db5040b66279f6d (patch) | |
| tree | 41d9640df1a0115f03b27e30efb27efbdf4d4d3d /ext | |
| parent | df13269938f73869829eeb0e7aa62c17d44ae573 (diff) | |
| download | perl-ffcd656d3b1c696c6fbd279a2db5040b66279f6d.tar.gz | |
Revert change #15974.
p4raw-link: @15974 on //depot/perl: 8a6aa900aaa729fd6735df2eb96e87e52d2662e8
p4raw-id: //depot/perl@16039
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 786c7a4c1f..b10c1fbae4 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 "") { |