use lib qw(/usr/lib/debbugs); since that is where Mail::CrosAssassin lives currently

[debbugs.git] / scripts / spamscan-sa

diff --git a/scripts/spamscan-sa b/scripts/spamscan-sa
index 29a1fb6ff141a9ff9f2879a565cec5d941a5c6ce..4b57ddd99ba990e4ddfc1f5c279f915b79c4eba2 100755 (executable)
--- a/scripts/spamscan-sa
+++ b/scripts/spamscan-sa
@@ -6,6 +6,9 @@
 
 use warnings;
 use strict;
+
+use lib qw(/usr/lib/debbugs);
+
 use Mail::CrossAssassin;
 use Mail::SpamAssassin;
 
@@ -24,7 +27,8 @@ sub header_or_empty ($$) {
     my $value = $mail->get_header($hdr);
     if (defined $value) {
        chomp $value;
-       $value =~ tr/\n/\\n/;
+        # replace newlines with '\n'
+       $value =~ s/\n/\\n/g;
        return $value;
     }
     return '';