IncludeOptional
authorheiko
Mon, 12 Jan 2015 15:03:30 +0100
changeset 17 1b278fa8b05f
parent 16 67d4ed376726
child 18 eb152cd8d2bc
IncludeOptional
lib/App/read_httpd_conf.pm
--- a/lib/App/read_httpd_conf.pm	Mon Jan 12 15:01:10 2015 +0100
+++ b/lib/App/read_httpd_conf.pm	Mon Jan 12 15:03:30 2015 +0100
@@ -27,7 +27,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 $include_file = substr($+{file}, 0, 1) eq '/'  ? $+{file} : "$basedir/$+{file}";
             say "# $. $file INCLUDE $include_file";
             read_file($_, $basedir) foreach (glob -d $include_file ? "$include_file/*" : $include_file);