und nochmal überarbeitet.
authorSven Schöling <s.schoeling@linet-services.de>
Wed, 11 Mar 2009 12:59:23 +0000 (12:59 +0000)
committerSven Schöling <s.schoeling@linet-services.de>
Wed, 11 Mar 2009 12:59:23 +0000 (12:59 +0000)
bin/mozilla/common.pl

index 16e1b46..aa05aba 100644 (file)
@@ -586,25 +586,22 @@ sub cross(&\@\@) {
   local (*A, *B) = @_;    # syms for caller's input arrays
 
   # Localise $a, $b
-  my ($caller_a, $caller_b) = do
-  {
+  my ($caller_a, $caller_b) = do {
     my $pkg = caller();
     no strict 'refs';
     \*{$pkg.'::a'}, \*{$pkg.'::b'};
   };
 
-  my $limit = $#A > $#B? $#A : $#B;    # loop iteration limit
-
   local(*$caller_a, *$caller_b);
 
- # This map expression is also the return value.
-  map { my $b_index = $_;
-    map { my $a_index = $_;
 # This map expression is also the return value.
+  map { my $a_index = $_;
+    map { my $b_index = $_;
       # assign to $a, $b as refs to caller's array elements
       (*$caller_a, *$caller_b) = \($A[$a_index], $B[$b_index]);
       $op->();    # perform the transformation
-    }  0 .. $#A;
-  }  0 .. $#B;
+    }  0 .. $#B;
+  }  0 .. $#A;
 }
 
 1;