auditor wip rename @xs @ys from @before @after

diff --git a/i18n-diff-auditor b/i18n-diff-auditor
index f8528d97d1e26b430b4cb43eb382172a276ebe75..8c40f4a848822f6d7c7aa23a443ea99dac51b417 100755 (executable)
--- a/i18n-diff-auditor
+++ b/i18n-diff-auditor
@@ -151,19 +151,19 @@ sub semiparse ($) {
 sub analyse_chunk_core () {
     die "plain deletion\n" unless defined $after;
     die "plain insertion\n" unless defined $before;
-    my @before = semiparse $before;
-    my @after = semiparse $after;
+    my @xs = semiparse $before;
+    my @ys = semiparse $after;
     my $next_something = sub {
        my ($ary,$var,$what) = @_;
        die "ran out of $what\n" unless @$ary;
        $$var = shift @$ary;
     };
     my ($x,$y);
-    my $next_before = sub { $next_something->(\@before, \$x, 'before'); };
-    my $next_after  = sub { $next_something->(\@after , \$y, 'after' ); };
+    my $next_before = sub { $next_something->(\@xs, \$x, 'before'); };
+    my $next_after  = sub { $next_something->(\@ys , \$y, 'after' ); };
     my $is_string = sub { $_[0]{T} =~ m/heredoc|string/; };
     for (;;) {
-       last unless @before or @after;
+       last unless @xs or @ys;
        $next_before->();
        $next_after->();
        next if $x->{E} eq $y->{E};
@@ -221,7 +221,7 @@ sub analyse_chunk_core () {
                }
                my $bras = 0;
                for (;;) {
-                   if (!$bras and !@after) {
+                   if (!$bras and !@ys) {
                        last;
                    }
                    $next_after->();
@@ -229,7 +229,7 @@ sub analyse_chunk_core () {
                        (grep { $y->{E} eq $_ } qw( or xor and not ; : )
                         or $y->{T} eq 'ket'
                        )) {
-                       unshift @after, $y;
+                       unshift @ys, $y;
                        last;
                    }
                    $xs =~ s{^\s+}{};