From 4c061fa1f75d93a56cfe39fe06354ad702304f22 Mon Sep 17 00:00:00 2001
From: Sebastian
Date: Wed, 7 Apr 2010 19:07:20 +0200
Subject: h2ph was executed on every loadperlheader call making demuxer really
 slow..

---
 lib/OpenSLX/Syscall.pm | 34 ++++++++++++++++++----------------
 1 file changed, 18 insertions(+), 16 deletions(-)

(limited to 'lib/OpenSLX/Syscall.pm')

diff --git a/lib/OpenSLX/Syscall.pm b/lib/OpenSLX/Syscall.pm
index 172db4d0..da72ae3d 100644
--- a/lib/OpenSLX/Syscall.pm
+++ b/lib/OpenSLX/Syscall.pm
@@ -73,23 +73,25 @@ sub _loadPerlHeader
     # any of these).
     # If they are missing, we just have a go at creating all of them:
     mkpath($phLibDir) unless -e $phLibDir;
-    if (-l "/usr/include/asm" && !-e "$phLibDir/asm") {
-        my $asmFolder = readlink("/usr/include/asm");
-        slxsystem("cd /usr/include && h2ph -rQ -d $phLibDir $asmFolder") == 0
-            or die _tr('unable to create Perl-header from "asm" folder! (%s)', $!);
-        slxsystem("mv $phLibDir/$asmFolder $phLibDir/asm") == 0
-            or die _tr('unable to cleanup "asm" folder for Perl headers! (%s)', $!);
-    }
-    elsif (-d "/usr/include/asm") {
-        slxsystem("cd /usr/include && h2ph -rQ -d $phLibDir asm") == 0
-            or die _tr('unable to create Perl-header from "asm" folder! (%s)', $!);
-    }
-    else {
-        die _tr(
-            'the folder "/usr/include/asm" is required - please install kernel headers!'
-        );
+    if (!-e "$phLibDir/asm") {
+        if (-l "/usr/include/asm") {
+            my $asmFolder = readlink("/usr/include/asm");
+            slxsystem("cd /usr/include && h2ph -rQ -d $phLibDir $asmFolder") == 0
+                or die _tr('unable to create Perl-header from "asm" folder! (%s)', $!);
+            slxsystem("mv $phLibDir/$asmFolder $phLibDir/asm") == 0
+                or die _tr('unable to cleanup "asm" folder for Perl headers! (%s)', $!);
+        }
+        elsif (-d "/usr/include/asm") {
+            slxsystem("cd /usr/include && h2ph -rQ -d $phLibDir asm") == 0
+                or die _tr('unable to create Perl-header from "asm" folder! (%s)', $!);
+        }
+        else {
+            die _tr(
+                'the folder "/usr/include/asm" is required - please install kernel headers!'
+            );
+        }
     }
-    if (-e "usr/include/asm-generic" && !-e "$phLibDir/asm-generic") {
+    if (-e "/usr/include/asm-generic" && !-e "$phLibDir/asm-generic") {
         slxsystem("cd /usr/include && h2ph -rQ -d $phLibDir asm-generic") == 0
             or die _tr('unable to create Perl-header from "asm-generic" folder! (%s)', $!);
     }
-- 
cgit v1.2.3-55-g7522