--- 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;