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 727645c34daae365115391d69c742baf1e814419..78e59a01359a10f2d33b9d39abc58699da36083c 100755 (executable)
--- 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->();