X-Git-Url: https://git.lyx.org/gitweb/?a=blobdiff_plain;f=lib%2Fscripts%2FprefTest.pm;h=1f1470f5a6c73c1adb07a8e30a7622badfe08baf;hb=98a64be87297a6ea7f6257ff37c70664262ded21;hp=814304fa506444bfb9604d6585019192f4053179;hpb=87ccd23047ceacf5e7b028650b8fde7a2c5a7279;p=lyx.git diff --git a/lib/scripts/prefTest.pm b/lib/scripts/prefTest.pm index 814304fa50..1f1470f5a6 100644 --- a/lib/scripts/prefTest.pm +++ b/lib/scripts/prefTest.pm @@ -31,12 +31,22 @@ sub getSubstitutes($$@) my $value = $2; my $valid = 0; if (defined($rAllowedKeys->{$key})) { - for my $val (@{$rAllowedKeys->{$key}}) { - if ($val eq $value) { + if (ref($rAllowedKeys->{$key}) eq "ARRAY") { + for my $val (@{$rAllowedKeys->{$key}}) { + if ($val eq $value) { + $valid = 1; + last; + } + } + } + elsif ($rAllowedKeys->{$key} eq "integer") { + if ($value =~ /^\d+$/) { $valid = 1; - last; } } + elsif ($rAllowedKeys->{$key} eq "string") { + $valid = 1; + } } if ($valid) { $rSubst->{$key} = [$value, 0]; @@ -82,7 +92,7 @@ sub getConverter($$) return undef if ($to !~ /^((dvi3?|pdf[23456]?)(log)?)$/); ($l, $cmd) = getNext($l); if ($add) { - if ($cmd !~ /\-shell-escape/) { + if ($cmd !~ /\-shell-(escape|restricted)/) { if ($cmd =~ /^(\S+)\s*(.*)$/) { $cmd = "$1 -shell-escape $2"; $cmd =~ s/\s+$//; @@ -90,7 +100,7 @@ sub getConverter($$) } } else { - $cmd =~ s/\s+\-shell\-escape//; + $cmd =~ s/\s+\-shell\-(escape|restricted)//; } ($l, $par) = getNext($l); return undef if ($par !~ /^latex/);