- minor improvement in efficiency

perl/exit_strategy.pl

@@ -510,7 +510,7 @@ sub check_if_db_conform ($string, $filename) {
   }
 
   sub get_file_path($xp, $filegrp, $filepid) {
-    return $xp->findvalue("mets:file[\@ID=\"$filepid\"]/mets:FLocat/\@xlin:href", $filegrp);
+    return $xp->findvalue("./mets:file[\@ID=\"$filepid\"]/mets:FLocat/\@xlin:href", $filegrp);
   }
   sub get_file_path_rx($xml, $filepid) {
     my $nt = qr{[^>]*};