diff options
author | Karl Berry <karl@freefriends.org> | 2017-09-13 22:05:58 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-09-13 22:05:58 +0000 |
commit | 9c81c7895426957aac1406ed821d52edb456f85b (patch) | |
tree | 8916b210382241519a53779b66df67d86619d375 /Master/texmf-dist/scripts/pst2pdf | |
parent | ce7643832e815cb88d6b094fd4a6230d6b8df779 (diff) |
pst2pdf (14sep17)
git-svn-id: svn://tug.org/texlive/trunk@45290 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/pst2pdf')
-rwxr-xr-x | Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl b/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl index 01b7a946e5f..6ce08cb98fe 100755 --- a/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl +++ b/Master/texmf-dist/scripts/pst2pdf/pst2pdf.pl @@ -5,7 +5,7 @@ use strict; # to be sure, that all is safe ... :-) use v5.18; # $Id: pst2pdf.pl 119 2014-09-24 12:04:09Z herbert $ # v. 0.16 2014-09-14 simplify the use of PSTricks with pdf -# 2014-09-24 (c) Herbert Voss <hvoss@tug.org> +# 2017-09-11 (c) Herbert Voss <hvoss@tug.org> # Pablo González Luengo <pablogonz@yahoo.com> # # This program is free software; you can redistribute it and/or modify @@ -59,10 +59,10 @@ my $other = "other"; # search other verbatim environment #---------------- Program identification, options and help ------------- my $program = 'pst2pdf'; -my $nv='v0.16'; -my $ident = '$Id: pst2pdf.pl 119 2014-09-24 12:04:09Z herbert $'; +my $nv='v0.17'; +my $ident = '$Id: pst2pdf.pl 119 2017-09-11 12:04:09Z herbert $'; my $copyright = <<END_COPYRIGHT ; -Copyright 2011-2014 (c) Herbert Voss <hvoss\@tug.org> and Pablo González. +Copyright 2011-2017 (c) Herbert Voss <hvoss\@tug.org> and Pablo González. END_COPYRIGHT my $licensetxt= <<END_LICENSE ; This program is free software; you can redistribute it and/or modify @@ -502,7 +502,7 @@ my $archivo; close $ENTRADA; ## Partición del documento -my($cabeza,$cuerpo,$final) = $archivo =~ m/\A (.+? ^\\begin{document}) (.+) (^ \\end{document} .*) \z/msx; +my($cabeza,$cuerpo,$final) = $archivo =~ m/\A (.+? ^\\begin\{document\}) (.+) (^ \\end\{document\} .*) \z/msx; ## Variables y constantes my $no_del = "\0"; |