X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=lib%2FFile%2FKDBX%2FUtil.pm;fp=lib%2FFile%2FKDBX%2FUtil.pm;h=5b12e9dd1ea525135e29611a258537b33d4193a7;hb=e8e1363e4770ff29f5c2721318de9eb8fd7c8a22;hp=a09d2863d9177d69f902140f2159c0083bf50bc0;hpb=331a54019664704eb4a10186cb4abd7a2a722f30;p=chaz%2Fp5-File-KDBX diff --git a/lib/File/KDBX/Util.pm b/lib/File/KDBX/Util.pm index a09d286..5b12e9d 100644 --- a/lib/File/KDBX/Util.pm +++ b/lib/File/KDBX/Util.pm @@ -411,8 +411,7 @@ Set up the current module to inheret from another module. sub extends { my $parent = shift; my $caller = caller; - # load $parent; - eval qq[require $parent]; + load $parent; no strict 'refs'; ## no critic (ProhibitNoStrict) @{"${caller}::ISA"} = $parent; }