Importing Variable-Magic-0.16.tar.gz

[perl/modules/Variable-Magic.git] / samples / vm_vs_tie.pl

diff --git a/samples/vm_vs_tie.pl b/samples/vm_vs_tie.pl
index cfb491c55da6987e1b9e3b32b79db3bb343d9fc5..8de8ea9ad53b03c20d1d6634abdc5551d9c77af1 100755 (executable)
--- 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 }