summaryrefslogtreecommitdiff
path: root/Build/source/extra
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-03-01 01:51:03 +0000
committerKarl Berry <karl@freefriends.org>2010-03-01 01:51:03 +0000
commit402bd194f686177d2dfca24f7c4766434c514141 (patch)
tree935ce3a0700c06b7693e8c4ed9cbb938baf7746d /Build/source/extra
parent97656a2657944b66f012dccafc52c2914806dd63 (diff)
$ rather than \z.
git-svn-id: svn://tug.org/texlive/trunk@17243 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/extra')
-rwxr-xr-xBuild/source/extra/epstopdf/epstopdf.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/Build/source/extra/epstopdf/epstopdf.pl b/Build/source/extra/epstopdf/epstopdf.pl
index 098b7a52d0b..8a41393d926 100755
--- a/Build/source/extra/epstopdf/epstopdf.pl
+++ b/Build/source/extra/epstopdf/epstopdf.pl
@@ -258,7 +258,7 @@ debug "kpsewhich command: $kpsewhich";
sub make_full_path_w32
{
my ($name) = @_;
- $name = "$name.exe" unless $name =~ /\.exe\z/;
+ $name = "$name.exe" unless $name =~ /\.exe$/;
my $path = $ENV{'PATH'};
for my $path_elt (split(/;/, $path)) {
my $fullname = "$path_elt/$name";
@@ -314,8 +314,8 @@ if ($::opt_gscmd) {
$GS = $::opt_gscmd;
# validate GS \label{val_gscmd}
if ($restricted) {
- $GS =~ /^(gs|mgs|gswin32c|gs386|gsos2)\z/
- or $GS =~ /^gs[\-_]?(\d|\d[\.-_]?\d\d)c?\z/
+ $GS =~ /^(gs|mgs|gswin32c|gs386|gsos2)$/
+ or $GS =~ /^gs[\-_]?(\d|\d[\.-_]?\d\d)c?$/
or error "gscmd value not allowed in restricted mode: $GS";
}
}
@@ -359,7 +359,7 @@ $rotmsg = $::opt_autorotate ? $::opt_autorotate : "[use gs default]";
error "Invalid value for autorotate: '$::opt_autorotate' "
. "(use 'All', 'None' or 'PageByPage')."
if ($::opt_autorotate and
- not $::opt_autorotate =~ /^(None|All|PageByPage)\z/);
+ not $::opt_autorotate =~ /^(None|All|PageByPage)$/);
### option BoundingBox types
my $BBName = "%%BoundingBox:";