| Subject: | Bare print() that should be DEBUG only |
(Originally reported by Chip Salzenberg <chip@synthian.ath.cx> at
<http://bugs.debian.org/307800>.)
Mail::ListDetector::Detector::Lyris::match() contains a bare print
statement that's generating spurious output on standard output. The
statement should be protected by a test for the DEBUG flag.
Simple patch attached.
| Subject: | lyris-debug.patch |
--- lib/Mail/ListDetector/Detector/Lyris.pm.orig
+++ lib/Mail/ListDetector/Detector/Lyris.pm
@@ -40,7 +40,7 @@
my ($listname, $posting_address);
my $list_unsubscribe = Email::Abstract->get_header($message, 'List-Unsubscribe');
- print $list_unsubscribe;
+ print $list_unsubscribe if DEBUG;
if (defined($list_unsubscribe)) {
if ($list_unsubscribe =~ m/<mailto:(leave|unsubscribe)-(.*)-\d+[A-Z]{1}@(.*)>/) {
$listname = $2;