Subject: | Deprecated/broken POE::Session syntax |
DBIAgent uses an old POE::Session syntax that is no longer supported.
Here's a patch.
--- /usr/local/share/perl/5.8.7/POE/Component/DBIAgent.pm
2003-12-02 03:40:00.000000000 -0500
+++ POE/Component/DBIAgent.pm 2006-04-17 13:12:50.000000000 -0400
@@ -237,9 +237,12 @@
$self->{pending_query_count} = 0;
$self->{active_query_count} = 0;
- POE::Session->new( $self,
- [ qw [ _start _stop db_reply remote_stderr error ] ]
- );
+ POE::Session->create(
+ object_states => [
+ $self =>
+ [ qw [ _start _stop db_reply remote_stderr error ] ],
+ ],
+ );
return $self;
}