File lsb-appchk-webui-2.0.99-nospace.patch of Package lsb-appchk-webui

--- utils/componenttodb.pl
+++ utils/componenttodb.pl
@@ -243,13 +243,13 @@
         if( $type =~ /\:.*perl\s+script/i or $interpreter =~ /perl/ ) {
             print COMPONENT_DATA "  PerlInterpreter: $interpreter\n";
             close( COMPONENT_DATA );
-            system "./interpreted\\ languages/analyze_perl.pl $filename >> $OutputFile_esc";
+            system "./interpreted_languages/analyze_perl.pl $filename >> $OutputFile_esc";
             open( COMPONENT_DATA, ">> $OutputFile" );
         }
         elsif( $type =~ /\:.*python\s+script/i or $interpreter =~ /python/ ) {
             print COMPONENT_DATA "  PythonInterpreter: $interpreter\n";
             close( COMPONENT_DATA );
-            system "./interpreted\\ languages/analyze_python.py $filename >> $OutputFile_esc";
+            system "./interpreted_languages/analyze_python.py $filename >> $OutputFile_esc";
             open( COMPONENT_DATA, ">> $OutputFile" );
         }
         else {
@@ -274,11 +274,11 @@
                 print COMPONENT_DATA "!PerlModuleProvided '$modname' '$soname_p'\n";
             }
             close( COMPONENT_DATA );
-            system "./interpreted\\ languages/analyze_perl.pl $filename >> $OutputFile_esc";
+            system "./interpreted_languages/analyze_perl.pl $filename >> $OutputFile_esc";
             open( COMPONENT_DATA, ">> $OutputFile" );
         }
         elsif( $soname =~ /\.pyc?$/i ) { # ! experimental
-            my $pythonResult = `./interpreted\\ languages/analyze_python.py $filename`;
+            my $pythonResult = `./interpreted_languages/analyze_python.py $filename`;
             if( $pythonResult !~ /Cannot analyse/ ) {
 
             # See comments below for such checks
@@ -328,7 +328,7 @@
             print COMPONENT_DATA "!PerlModuleProvided '$modname' '$soname_p'\n";
         }
         close( COMPONENT_DATA );
-        system "./interpreted\\ languages/analyze_perl.pl $filename >> $OutputFile_esc";
+        system "./interpreted_languages/analyze_perl.pl $filename >> $OutputFile_esc";
         open( COMPONENT_DATA, ">> $OutputFile" );
         next;
     }
@@ -395,7 +395,7 @@
     elsif( $soname =~ /\.pyc?$/i ) {
         my $interpreter = `head -n 1 $filename`;
         chomp( $interpreter );
-        my $pythonResult = `./interpreted\\ languages/analyze_python.py $filename`;
+        my $pythonResult = `./interpreted_languages/analyze_python.py $filename`;
         if( $pythonResult !~ /Cannot analyse/ ) {
             my $modname = $basename;
             $modname =~ s/\.pyc?$//i;
--- utils/interpreted_languages/analyze_perl.pl
+++ utils/interpreted_languages/analyze_perl.pl
@@ -10,7 +10,7 @@
 use Getopt::Long;
 use File::Basename;
 
-require "./interpreted languages/perldeps.pl";
+require "./interpreted_languages/perldeps.pl";
 
 my $argc = @ARGV;
 die "Usage $0  [filename(s)]\n" if $argc == 0;