From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Nov 2021 19:32:01 +0000 (+0000)
Subject: break out @books nfc
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=d6a160ac3526709a951637d6568225a519f9838d;p=quacks.git

break out @books nfc

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

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 46d945f..cbc32dd 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -771,13 +771,15 @@ def_image(3, "droplet");
 
 print "gsave\n" or die $!;
 
-print tile(
-	   red_book(),
-	   green_book(),
-	   purple_book(),
-	   blue_book(),
-	   lotus_book(),
-	   yellow_book(),
-	   [black_book_pair(), black_book_more()],
-	  ) or die $! if 1;
+our @books = (
+	      red_book(),
+	      green_book(),
+	      purple_book(),
+	      blue_book(),
+	      lotus_book(),
+	      yellow_book(),
+	      [black_book_pair(), black_book_more()],
+	     );
+
+print tile(@books) or die $! if 1;