Quieten B::Deparse warnings (fixes #113464).
authorPaul Johnson <paul@pjcj.net>
Sat, 2 Jun 2012 12:44:47 +0000 (14:44 +0200)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 23 Jun 2012 05:37:01 +0000 (22:37 -0700)
dist/B-Deparse/Deparse.pm

index 46af5e4..debbf6a 100644 (file)
@@ -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 {