Substitute variables in whole line

1 files changed, 3 insertions, 2 deletions

diff --git a/uts/debian/drivers.pl b/uts/debian/drivers.pl
index 38b9ad4..8c2bbf4 100755
--- a/uts/debian/drivers.pl
+++ b/uts/debian/drivers.pl
@@ -102,6 +102,9 @@ sub read_manifest($) {
 # http://stackoverflow.com/questions/12799907/how-to-read-multi-line-values-from-a-file-using-perl
     while (<$fd>) {
 
+        # Maybe multiline:
+        $_ .= <$fd> while s/\\\n// and not eof;
+
         # Substitute variables:
         foreach my $k (keys %defs) {
             s/\Q$($k)\E/$defs{$k}/g;
@@ -110,9 +113,7 @@ sub read_manifest($) {
         # Ignore comments:
         next if /^#/;
         
-        # Read driver specification, possibly multiline:
         if (/^driver/) {
-            $_ .= <$fd> while s/\\\n// and not eof;
             chomp;
             collect $_;
         }