From 760f47bdd53ea724b41263fb50d97f5ded999ccc Mon Sep 17 00:00:00 2001 From: Wolfgang Bumiller Date: Mon, 18 Dec 2023 10:36:49 +0100 Subject: [PATCH] perlmod-bin: actually use 'libfile' Signed-off-by: Wolfgang Bumiller --- perlmod-bin/genpackage.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perlmod-bin/genpackage.pl b/perlmod-bin/genpackage.pl index 964169b..cd56599 100755 --- a/perlmod-bin/genpackage.pl +++ b/perlmod-bin/genpackage.pl @@ -164,14 +164,14 @@ sub find_lib { } # Keep on a single line, potentially modified by testsuite! -sub libfile { find_lib() } +sub libfile { find_lib($pkg->library()) } sub load : prototype($) { my ($pkg) = @_; my $mod_name = $pkg->library(); - my $mod_file = find_lib($mod_name); + my $mod_file = libfile($mod_name); die "failed to locate shared library for $mod_name (lib${mod_name}.so)\n" if !$mod_file; my $lib = DynaLoader::dl_load_file($mod_file)