From b3924012db06a3b2d378c19d9a59a2af632b42a7 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 30 Sep 2018 15:48:51 +0100
Subject: [PATCH] auditor wip rename @xs @ys from @before @after

---
 i18n-diff-auditor | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/i18n-diff-auditor b/i18n-diff-auditor
index f8528d9..8c40f4a 100755
--- 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+}{};
-- 
2.30.2