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 9c8cae42e241b71b232f9617ba50c318caf34903..8de8ea9ad53b03c20d1d6634abdc5551d9c77af1 100755 (executable)
--- a/samples/vm_vs_tie.pl
+++ b/samples/vm_vs_tie.pl
@@ -22,7 +22,10 @@ my %v;
 $v{$a[$_]} = $_ for 0 .. $#a;
 cast %v, $wiz;
 
+my $x = 0;
+
+print "Using Variable::Magic ", $Variable::Magic::VERSION, "\n";
 cmpthese -3, {
- 'tie'  => sub { my ($x, $y) = map @a[rand @a], 1 .. 2; my $a = $t{$x}; $t{$y} = $a },
- 'v::m' => sub { my ($x, $y) = map @a[rand @a], 1 .. 2; my $a = $v{$x}; $v{$y} = $a }
+ '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 }
 };