sub coderef2text {
my $self = shift;
my $sub = shift;
- croak "Usage: ->coderef2text(CODEREF)" unless ref($sub) eq "CODE";
+ croak "Usage: ->coderef2text(CODEREF)" unless UNIVERSAL::isa($sub, "CODE");
$self->init();
return $self->indent($self->deparse_sub(svref_2object($sub)));
# 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 "") {