sub pp_const {
my ($self, $op) = @_;
- if (class($op) eq 'SVOP' and (my $sv = $self->const_sv($op))) {
- my $c = class($sv);
- if ($c eq 'AV') {
- return $sv->FILL + 1;
- } elsif ($c eq 'HV') {
- return 2 * $sv->FILL;
- }
+ my $sv = $self->const_sv($op);
+ my $c = class($sv);
+ if ($c eq 'AV') {
+ return $sv->FILL + 1;
+ } elsif ($c eq 'HV') {
+ return 2 * $sv->FILL;
}
return 1;