diff options
| author | Alexander Bluhm <bluhm@cvs.openbsd.org> | 2014-04-24 09:05:11 +0000 |
|---|---|---|
| committer | Alexander Bluhm <bluhm@cvs.openbsd.org> | 2014-04-24 09:05:11 +0000 |
| commit | f0ac760c1341a40ebb9fda45410b67b1a8e871db (patch) | |
| tree | 83507da75f30fcacec7acd9c7e69495b7abae5a5 /regress | |
| parent | fa0ed0106d2b57726d994bfa05326128438d0131 (diff) | |
The switch statement given/when was introduced in Perl 5.10 and got
experimental in Perl 5.18. So we see warnings in the tests.
given is experimental at funcs.pl line 62.
when is experimental at funcs.pl line 63.
Just suppress this type of warnings for now. If Perl will disable
smart match, the simple regression code still works. If they will
choose to remove given/when, we can fix it later.
Discussed with and OK andre@ afresh1@
Diffstat (limited to 'regress')
| -rw-r--r-- | regress/sys/kern/sosplice/funcs.pl | 3 | ||||
| -rw-r--r-- | regress/usr.sbin/relayd/funcs.pl | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/regress/sys/kern/sosplice/funcs.pl b/regress/sys/kern/sosplice/funcs.pl index 39cfd35e315..19c68b95e55 100644 --- a/regress/sys/kern/sosplice/funcs.pl +++ b/regress/sys/kern/sosplice/funcs.pl @@ -1,4 +1,4 @@ -# $OpenBSD: funcs.pl,v 1.5 2013/01/17 17:58:28 bluhm Exp $ +# $OpenBSD: funcs.pl,v 1.6 2014/04/24 09:05:10 bluhm Exp $ # Copyright (c) 2010-2013 Alexander Bluhm <bluhm@openbsd.org> # @@ -16,6 +16,7 @@ use strict; use warnings; +no warnings 'experimental::smartmatch'; use feature 'switch'; use Errno; use Digest::MD5; diff --git a/regress/usr.sbin/relayd/funcs.pl b/regress/usr.sbin/relayd/funcs.pl index 14ba5ec3ea2..48cef1a5aeb 100644 --- a/regress/usr.sbin/relayd/funcs.pl +++ b/regress/usr.sbin/relayd/funcs.pl @@ -1,4 +1,4 @@ -# $OpenBSD: funcs.pl,v 1.8 2013/02/07 22:56:27 bluhm Exp $ +# $OpenBSD: funcs.pl,v 1.9 2014/04/24 09:05:10 bluhm Exp $ # Copyright (c) 2010-2013 Alexander Bluhm <bluhm@openbsd.org> # @@ -16,6 +16,7 @@ use strict; use warnings; +no warnings 'experimental::smartmatch'; use feature 'switch'; use Errno; use Digest::MD5; |