author | heiko |
Mon, 12 Jan 2015 14:57:36 +0100 | |
changeset 15 | 26b84b6da139 |
parent 12 | cf75cb35c083 |
child 16 | 67d4ed376726 |
--- a/lib/App/read_httpd_conf.pm Wed Jul 16 23:37:06 2014 +0200 +++ b/lib/App/read_httpd_conf.pm Mon Jan 12 14:57:36 2015 +0100 @@ -26,7 +26,7 @@ $_ .= <$fh>; redo; } - if (/^\s*include\s+(?<quote>["'])?(?<file>.*?)\k<quote>?\s*$/i) { + if (/^\s*include(?:optional)\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);