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