Importing Variable-Magic-0.15.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..cfb491c55da6987e1b9e3b32b79db3bb343d9fc5 100755 (executable)
--- a/samples/vm_vs_tie.pl
+++ b/samples/vm_vs_tie.pl
@@ -22,7 +22,9 @@ my %v;
 $v{$a[$_]} = $_ for 0 .. $#a;
 cast %v, $wiz;
 
+my $x = 0;
+
 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 }
 };