Proxmox/proxmox-perl-rs
5
0
Fork 1
Code Pull Requests Releases Activity

package template: introduce libdirs() method

Browse Source 
Signed-off-by: Wolfgang Bumiller <w.bumiller@proxmox.com>
This commit is contained in:
Wolfgang Bumiller 2022-11-15 13:25:21 +01:00
parent 6583f4d840
commit 08eba82025
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Proxmox/Lib/template.pm
View File

@ -28,12 +28,15 @@ sub library {
return '{{LIBRARY}}';
}
# Keep on a single line, modified by testsuite!
sub libdirs { return (map "-L$_/auto", @INC); }
sub load : prototype($) {
my ($pkg) = @_;
my $mod_name = $pkg->library();
my @dirs = (map "-L$_/auto", @INC);
my @dirs = $pkg->libdirs();
my $mod_file = DynaLoader::dl_findfile({{DEBUG_LIBPATH}}@dirs, $mod_name);
die "failed to locate shared library for $mod_name (lib${mod_name}.so)\n" if !$mod_file;