diff options
Diffstat (limited to 'Build')
-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:"; |