Revert "Quieten B::Deparse warnings (fixes #113464)."
authorFather Chrysostomos <sprout@cpan.org>
Sat, 23 Jun 2012 13:30:56 +0000 (06:30 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 23 Jun 2012 13:30:56 +0000 (06:30 -0700)
This reverts commit 7d9995e9e41db0a4ee2cc9a79342f82f81db1f72.

dist/B-Deparse/Deparse.pm

index debbf6a..46af5e4 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("", $self->gv_or_padgv($op));
+           $self->stash_variable_name(undef,$self->gv_or_padgv($op));
        $quoted ? $name : "*$name";
     }
     else {