author | Heiko Schlittermann (JUMPER) <hs@schlittermann.de> |
Wed, 09 Apr 2014 16:15:26 +0200 | |
changeset 7 | 30ae33129787 |
parent 6 | 363921354754 |
child 10 | 525ccdec5156 |
read-httpd-conf | file | annotate | diff | comparison | revisions |
--- a/read-httpd-conf Wed Apr 09 16:15:12 2014 +0200 +++ b/read-httpd-conf Wed Apr 09 16:15:26 2014 +0200 @@ -18,7 +18,11 @@ $file = $+{file} =~ m{^/} ? $file : "$basedir/$file"; say "# $. $file INCLUDE $file"; read_file($_, $basedir) foreach (glob -d $file ? "$file/*" : $file); - next; + } + if (s{\\$}{}) { + chomp; + $_ .= <$fh>; + redo; } print; }