This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
metaconfig unit change for #14868.
[metaconfig.git] / U / modified / Chk_MANI.U
index be690bc..35096e5 100644 (file)
@@ -38,8 +38,8 @@ if test -f "$rsrc/MANIFEST"; then
 ?X: Files spelled uppercased and beginning with PACK are produced by the
 ?X: shell archive builder and may be removed by the user. Usually, they are
 ?X: not listed in the MANIFEST file, but you never know...
-?X:
-       awk '$1 !~ /PACK[A-Z]+/ {print $1}' "$rsrc/MANIFEST" | split -l 50
+?X: We try the new way of split and the old way of split.
+       awk '$1 !~ /PACK[A-Z]+/ {print $1}' "$rsrc/MANIFEST" | (split -l 50 2>/dev/null || split -50)
        rm -f missing
        tmppwd=`pwd`
        for filelist in x??; do