Help for this page

Select Code to Download


  1. or download this
            next unless class($valsv) eq "GV";
            next if class($valsv->STASH) eq 'SPECIAL';
            # these pad GVs don't have corresponding names, so same @pad
            # array can be used without collisions
            $pad[$ix] = [$valsv->STASH->NAME, "*", $valsv->NAME];