57 lines
2.1 KiB
Diff
57 lines
2.1 KiB
Diff
|
diff -up texlive-base-20170520/source/texk/texlive/linked_scripts/a2ping/a2ping.pl.gs922 texlive-base-20170520/source/texk/texlive/linked_scripts/a2ping/a2ping.pl
|
|||
|
|
--- texlive-base-20170520/source/texk/texlive/linked_scripts/a2ping/a2ping.pl.gs922 2018-03-11 14:15:15.824669043 -0400
|
|||
|
|
+++ texlive-base-20170520/source/texk/texlive/linked_scripts/a2ping/a2ping.pl 2018-03-11 14:15:21.803523499 -0400
|
|||
|
|
@@ -352,7 +352,7 @@ use just +1; # a JustLib application
|
|||
|
|
use strict;
|
|||
|
|
use integer;
|
|||
|
|
use Htex::papers;
|
|||
|
|
-BEGIN { $Htex::a2ping::VERSION="2.77p" }
|
|||
|
|
+BEGIN { $Htex::a2ping::VERSION="2.77p1" }
|
|||
|
|
|
|||
|
|
# Imp: option to ignore `%%Orientation: Portrait', which gs respects and rotates by 90 degrees if necessary
|
|||
|
|
# Imp: gs(704?!) sometimes finds too small bbox, see Univers.eps
|
|||
|
|
@@ -401,7 +401,7 @@ BEGIN { $Htex::a2ping::VERSION="2.77p" }
|
|||
|
|
|
|||
|
|
### program identification
|
|||
|
|
my $program = "a2ping.pl";
|
|||
|
|
-my $filedate="2006-11-15"; # my $filedate="2001/03/05";
|
|||
|
|
+my $filedate="2018-03-07"; # my $filedate="2001/03/05";
|
|||
|
|
my $copyright = "Written by <pts\@fazekas.hu> from April 2003.
|
|||
|
|
This is free software, GNU GPL >=2.0. There is NO WARRANTY.
|
|||
|
|
(epstopdf 2.7 Copyright 1998-2001 by Sebastian Rahtz et al.)\n";
|
|||
|
|
@@ -1543,12 +1543,13 @@ count /OPCOUNT exch def
|
|||
|
|
(bbox-success\n) ..print
|
|||
|
|
quit
|
|||
|
|
} if
|
|||
|
|
- .callbeginpage
|
|||
|
|
}
|
|||
|
|
+ % Run the previous contents of /BeginPage: {--.callbeginpage--}
|
|||
|
|
+ [exch aload pop currentpagedevice /BeginPage get aload pop] cvx
|
|||
|
|
>> setpagedevice
|
|||
|
|
|
|||
|
|
% vvv do these after our call to /setpagedevice
|
|||
|
|
-.currentglobal true .setglobal
|
|||
|
|
+currentglobal true setglobal
|
|||
|
|
systemdict begin
|
|||
|
|
/..paper.redef<< >>def
|
|||
|
|
/..print/print load def
|
|||
|
|
@@ -1657,7 +1658,7 @@ dup/= exch def /print exch def
|
|||
|
|
pop
|
|||
|
|
}forall} forall
|
|||
|
|
end % systemdict
|
|||
|
|
-.setglobal
|
|||
|
|
+setglobal
|
|||
|
|
systemdict readonly pop
|
|||
|
|
|
|||
|
|
(bbox-begin\n) ..print
|
|||
|
|
@@ -2570,3 +2571,9 @@ texutil.
|
|||
|
|
* separated FileFormat features to FL_* constants
|
|||
|
|
* added --doc
|
|||
|
|
* there is no default FileFormat (PDF) anymore
|
|||
|
|
+
|
|||
|
|
+=head2 2018-03-07 v2.77p1 (Szab<61> P<>ter)
|
|||
|
|
+
|
|||
|
|
+ * .callbeginpage and .setglobal fix for Ghostscript 9.22
|
|||
|
|
+ (https://bugs.ghostscript.com/show_bug.cgi?id=699063).
|
|||
|
|
+ Problem reported by Akira Yokosawa
|