filamentspool: Properly double % in PS printf format here doc

diff --git a/filamentspool-number.eps.pl b/filamentspool-number.eps.pl
index c9cce78058e07c9137df99b098fdfb1817ca90e4..c05903a33a41d9dd510e46a1e995ff0d250d4c20 100755 (executable)
--- a/filamentspool-number.eps.pl
+++ b/filamentspool-number.eps.pl
@@ -4,7 +4,7 @@ die unless @ARGV==1 && $ARGV[0] =~ m/^\d+/;
 my $num = $ARGV[0];
 $num /= 1000;
 printf <<END, $num or die $!;
-%!
+%%!
 /Helvetica-Bold findfont
 15 scalefont
 setfont