fix markup error in unimarc_field_128a.tmpl
[koha.git] / t / Boolean.t
old mode 100644 (file)
new mode 100755 (executable)
index 1c1e4de..1d179c5
@@ -1,3 +1,6 @@
+#!/usr/bin/perl
+#
+
 use strict;
 use C4::Boolean;
 
@@ -15,7 +18,7 @@ sub f ($) {
    };
    if ($@) {
       $it = $@;
-      $it =~ s/ at \S+ line \d+$\.\n//s;
+      $it =~ s/ at \S+ line \d+\.\n//s;
    }
    return $it;
 }