Get current op information in magic callbacks

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

diff --git a/t/10-simple.t b/t/10-simple.t
index 1fdefcd61aa3e8b418e9863eecf5cd38b0b2b229..adfea124616eeebaa062560a617af581b76df62a 100644 (file)
--- a/t/10-simple.t
+++ b/t/10-simple.t
@@ -7,7 +7,7 @@ use Test::More tests => 46;
 
 use Variable::Magic qw/wizard gensig getsig cast dispell MGf_COPY MGf_DUP MGf_LOCAL VMG_UVAR/;
 
-my $args = 7;
+my $args = 8;
 ++$args if MGf_COPY;
 ++$args if MGf_DUP;
 ++$args if MGf_LOCAL;