Skip to content
Browse files

Protect from empty require "" bareword;

  • Loading branch information...
1 parent 0f19071 commit 7bae5bde46d92054107fac18eae0862676045b2f @rurban committed
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/B/C.pm
View
2 lib/B/C.pm
@@ -884,7 +884,7 @@ my $opsect_common =
sub force_dynpackage {
my $pv = shift;
no strict 'refs';
- if (!$skip_package{$pv} and $pv !~ /^B::/) { # XXX only loaded at run-time
+ if ($pv and !$skip_package{$pv} and $pv !~ /^B::/) { # XXX only loaded at run-time
if (!$INC{inc_packname($pv)}) {
eval "require $pv;";
if (!$@) {

0 comments on commit 7bae5bd

Please sign in to comment.
Something went wrong with that request. Please try again.