From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Nov 2021 20:46:19 +0000 (+0000)
Subject: code cleanup
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=396bb10ae3912520b67468c79da3d7ed540eb775;p=quacks.git

code cleanup

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 727645c..78e59a0 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -712,7 +712,7 @@ END
 
 sub tile {
   my @tiles;
-  my $index_i = 1;
+  my $index = 1;
 
   foreach my $spec (@_) {
     my @datas;
@@ -724,7 +724,7 @@ sub tile {
       $data .= <<END;
     /Courier-Bold findfont 6 scalefont setfont
     -0.98 0.94 dc moveto
-    ($index_i) show
+    ($index) show
 END
       open F, ">book-$stem.ps" or die $!;
       print F $ps_framing, $data, "\nshowpage\n" or die $!;
@@ -732,9 +732,9 @@ END
       push @datas, $data;
     }
     foreach my $dd (@datas) {
-      push @tiles, [ $dd, $index_i ];
+      push @tiles, $dd;
     }
-    $index_i++;
+    $index++;
   }
 
   my $pos = 0;
@@ -746,9 +746,7 @@ $page_pre
 END
   };
 
-  while (my $di = pop @tiles) {
-    my ($d, $index) = @$di;
-
+  while (my $d = pop @tiles) {
     if ($pos >= 5) {
       $pos -= 5;
       $showpage->();