Quieten B::Deparse warnings (fixes #113464).

diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm
index bbb730a..049e385 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(undef,$self->gv_or_padgv($op));
+           $self->stash_variable_name("", $self->gv_or_padgv($op));
        $quoted ? $name : "*$name";
     }
     else {