X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FWWW.pm;h=369be686173024b63013e1316f29652f9d15f6ef;hb=3cda6050b7c8f73e7fd86f88efc5cd42d0c13f73;hp=98e33fd362fa7f277a544cb60d59ff5a5fe31adb;hpb=1c0cfc8726c1c5e4085ad43bdf533b91af88e971;p=public-inbox.git

diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm
index 98e33fd3..369be686 100644
--- a/lib/PublicInbox/WWW.pm
+++ b/lib/PublicInbox/WWW.pm
@@ -13,6 +13,7 @@ package PublicInbox::WWW;
 use 5.008;
 use strict;
 use warnings;
+use Plack::Request;
 use PublicInbox::Config qw(try_cat);
 use URI::Escape qw(uri_escape_utf8 uri_unescape);
 use constant SSOMA_URL => '//ssoma.public-inbox.org/';
@@ -146,8 +147,8 @@ sub invalid_list_mid {
 		if ($mid = mid2blob($ctx)) {
 			require Email::Simple;
 			use PublicInbox::MID qw/mid_clean/;
-			$mid = Email::Simple->new($mid);
-			$ctx->{mid} = mid_clean($mid->header('Message-ID'));
+			my $s = Email::Simple->new($mid);
+			$ctx->{mid} = mid_clean($s->header('Message-ID'));
 		}
 	}
 	undef;