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 46d945fe9dfac560a07d61b9d25dcf091c178f6a..cbc32ddb317b22fa7f2891906de098cb0199825d 100755 (executable)
--- 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;