summaryrefslogtreecommitdiffstats
path: root/lib/OpenSLX/Syscall.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/OpenSLX/Syscall.pm')
-rw-r--r--lib/OpenSLX/Syscall.pm11
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/OpenSLX/Syscall.pm b/lib/OpenSLX/Syscall.pm
index a46d9ac6..faf223f8 100644
--- a/lib/OpenSLX/Syscall.pm
+++ b/lib/OpenSLX/Syscall.pm
@@ -30,6 +30,8 @@ before trying to invoke the respective syscall.
=cut
+use File::Path;
+
use OpenSLX::Basics;
=head1 PUBLIC FUNCTIONS
@@ -58,14 +60,19 @@ sub _loadPerlHeader
{
my @phFiles = @_;
+ my $phLibDir = "$openslxConfig{'base-path'}/lib/ph";
+ mkpath($phLibDir) unless -e $phLibDir;
+
+ local @INC = @INC;
+ push @INC, $phLibDir;
+
for my $phFile (@phFiles) {
if (!eval { require $phFile }) {
# perl-header has not been provided by host-OS, so we create it
# manually from C-header (via h2ph):
(my $hFile = $phFile) =~ s{\.ph$}{.h};
if (-e "/usr/include/$hFile") {
- my $libDir = "$openslxConfig{'base-path'}/lib";
- slxsystem("cd /usr/include && h2ph -d $libDir $hFile") == 0
+ slxsystem("cd /usr/include && h2ph -d $phLibDir $hFile") == 0
or die _tr('unable to create %s! (%s)', $phFile, $!);
}
}