fix continuation lines
authorheiko
Wed, 16 Jul 2014 22:28:25 +0200
changeset 11 478ef471fb71
parent 10 525ccdec5156
child 12 cf75cb35c083
fix continuation lines
lib/App/read_httpd_conf.pm
--- a/lib/App/read_httpd_conf.pm	Wed Jul 16 22:26:07 2014 +0200
+++ b/lib/App/read_httpd_conf.pm	Wed Jul 16 22:28:25 2014 +0200
@@ -21,12 +21,18 @@
       or croak "Can't open $file: $!\n";
     say "# 1 $file";
     while (<$fh>) {
+        if (s{\\$}{}) {
+            chomp;
+            $_ .= <$fh>;
+            redo;
+        }
         if (/^\s*include\s+(?<quote>["'])?(?<file>.*?)\k<quote>?\s*$/i) {
             my $file = $+{file} =~ m{^/} ? $+{file} : "$basedir/$+{file}";
             say "# $. $file INCLUDE $+{file}";
             read_file($_, $basedir) foreach (glob -d $file ? "$file/*" : $file);
             next;
         }
+
         print;
     }
     return 1;