From 9711809041c153fff48e3197400f9040c9beb620 Mon Sep 17 00:00:00 2001 From: bluhm Date: Thu, 24 Apr 2014 09:05:10 +0000 Subject: [PATCH] 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@ --- regress/sys/kern/sosplice/funcs.pl | 3 ++- 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 # @@ -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 # @@ -16,6 +16,7 @@ use strict; use warnings; +no warnings 'experimental::smartmatch'; use feature 'switch'; use Errno; use Digest::MD5; -- 2.20.1