X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=lib%2FFile%2FKDBX%2FUtil.pm;h=b1795a71c111d1144995dc7e82d7769f47e018fa;hp=f1b997619fee6783b4a9e349b83f5434436b308e;hb=c98fc7d0294e641cf8844306808333bdec4fea2f;hpb=1d0a10e989a4d0487aa13cf4f56e533d3795469d diff --git a/lib/File/KDBX/Util.pm b/lib/File/KDBX/Util.pm index f1b9976..b1795a7 100644 --- a/lib/File/KDBX/Util.pm +++ b/lib/File/KDBX/Util.pm @@ -376,7 +376,8 @@ Set up the current module to inheret from another module. sub extends { my $parent = shift; my $caller = caller; - load $parent; + # load $parent; + eval qq[require $parent]; no strict 'refs'; ## no critic (ProhibitNoStrict) @{"${caller}::ISA"} = $parent; } @@ -758,6 +759,7 @@ sub search_limited { =func simple_expression_query $query = simple_expression_query($expression, @fields); + $query = simple_expression_query($expression, $operator, @fields); Generate a query, like L, to be used with L but built from a "simple expression" as L.