# HG changeset patch
# User heiko
# Date 1409867359 -7200
# Node ID bbb0dea458c38033611dbd7ad69777cebd591308
# Parent  cf75cb35c0837f10125865a4d2cb158f39d331e2
fixed the inclusion of absolute paths

diff -r cf75cb35c083 -r bbb0dea458c3 lib/App/read_httpd_conf.pm
--- a/lib/App/read_httpd_conf.pm	Wed Jul 16 23:37:06 2014 +0200
+++ b/lib/App/read_httpd_conf.pm	Thu Sep 04 23:49:19 2014 +0200
@@ -27,7 +27,7 @@
             redo;
         }
         if (/^\s*include\s+(?<quote>["'])?(?<file>.*?)\k<quote>?\s*$/i) {
-            my $file = $+{file} =~ m{^/} ? $+{file} : "$basedir/$+{file}";
+            my $file = substr($+{file}, 0, 1) eq '/'  ? $+{file} : "$basedir/$+{file}";
             say "# $. $file INCLUDE $+{file}";
             read_file($_, $basedir) foreach (glob -d $file ? "$file/*" : $file);
             next;