mop: mo-score-mop reads everything from the cwd

diff --git a/mop/score/mo-score-mop.sh b/mop/score/mo-score-mop.sh
index fc6c6a297783f767c2278a1f7c744bb008b0d51b..20c20b4739f09a7f11d0638f06e75a6db79e145e 100755 (executable)
--- a/mop/score/mo-score-mop.sh
+++ b/mop/score/mo-score-mop.sh
@@ -26,7 +26,7 @@ close CT;
 print STDERR 0+keys %users, "\n";
 
 print STDERR "Scanning teoretical results... ";
-if (open (EX, "mop/score/teorie.txt")) {
+if (open (EX, "teorie.txt")) {
        while (<EX>) {
                chomp;
                (/^$/ || /^#/) && next;
@@ -131,13 +131,13 @@ while ($i < @table) {
 print STDERR "OK\n";
 
 if ($tex) {
-        open HDR,"mop/score/listina.hdr" or die "Cannot open file mop/score/listina.hdr with TeX template!";
+        open HDR,"listina.hdr" or die "Cannot open file listina.hdr with TeX template!";
        while (<HDR>) {print; }
        close HDR;
        
        foreach $r (@table) { print join('&',@$r), "\\cr\n";}
 
-        open FTR,"mop/score/listina.ftr" or die "Cannot open file mop/score/listina.ftr with TeX template!";
+        open FTR,"listina.ftr" or die "Cannot open file listina.ftr with TeX template!";
        while (<FTR>) {print; }
        close FTR;
 } else {