projects
/
perl.git
/ commitdiff
free
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
c6fd1c3
)
Revert "Quieten B::Deparse warnings (fixes #113464)."
author
Father Chrysostomos <sprout@cpan.org>
Sat, 23 Jun 2012 13:30:56 +0000 (06:30 -0700)
committer
Father Chrysostomos <sprout@cpan.org>
Sat, 23 Jun 2012 13:30:56 +0000 (06:30 -0700)
This reverts commit
7d9995e9e41db0a4ee2cc9a79342f82f81db1f72
.
dist/B-Deparse/Deparse.pm
patch
|
blob
|
blame
|
history
diff --git
a/dist/B-Deparse/Deparse.pm
b/dist/B-Deparse/Deparse.pm
index
debbf6a
..
46af5e4
100644
(file)
--- a/
dist/B-Deparse/Deparse.pm
+++ b/
dist/B-Deparse/Deparse.pm
@@
-2500,7
+2500,7
@@
sub rv2gv_or_string {
my($self,$op) = @_;
if ($op->name eq "gv") { # could be open("open") or open("###")
my($name,$quoted) =
- $self->stash_variable_name("", $self->gv_or_padgv($op));
+ $self->stash_variable_name(undef,$self->gv_or_padgv($op));
$quoted ? $name : "*$name";
}
else {