[patch] euse.patch

euse.patch (text/plain), 602 bytes, created by Georgi Georgiev on 2003-08-17 19:49:17 UTC

--- /usr/bin/euse	2003-08-18 11:28:46.000000000 +0900
+++ ./euse	2003-08-18 11:47:33.000000000 +0900
@@ -504,14 +504,9 @@
 sub parse_make
 {
     my $file_name = shift();
-    my $lines = read_file($file_name);
+    my $use_var = `. $file_name; echo -n \$USE`;
     my @site_uf_list;
-    if ($lines =~ m/^\s*USE[\s\n]*=[\s\n]*"([^"]*)"/ms) 
-    {
-        my $use_var = $1;
-        $use_var =~ s/[\r\n]/ /g;
-        @site_uf_list = split(' ', $use_var);
-    }
+    @site_uf_list = split(/\s+/, $use_var);
     #print ("Make: \n" . join (" ", @site_uf_list) . "\n");
     return \@site_uf_list;
 }