# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1397052912 -7200
# Node ID 3639213547549ccdc55643baa90fe956ae1abaae
# Parent  bd0f8dc30ae07285c6997d01a1e95721af6887c5
do not use the $+{…} after the next match

diff -r bd0f8dc30ae0 -r 363921354754 read-httpd-conf
--- a/read-httpd-conf	Wed Apr 09 15:47:15 2014 +0200
+++ b/read-httpd-conf	Wed Apr 09 16:15:12 2014 +0200
@@ -14,8 +14,9 @@
     say "# 1 $file";
     while (<$fh>) {
         if (/^\s*include\s+(?<quote>["'])?(?<file>.*?)\k<quote>?\s*$/i) {
-            my $file = $+{file} =~ m{^/} ? $+{file} : "$basedir/$+{file}";
-            say "# $. $file INCLUDE $+{file}";
+            my $file = $+{file};
+            $file = $+{file} =~ m{^/} ? $file : "$basedir/$file";
+            say "# $. $file INCLUDE $file";
             read_file($_, $basedir) foreach (glob -d $file ? "$file/*" : $file);
             next;
         }