commit 87ccd23047ceacf5e7b028650b8fde7a2c5a7279
Author: Kornel Benko <[email protected]>
Date:   Wed Jun 21 00:09:50 2017 +0200

    Cmake export tests: Missed second parameter for writeConverters()
    
    Unfortunatelly the prototype checking in perl is not very
    sophisticated.
---
 lib/scripts/prefTest.pm |   11 +++++++++--
 1 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/lib/scripts/prefTest.pm b/lib/scripts/prefTest.pm
index d5b3469..814304f 100644
--- a/lib/scripts/prefTest.pm
+++ b/lib/scripts/prefTest.pm
@@ -13,6 +13,7 @@ sub getConverters($$$);
 sub getConverter($$);
 sub getNext($);
 sub writeConverters($$);
+sub createConvLine($$);
 
 sub getSubstitutes($$@)
 {
@@ -78,7 +79,7 @@ sub getConverter($$)
   ($l, $from) = getNext($l);
   return undef if ($from !~ /tex$/);
   ($l, $to) = getNext($l);
-  return undef if ($to !~ /^(dvi3?|pdf[23456]?)$/);
+  return undef if ($to !~ /^((dvi3?|pdf[23456]?)(log)?)$/);
   ($l, $cmd) = getNext($l);
   if ($add) {
     if ($cmd !~ /\-shell-escape/) {
@@ -165,9 +166,15 @@ sub applyChanges($$$$)
              }
              else {
                $rConverter->{$key}->[2] = 1;
-               $l = &createConvLine($key);
+               $l = &createConvLine($key, $rConverter);
              }
            }
+           else {
+             # Converter defined only in preferences
+             $rConverter->{$key} = $entry->[1];
+             $rConverter->{$key}->[2] = 1;
+             $l = &createConvLine($key, $rConverter);
+           }
          }
        }
        else {

Reply via email to