[PATCH] klibc: version 1.0.3

[elogind.git] / klibc / makeklcc.pl

diff --git a/klibc/makeklcc.pl b/klibc/makeklcc.pl
index ea3f8a8256af09e0576bcbf0454be082bc41cf67..f8a6294db3faa72101eebf191ce78c0a074fbe64 100644 (file)
--- a/klibc/makeklcc.pl
+++ b/klibc/makeklcc.pl
@@ -7,23 +7,16 @@
 
 ($klccin, $klibcconf, $perlpath) = @ARGV;
 
 
 ($klccin, $klibcconf, $perlpath) = @ARGV;
 

-# This should probably handle quotes and escapes...
-sub string2list($)
-{
-    my($s) = @_;
-
-    $s =~ s/\s+/\',\'/g;
-    return "(\'".$s."\')";
-}
-

 print "#!${perlpath}\n";
 
 open(KLIBCCONF, '<', $klibcconf) or die "$0: cannot open $klibcconf: $!\n";
 while ( defined($l = <KLIBCCONF>) ) {
     chomp $l;
 print "#!${perlpath}\n";
 
 open(KLIBCCONF, '<', $klibcconf) or die "$0: cannot open $klibcconf: $!\n";
 while ( defined($l = <KLIBCCONF>) ) {
     chomp $l;

-    if ( $l =~ /=/ ) {
-       print "\$$` = \"\Q$'\E\";\n";
-       print "\@$` = ", string2list("$'"), ";\n";
+    if ( $l =~ /^([^=]+)\=(.*)$/ ) {
+       $n = $1;  $s = $2;
+       print "\$$n = \"\Q$s\E\";\n";
+       print "\@$n = qw($s);\n";
+       print "\$conf{\'\L$n\E\'} = \\\$$n;\n";

     }
 }
 close(KLIBCCONF);
     }
 }
 close(KLIBCCONF);