$i = _error_loc(); # see where Carp will allocate the error
}
- my $callers_bitmask = (caller($i))[9] ;
+ # Defaulting this to 0 reduces complexity in code paths below.
+ my $callers_bitmask = (caller($i))[9] || 0 ;
return ($callers_bitmask, $offset, $i) ;
}
my ($callers_bitmask, $offset, $i) = __chk(@_) ;
- return 0 unless defined $callers_bitmask ;
return vec($callers_bitmask, $offset, 1) ||
vec($callers_bitmask, $Offsets{'all'}, 1) ;
}
my ($callers_bitmask, $offset, $i) = __chk(@_) ;
- return 0 unless defined $callers_bitmask;
return vec($callers_bitmask, $offset + 1, 1) ||
vec($callers_bitmask, $Offsets{'all'} + 1, 1) ;
}
my ($callers_bitmask, $offset, $i) = __chk(@_) ;
return
- unless defined $callers_bitmask &&
- (vec($callers_bitmask, $offset, 1) ||
+ unless (vec($callers_bitmask, $offset, 1) ||
vec($callers_bitmask, $Offsets{'all'}, 1)) ;
require Carp;
$i = _error_loc(); # see where Carp will allocate the error
}
- my $callers_bitmask = (caller($i))[9] ;
+ # Defaulting this to 0 reduces complexity in code paths below.
+ my $callers_bitmask = (caller($i))[9] || 0 ;
return ($callers_bitmask, $offset, $i) ;
}
my ($callers_bitmask, $offset, $i) = __chk(@_) ;
- return 0 unless defined $callers_bitmask ;
return vec($callers_bitmask, $offset, 1) ||
vec($callers_bitmask, $Offsets{'all'}, 1) ;
}
my ($callers_bitmask, $offset, $i) = __chk(@_) ;
- return 0 unless defined $callers_bitmask;
return vec($callers_bitmask, $offset + 1, 1) ||
vec($callers_bitmask, $Offsets{'all'} + 1, 1) ;
}
my ($callers_bitmask, $offset, $i) = __chk(@_) ;
return
- unless defined $callers_bitmask &&
- (vec($callers_bitmask, $offset, 1) ||
+ unless (vec($callers_bitmask, $offset, 1) ||
vec($callers_bitmask, $Offsets{'all'}, 1)) ;
require Carp;