scripts/LinuxManBook/prepare.pl: Use more robust pipelines

Signed-off-by: Alejandro Colomar <alx@kernel.org>

diff --git a/scripts/LinuxManBook/prepare.pl b/scripts/LinuxManBook/prepare.pl
index 735cfcf0935c5efe8ccfa3cad21a8c5d3a6e1595..57b99b717e2847f4879d4ac6cec0c1f222c7c3a1 100755 (executable)
--- a/scripts/LinuxManBook/prepare.pl
+++ b/scripts/LinuxManBook/prepare.pl
@@ -51,7 +51,9 @@ my %files;
 my %aliases;
 my %target;
 
-foreach my $al (`grep -E '^\\.so' $dir/man*/*`)
+foreach my $al (`find "$dir"/man*/ -type f \\
+               | grep "\\.[[:digit:]]\\([[:alpha:]][[:alnum:]]*\\)\\?\\>\$" \\
+               | xargs grep '^\\.so' /dev/null;`)
 {
        #$al=~tr[.][_];
        $al=~m/^$dir\/man\d[a-z]*\/(.*):\.\s*so\s*man\d[a-z]*\/(.*)/o;
@@ -66,8 +68,11 @@ while (my ($k,$v)=each %aliases)
        }
 }
 
-foreach my $fn (glob "$dir/man*/*")
+foreach my $fn (`find "$dir"/man*/ -type f \\
+               | grep "\\.[[:digit:]]\\([[:alpha:]][[:alnum:]]*\\)\\?\\>\$";`)
 {
+       $fn=~s/\n//;
+
        my ($nm,$sec)=GetNmSec($fn,qr/\.\d[a-z]*/);
        $files{"${nm}.$sec"}=[$fn,(exists($aliases{"${nm}.$sec"}))?$aliases{"${nm}.$sec"}:"${nm}.$sec"];
 }