diff options
| author | Paul Johnson <paul@pjcj.net> | 2012-06-02 14:44:47 +0200 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2012-06-25 19:46:46 -0400 |
| commit | 28289bf993fea073d8707bbddf1ae370e3e2f479 (patch) | |
| tree | c2822acff702dce8e5dec0b9c1c6518908ed29fc | |
| parent | 71720ae3f661a1da65efc277229e96a386817e89 (diff) | |
| download | perl-28289bf993fea073d8707bbddf1ae370e3e2f479.tar.gz | |
Quieten B::Deparse warnings (fixes #113464).
| -rw-r--r-- | dist/B-Deparse/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index 46af5e4cb7..debbf6ae3e 100644 --- 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(undef,$self->gv_or_padgv($op)); + $self->stash_variable_name("", $self->gv_or_padgv($op)); $quoted ? $name : "*$name"; } else { |