diff options
| author | Karl Berry <karl@freefriends.org> | 2010-03-01 01:51:03 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2010-03-01 01:51:03 +0000 |
| commit | 402bd194f686177d2dfca24f7c4766434c514141 (patch) | |
| tree | 935ce3a0700c06b7693e8c4ed9cbb938baf7746d /Build/source/extra | |
| parent | 97656a2657944b66f012dccafc52c2914806dd63 (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-x | Build/source/extra/epstopdf/epstopdf.pl | 8 |
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:"; |