equal
deleted
inserted
replaced
12 while (<$fh>) { |
12 while (<$fh>) { |
13 if (/^\s*include\s+(?<quote>["'])?(?<file>.*?)\k<quote>?\s*$/i) { |
13 if (/^\s*include\s+(?<quote>["'])?(?<file>.*?)\k<quote>?\s*$/i) { |
14 |
14 |
15 #print "#$file:$.:$_"; |
15 #print "#$file:$.:$_"; |
16 say "# $. $file INCLUDE $+{file}"; |
16 say "# $. $file INCLUDE $+{file}"; |
17 read_file($_) foreach (glob $+{file}); |
17 read_file($_) foreach (glob -d $+{file} ? "$+{file}/*" : $+{file}); |
18 next; |
18 next; |
19 } |
19 } |
20 print; |
20 print; |
21 } |
21 } |
22 } |
22 } |