explicitly disable the only warning that this hack triggers

1 files changed, 7 insertions, 2 deletions

diff --git a/regress/usr.sbin/pkg_add/injectadd b/regress/usr.sbin/pkg_add/injectadd
index 8b85f86ab89..23980c9c680 100755
--- a/regress/usr.sbin/pkg_add/injectadd
+++ b/regress/usr.sbin/pkg_add/injectadd
@@ -1,6 +1,9 @@
 #! /usr/bin/perl
 
-# $OpenBSD: injectadd,v 1.1 2018/06/18 13:58:55 espie Exp $
+# $OpenBSD: injectadd,v 1.2 2018/06/18 14:59:15 espie Exp $
+
+use warnings;
+use strict;
 
 # This script injects a specific order in the dependencies key to reproduce
 # the cups bug
@@ -9,6 +12,8 @@ use OpenBSD::Dependencies;
 
 package OpenBSD::Dependencies::SolverBase;
 
+{
+no warnings qw(redefine);
 sub dependencies
 {
 	my $self = shift;
@@ -17,7 +22,7 @@ sub dependencies
 	@l = ((grep {$_ ne $v} @l) , (grep {$_ eq $v} @l));
 	return @l;
 }
-
+}
 
 package main;
 exit (OpenBSD::PkgAdd->parse_and_run('pkg_add'));