From 922857ccd6eb85a801154d2edc48eee7b929e13d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 13 Nov 2019 15:14:55 +0000
Subject: [PATCH] refactor filter_subdir_mk, breaking out $pi, nfc

---
 subdirmk/generate | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

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);
     }
 }
 
-- 
2.30.2