From f1b587991974e1544b1f806353f17ec7a23300ae Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Wed, 25 Nov 2009 22:26:18 +0000 Subject: Fix minor problem with extension substitution. git-svn-id: svn://tug.org/texlive/trunk@16166 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/extra/epstopdf/epstopdf.pl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Build/source/extra/epstopdf') diff --git a/Build/source/extra/epstopdf/epstopdf.pl b/Build/source/extra/epstopdf/epstopdf.pl index b850ae3b239..9269d38eacf 100755 --- a/Build/source/extra/epstopdf/epstopdf.pl +++ b/Build/source/extra/epstopdf/epstopdf.pl @@ -47,6 +47,8 @@ use strict; # # emacs-page # History +# 2009/11/25 v2.14 (Manuel P\'egouri\'e-Gonnard) +# * Better exentension detection, suggested by A. Cherepanov. # 2009/10/18 v2.13 (Manuel P\'egouri\'e-Gonnard) # * Better argument validation, from Alexander Cherepanov. # * Use the list form of pipe open() (resp. system()) to prevent injection. @@ -313,7 +315,8 @@ if ($OutputFilename eq "") { if ($::opt_gs) { $OutputFilename = $InputFilename; if (!$::opt_filter) { - $OutputFilename =~ s/\.[^\.]*$//; + my $ds = ($^O eq "MSWin32" || $^O eq "cygwin") ? '\\/' : '/'; + $OutputFilename =~ s/\.[^\.$ds]*$//; $OutputFilename .= ".pdf"; } } -- cgit v1.2.3