[patch] patch for euse based on perl parsing

euse.diff (text/plain), 760 bytes, created by Joerg Schaible on 2004-03-05 14:57:08 UTC

--- /usr/bin/euse	2004-02-07 11:58:10.000000000 +0100
+++ /usr/local/bin/euse	2004-03-05 23:53:20.000000000 +0100
@@ -505,14 +505,14 @@
 {
     my $file_name = shift();
     my $lines = read_file($file_name);
+    my @uses_lines = ($lines =~ m/^\s*USE[\s\n]*=[\s\n]*"([^"]*)"/msg);
     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);
+    foreach (@uses_lines) {
+        s/\$\{?USE\}?//g;
+        s/[\r\n\\]/ /g;
+        push @site_uf_list, split;
     }
-    #print ("Make: \n" . join (" ", @site_uf_list) . "\n");
+    #print ("Make: \n" . join (",", @site_uf_list) . "\n");
     return \@site_uf_list;
 }