From a0b98c4e4bd8cba1ce4fc5d8574f369c319eb147 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Thu, 4 Apr 2019 22:29:54 +0000
Subject: /.shellarguments as well as /shellarguments, for gs 9.27

git-svn-id: svn://tug.org/texlive/trunk@50767 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/dvips/gsftopk/render.ps | 29 ++++++++++++++++++++++++-----
 1 file changed, 24 insertions(+), 5 deletions(-)

(limited to 'Master/texmf-dist/dvips')

diff --git a/Master/texmf-dist/dvips/gsftopk/render.ps b/Master/texmf-dist/dvips/gsftopk/render.ps
index 2c067451b97..be9d8c8b532 100644
--- a/Master/texmf-dist/dvips/gsftopk/render.ps
+++ b/Master/texmf-dist/dvips/gsftopk/render.ps
@@ -3,7 +3,7 @@
 
 % ========================================================================
 %
-% Copyright (c) 1993-1998  Paul Vojta
+% Copyright (c) 1993-2019  Paul Vojta
 %
 % Permission is hereby granted, free of charge, to any person obtaining a copy
 % of this software and associated documentation files (the "Software"), to
@@ -214,10 +214,29 @@ def
 
 % Get arguments.
 
-shellarguments not
-  {
-    (You must provide arguments to the shell!\n) fatal
-  }
+%
+% shellarguments is renamed as .shellarguments in gs-9.27 (early 2019)
+% The following works for gs-9.27 and gs-9.26 or older ones.
+%
+/.shellarguments where
+{
+  pop
+  .shellarguments not
+    {
+      (You must provide arguments to the shell!\n) fatal
+    }
+  if
+}
+if
+/shellarguments where
+{
+  pop
+  shellarguments not
+    {
+      (You must provide arguments to the shell!\n) fatal
+    }
+  if
+}
 if
 
 /dpi exch cvr def
-- 
cgit v1.2.3