From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 13 Nov 2019 15:14:55 +0000 (+0000)
Subject: refactor filter_subdir_mk, breaking out $pi, nfc
X-Git-Tag: subdirmk/0.1~74
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?p=subdirmk.git;a=commitdiff_plain;h=922857ccd6eb85a801154d2edc48eee7b929e13d

refactor filter_subdir_mk, breaking out $pi, nfc
---

diff --git a/subdirmk/generate b/subdirmk/generate
index 3208c8d..56bfe54 100755
--- a/subdirmk/generate
+++ b/subdirmk/generate
@@ -195,11 +195,16 @@ sub filter_subdir_mk ($$$$$) {
     #print STDERR "filter @_\n";
 
     my $esclit = '&';
-    for my $f ("${srcdir}/${dir_prefix}Subdir.mk.in",
-	       "${srcdir}/Perdir.mk.in") {
+
+    my $pi = sub {
+	my ($f, $enoentok) = @_;
 	process_input_mk($dir_prefix, $dir_suffix, $dir_name,
 			 $var_prefix, $targets,
-			 $f, \$esclit, 0);
+			 $f, \$esclit, $enoentok);
+    };
+    for my $f ("${srcdir}/${dir_prefix}Subdir.mk.in",
+	       "${srcdir}/Perdir.mk.in") {
+	$pi->($f, 0);
     }
 }