[Openinteract-commits] CVS: SPOPS/SPOPS/ClassFactory DefaultBehavior.pm,1.10,1.11

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/SPOPS/SPOPS/ClassFactory
In directory usw-pr-cvs1:/tmp/cvs-serv28934/SPOPS/ClassFactory

Modified Files:
	DefaultBehavior.pm 
Log Message:
ensure that 'fetch_by' doesn't use something as a hashref that isn't
necessarily defined as such


Index: DefaultBehavior.pm
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/SPOPS/ClassFactory/DefaultBehavior.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** DefaultBehavior.pm	2001/10/12 21:00:26	1.10
--- DefaultBehavior.pm	2001/10/15 04:27:39	1.11
***************
*** 259,262 ****
--- 259,263 ----
         sub %%CLASS%%::fetch_by_%%FETCH_BY_FIELD%% {
             my ( $item, $fb_field_value, $p ) = @_;
+            $p ||= {};
             my $obj_list = $item->fetch_group({ where => "%%FETCH_BY_FIELD%% = ?",
                                                 value => [ $fb_field_value ],