diff options
author | Mathieu Lirzin <mthl@gnu.org> | 2018-03-03 23:50:10 +0100 |
---|---|---|
committer | Mathieu Lirzin <mthl@gnu.org> | 2018-03-08 21:33:14 +0100 |
commit | 74902aa24d4c313ab51fa684142d9240f636971a (patch) | |
tree | f906ad5581f51d5ebf5159643d27ae0594396ac1 /t/pm | |
parent | 9385c161707c6d2295d610eef81fe4d1a44b44de (diff) | |
download | automake-74902aa24d4c313ab51fa684142d9240f636971a.tar.gz |
automake: Don't rely on List::Util to provide 'none'
This change fixes automake bug#30631.
This removes the use of List::Util which is not supported by Perl 5.6,
by reimplementing the 'none' subroutine.
* lib/Automake/General.pm (none): New subroutine.
* bin/automake.in (handle_single_transform): Use it.
* t/pm/General.pl: New test.
* t/list-of-tests.mk (perl_TESTS): Add it.
* NEWS: Update.
Diffstat (limited to 't/pm')
-rw-r--r-- | t/pm/General.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/t/pm/General.pl b/t/pm/General.pl new file mode 100644 index 000000000..0caefe7cf --- /dev/null +++ b/t/pm/General.pl @@ -0,0 +1,27 @@ +# Copyright (C) 2018 Free Software Foundation, Inc. +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <https://www.gnu.org/licenses/>. + +use Automake::General; + +my $failed = 0; + +# Check 'none'. +my $none_positive = none { $_[0] < 0 } (1, 7, 3, 8, 9); +$failed = 1 if ($none_positive == 0); + +my $none_gt_8 = none { $_[0] >= 8 } (1, 7, 3, 8, 9); +$failed = 1 if ($none_gt_8 == 1); + +exit $failed; |