init();
-# Add directory to library search path.
if ($dh{L_PARAMS}) {
my @paths=();
# Add to existing paths, if set.
}
}
$dh{L_PARAMS}=join(':', @paths);
- $ENV{'LD_LIBRARY_PATH'}=$dh{L_PARAMS};
- verbose_print("LD_LIBRARY_PATH=$dh{L_PARAMS}");
}
foreach my $package (@{$dh{DOPACKAGES}}) {
if (defined $dh{LIBPACKAGE} && length $dh{LIBPACKAGE}) {
@opts=("-L".tmpdir($dh{LIBPACKAGE}."/DEBIAN/shlibs"));
}
+
+ my $ld_library_path_orig=$ENV{LD_LIBRARY_PATH};
+ if ($dh{L_PARAMS}) {
+ $ENV{LD_LIBRARY_PATH}=$dh{L_PARAMS};
+ verbose_print("LD_LIBRARY_PATH=$dh{L_PARAMS}");
+ }
+
doit("dpkg-shlibdeps","-Tdebian/${ext}substvars",
@opts,@{$dh{U_PARAMS}},@filelist);
+
+ if ($dh{L_PARAMS}) {
+ $ENV{LD_LIBRARY_PATH}=$ld_library_path_orig;
+ }
}
}