summaryrefslogtreecommitdiff
path: root/Build/source/extra/epstopdf
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2009-11-25 22:26:18 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2009-11-25 22:26:18 +0000
commitf1b587991974e1544b1f806353f17ec7a23300ae (patch)
tree981d44b65744865d47ad4419369514d0c946e5d3 /Build/source/extra/epstopdf
parentfad83e549d63ba51e2c40f45bb35e3359d5a197c (diff)
Fix minor problem with extension substitution.
git-svn-id: svn://tug.org/texlive/trunk@16166 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/extra/epstopdf')
-rwxr-xr-xBuild/source/extra/epstopdf/epstopdf.pl5
1 files changed, 4 insertions, 1 deletions
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";
}
}