Allow editing the key SV in uvar callbacks by passing a new option 'copy_key'

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

diff --git a/t/10-simple.t b/t/10-simple.t
index 7921facab3a3af8047fc70761ab9298c84d96765..1fdefcd61aa3e8b418e9863eecf5cd38b0b2b229 100644 (file)
--- a/t/10-simple.t
+++ b/t/10-simple.t
@@ -11,7 +11,7 @@ my $args = 7;
 ++$args if MGf_COPY;
 ++$args if MGf_DUP;
 ++$args if MGf_LOCAL;
-$args += 4 if VMG_UVAR;
+$args += 5 if VMG_UVAR;
 for (0 .. 20) {
  next if $_ == $args;
  eval { Variable::Magic::_wizard(('hlagh') x $_) };