diff options
author | Oliver Tappe | 2008-10-08 23:38:01 +0200 |
---|---|---|
committer | Oliver Tappe | 2008-10-08 23:38:01 +0200 |
commit | 51b57cec06af74748f38ebcdc786a024c5066a1f (patch) | |
tree | 1903943ab2382799a125d050fe181f0e9fda76ec | |
parent | vmchooser: * wrong fix checked in accidentally (diff) | |
download | core-51b57cec06af74748f38ebcdc786a024c5066a1f.tar.gz core-51b57cec06af74748f38ebcdc786a024c5066a1f.tar.xz core-51b57cec06af74748f38ebcdc786a024c5066a1f.zip |
* 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
-rw-r--r-- | Makefile | 12 | ||||
-rw-r--r-- | lib/OpenSLX/Syscall.pm | 11 |
2 files changed, 20 insertions, 3 deletions
@@ -244,7 +244,17 @@ supported."; \ @ # set default db-type: @DEFAULT_DB_TYPE=$$(cat DEFAULT-DB-TYPE); \ rm DEFAULT-DB-TYPE; \ - echo -n ' '; slxsettings set db-type="$${DEFAULT_DB_TYPE}"; + echo -n ' '; slxsettings set db-type="$${DEFAULT_DB_TYPE}"; \ + + @ # create required Perl headers that may be missing + @if ! test -e ${SLX_BASE_PATH}/lib/ph/asm; then \ + echo "Converting kernel C-headers into Perl-headers ..."; \ + mkdir -p ${SLX_BASE_PATH}/lib/ph; \ + pushd /usr/include >/dev/null; \ + h2ph -rQ -d ${SLX_BASE_PATH}/lib/ph asm-x86; \ + popd >/dev/null; \ + mv ${SLX_BASE_PATH}/lib/ph/asm-x86 ${SLX_BASE_PATH}/lib/ph/asm; \ + fi; vmware_install: @# we should read the config file here or better have a separate 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, $!); } } |