From 019f78e27fbff715a61890e20a499eaaf423b666 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Nov 2021 19:55:39 +0000
Subject: [PATCH] reanme $stem nfc

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

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index d83a4ad..f0e9e2c 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -789,10 +789,10 @@ foreach my $spec (@books) {
   my @datas;
   foreach my $book (split m{/}, $spec) {
     my $data = ${*::}{"$book"}();;
-    my $file = $book;
-    $file =~ s/_book//;
-    $file =~ y/_/-/;
-    open F, ">book-$file.ps" or die $!;
+    my $stem = $book;
+    $stem =~ s/_book//;
+    $stem =~ y/_/-/;
+    open F, ">book-$stem.ps" or die $!;
     print F $ps_framing, $data, "\nshowpage\n" or die $!;
     close F or die $!;
     push @datas, $data;
-- 
2.30.2