# HG changeset patch # User Heiko Schlittermann (JUMPER) # 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+(?["'])?(?.*?)\k?\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; }