Class::DBI::View::HavingとClass::DBI::Plugin::Iterator

　併用するとうまく動きませんでした。

　調べてみると、Class::DBI::View::Havingに下記のパッチをあてると問題ない模様。

　ついでにClass::DBI::Plugin::Iteratorも微調整。

--- Class/DBI/View/Having.pm        Fri Feb 13 15:16:43 2004
+++ Class/DBI/View/Having.pm        Tue Mar 01 12:42:44 2005
@@ -12,8 +12,7 @@
     *{"$class\::retrieve_from_sql"} =  sub {
        my($real_class, $where, @vals) = @_;
        my $sth = $real_class->sql_ViewHaving("HAVING $where");
-       $sth->execute(@vals);
-       return $real_class->sth_to_objects($sth);
+       return $real_class->sth_to_objects($sth, \@vals);
     };
     *{"$class\::retrieve_all"} = sub {
        my $real_class = shift;