* first try at making sure that the required Perl-headers exist before we try

  to use one of them

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2275 95ad53e4-c205-0410-b2fa-d234c58c8868

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, $!);
             }
         }