Date: | Thu, 10 Aug 2006 14:56:04 +0100 (BST) |
To: | bug-Mail-ListDetector [...] rt.cpan.org |
From: | Peter Oliver <p.d.oliver [...] mavit.freeserve.co.uk> |
The internals of recent versions of Mail::Audit have changed such that
Mail::ListDetector can no longer find the underlying Mail::Internet
object. Here's a patch:
--- List.pm~ 2006-07-16 21:16:31.000000000 +0100
+++ List.pm 2006-08-10 14:50:03.000000000 +0100
@@ -16,7 +16,9 @@
$dir ||= $DEFAULT_DIR;
$arg ||= {};
- my $list = Mail::ListDetector->new($self->{obj});
+ my $list = Mail::ListDetector->new( $Mail::Audit::VERSION <= 2.0
+ ? $self->{obj}
+ : $self );
if (!(defined $list)) {
return 0;
--
Peter Oliver