reanme $stem nfc

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

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index d83a4ad20e43e97b3bac41075b252fc252cd3aff..f0e9e2c38f5f8d1263874e442b3cad160130a8a1 100755 (executable)
--- 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;