MGf_COPY and MGf_DUP should always be set for the perls we consider

[perl/modules/Variable-Magic.git] / t / 10-simple.t

diff --git a/t/10-simple.t b/t/10-simple.t
index 70b4f6ef778f77556ff9dfdf470879159a0dcaed..1692b44a8616f35ae9064a6670207588ad4145b8 100644 (file)
--- a/t/10-simple.t
+++ b/t/10-simple.t
@@ -5,13 +5,11 @@ use warnings;
 
 use Test::More tests => 43;
 
-use Variable::Magic qw<wizard cast dispell MGf_COPY MGf_DUP MGf_LOCAL VMG_UVAR>;
+use Variable::Magic qw<wizard cast dispell MGf_LOCAL VMG_UVAR>;
 
 my $inv_wiz_obj = qr/Invalid\s+wizard\s+object\s+at\s+\Q$0\E/;
 
-my $args = 7;
-++$args if MGf_COPY;
-++$args if MGf_DUP;
+my $args = 9;
 ++$args if MGf_LOCAL;
 $args += 5 if VMG_UVAR;
 for (0 .. 20) {