0.3005 breaks POE::Filter::HTTPD

I just got an error report against Net::DAAP::Server because this is  
happening:
 Undefined subroutine &POE::Filter::HTTPD::status_message called at  
/home/jablko/share/perl/5.8.4/POE/Filter/HTTPD.pm line 215.
Looking at the diff[0] between 0.3003 and 0.3005 it looks like this  
change
-use HTTP::Status;
+use HTTP::Status qw( RC_BAD_REQUEST RC_OK RC_LENGTH_REQUIRED );

was over-zealous.  Here's a fixup:

--- HTTPD.pm~       2004-12-02 15:42:00.000000000 +0000
+++ HTTPD.pm        2005-01-01 21:21:49.000000000 +0000
@@ -20,7 +20,7 @@
 $VERSION = do {my@r=(q$Revision: 1.37  
$=~/\d+/g);sprintf"%d."."%04d"x$#r,@r};
 use Carp qw(croak);
-use HTTP::Status qw( RC_BAD_REQUEST RC_OK RC_LENGTH_REQUIRED );
+use HTTP::Status qw( status_message RC_BAD_REQUEST RC_OK  
RC_LENGTH_REQUIRED );
 use HTTP::Request ();
 use HTTP::Response ();
 use HTTP::Date qw(time2str);


[0]  
http://search.cpan.org/diff?from=POE-0.3003&to=POE-0.3005#lib/POE/ 
Filter/HTTPD.pm
--
Richard Clamp <richardc@xxxxxxxxxxxxx>