From 18c00ddcd65a6b1d662eaac2fd1c7950a322f70b Mon Sep 17 00:00:00 2001
From: Steffen Jaeckel <s@jaeckel.eu>
Date: Tue, 20 Jun 2017 10:01:47 +0200
Subject: [PATCH] better usage of `find()`

---
 helper.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/helper.pl b/helper.pl
index c9dad83..b66dbce 100755
--- a/helper.pl
+++ b/helper.pl
@@ -135,9 +135,7 @@ MARKER
 /* commit time: $Format:%ai$ */
 MARKER
   my @all_files;
-  find({ wanted=> sub { push @all_files, $_ if $_ =~ /\.(c|h)$/ }, no_chdir=>1 }, 'src');
-  find({ wanted=> sub { push @all_files, $_ if $_ =~ /\.(c|h)$/ }, no_chdir=>1 }, 'demos');
-  find({ wanted=> sub { push @all_files, $_ if $_ =~ /\.(c|h)$/ }, no_chdir=>1 }, 'tests');
+  find({ wanted=> sub { push @all_files, $_ if $_ =~ /\.(c|h)$/ }, no_chdir=>1 }, 'demos', 'src', 'tests');
   for my $f (@all_files) {
     my $txt = read_file($f);
     if ($txt !~ /^\Q$first_comment\E/s) {