From d6a160ac3526709a951637d6568225a519f9838d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Nov 2021 19:32:01 +0000
Subject: [PATCH] break out @books nfc

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 pumpkin-books.ps.pl | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

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;
 
-- 
2.30.2