X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fvm_vs_tie.pl;h=8de8ea9ad53b03c20d1d6634abdc5551d9c77af1;hb=280b91534ff4d9ca7596362002cf65145bf15cf3;hp=cfb491c55da6987e1b9e3b32b79db3bb343d9fc5;hpb=91aec4cfae75e61ff8eeb79448501a8739b0d240;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/samples/vm_vs_tie.pl b/samples/vm_vs_tie.pl
index cfb491c..8de8ea9 100755
--- a/samples/vm_vs_tie.pl
+++ b/samples/vm_vs_tie.pl
@@ -24,6 +24,7 @@ cast %v, $wiz;
 
 my $x = 0;
 
+print "Using Variable::Magic ", $Variable::Magic::VERSION, "\n";
 cmpthese -3, {
  'tie'  => sub { my ($x, $y) = map @a[$x++ % @a], 1 .. 2; my $a = $t{$x}; $t{$y} = $a },
  'v::m' => sub { my ($x, $y) = map @a[$x++ % @a], 1 .. 2; my $a = $v{$x}; $v{$y} = $a }