und nochmal überarbeitet.

diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
index 16e1b46755df3ecbc95495a41984bcde2be67fc1..aa05abab51d60e66afc0df5d5a7fdbf993f1e89d 100644 (file)
--- a/bin/mozilla/common.pl
+++ b/bin/mozilla/common.pl
@@ -586,25 +586,22 @@ sub cross(&\@\@) {
   local (*A, *B) = @_;    # syms for caller's input arrays
 
   # Localise $a, $b
   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 $pkg = caller();
     no strict 'refs';
     \*{$pkg.'::a'}, \*{$pkg.'::b'};
   };
 

-  my $limit = $#A > $#B? $#A : $#B;    # loop iteration limit
-

   local(*$caller_a, *$caller_b);
 
   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
       # 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;
 }
 
 1;