Make more robust; don't rely on qw()
diff --git a/klcc/makeklcc.pl b/klcc/makeklcc.pl
index 7404595..1d61a36 100755
--- a/klcc/makeklcc.pl
+++ b/klcc/makeklcc.pl
@@ -31,7 +31,7 @@
open(KLIBCCONF, '<', $klibcconf) or die "$0: cannot open $klibcconf: $!\n";
while ( defined($l = <KLIBCCONF>) ) {
chomp $l;
- if ( $l =~ /^([^=]+)\=(.*)$/ ) {
+ if ( $l =~ /^([^=]+)\=\s*(.*)$/ ) {
$n = $1; $s = $2;
if ( $n eq 'CC' || $n eq 'LD' || $n eq 'STRIP' ) {
@@ -41,8 +41,15 @@
}
print "\$$n = \"\Q$s\E\";\n";
- print "\@$n = qw($s);\n";
print "\$conf{\'\L$n\E\'} = \\\$$n;\n";
+
+ print "\@$n = ("; $sep = '';
+ while ( $s =~ /^\s*(\S+)/ ) {
+ print $sep, "\"\Q$1\E\"";
+ $sep = ', ';
+ $s = $';
+ }
+ print ");\n";
}
}
close(KLIBCCONF);