DocBook: do a little something for Sweave & co.

[lyx.git] / development / autotests / useSystemFonts.pl

diff --git a/development/autotests/useSystemFonts.pl b/development/autotests/useSystemFonts.pl
index 12c98507653f6f0f9efec85a11893370f05e69ce..2eae022693c2f2d1ae41997630e23af6073a6686 100644 (file)
--- a/development/autotests/useSystemFonts.pl
+++ b/development/autotests/useSystemFonts.pl
@@ -182,7 +182,7 @@ sub interpretedCopy($$$$)
     $fi_line_no += 1;
     $l =~ s/[\n\r]+$//;
     #chomp($l);
-    my $rStatus = checkLyxLine($l);
+    my $rStatus = checkLyxLine($l, $sourcedir);
     if ($rStatus->{found}) {
       my $rF = $rStatus->{result};
       if ($rStatus->{"filetype"} eq "replace_only") {
@@ -258,8 +258,10 @@ sub interpretedCopy($$$$)
            }
          }
        }
-       if ($foundrelative) {
+       if ($foundrelative && $rStatus->{"filetype"} !~ /^(prefix_for_list|prefix_only)$/) {
           # The result can be relative too
+          # but, since prefix_for_list does no copy, we have to use absolute paths
+          # to address files inside the source dir
           my @rel_list = ();
           for my $fr (@{$filelist}) {
             push(@rel_list, File::Spec->abs2rel($fr, $destdir));