diff options
author | Leon Timmermans <fawaka@gmail.com> | 2023-06-06 17:03:57 +0200 |
---|---|---|
committer | Leon Timmermans <fawaka@gmail.com> | 2023-06-06 17:03:59 +0200 |
commit | ce562f4d33dc090fcd8f6ea1af3ba32cdc2b3c9c (patch) | |
tree | 5452fa8fa2fd331e8723a38b906d1d12f21b580d /build-aux | |
parent | e2788e576b2363cdafe4db3c9a435e2ff15df6c2 (diff) | |
download | libxcrypt-ce562f4d33dc090fcd8f6ea1af3ba32cdc2b3c9c.tar.gz libxcrypt-ce562f4d33dc090fcd8f6ea1af3ba32cdc2b3c9c.tar.bz2 libxcrypt-ce562f4d33dc090fcd8f6ea1af3ba32cdc2b3c9c.zip |
Make BuildCommon.pm compatible with latest perl
It was previously using an experimental feature that has since been dropped.
This removes the use of that feature.
Diffstat (limited to 'build-aux')
-rw-r--r-- | build-aux/scripts/BuildCommon.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/build-aux/scripts/BuildCommon.pm b/build-aux/scripts/BuildCommon.pm index 0e6f2a3..c38ba21 100644 --- a/build-aux/scripts/BuildCommon.pm +++ b/build-aux/scripts/BuildCommon.pm @@ -11,7 +11,6 @@ use v5.14; # implicit use strict, use feature ':5.14' use warnings FATAL => 'all'; use utf8; use open qw(:utf8); -no if $] >= 5.018, warnings => 'experimental::smartmatch'; no if $] >= 5.022, warnings => 'experimental::re_strict'; use if $] >= 5.022, re => 'strict'; @@ -519,19 +518,19 @@ sub parse_symver_args { my $COMPAT_ABI; local $_; for (@args) { - when (/^SYMVER_MIN=(.+)$/) { + if (/^SYMVER_MIN=(.+)$/) { $usage_error->() if defined $SYMVER_MIN; $SYMVER_MIN = $1; } - when (/^SYMVER_FLOOR=(.+)$/) { + elsif (/^SYMVER_FLOOR=(.+)$/) { $usage_error->() if defined $SYMVER_FLOOR; $SYMVER_FLOOR = $1; } - when (/^COMPAT_ABI=(.+)$/) { + elsif (/^COMPAT_ABI=(.+)$/) { $usage_error->() if defined $COMPAT_ABI; $COMPAT_ABI = $1; } - default { + else { $usage_error->() if defined $map_in; $map_in = $_; } |