Change 16039 by rgs@rgs-home on 2002/04/21 12:20:47
Revert change #15974.
Affected files ...
.... //depot/perl/ext/B/B/Deparse.pm#118 edit
Differences ...
==== //depot/perl/ext/B/B/Deparse.pm#118 (text) ====
Index: perl/ext/B/B/Deparse.pm
--- perl/ext/B/B/Deparse.pm.~1~ Sun Apr 21 06:30:05 2002
+++ perl/ext/B/B/Deparse.pm Sun Apr 21 06:30:05 2002
@@ -2951,14 +2951,6 @@
# 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 "") {
End of Patch.
