[haver-commits] r882 - in trunk: . perl/server/lib/Haver/Server/Entity

[haver]

Author: dylan
Date: 2005-07-18 22:57:22 -0400 (Mon, 18 Jul 2005)
New Revision: 882

Modified:
   trunk/
   trunk/perl/server/lib/Haver/Server/Entity/Channel.pm
Log:
 contents() usage removed.


Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1295
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238
   + 1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/havercurs-objc:43089
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk:11166
1f59643a-e6e5-0310-bc24-f7d4c744f460:/haver/local/trunk-merge-10131:11178
27e50396-46e3-0310-8b22-ae223a1f35ce:/local:212
e9404bb1-7af0-0310-a7ff-e22194cd388b:/haver/local:1297
edfcd8bd-4ce7-0310-a97e-bb1efd40edf3:/local:238

Modified: trunk/perl/server/lib/Haver/Server/Entity/Channel.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Entity/Channel.pm        2005-07-19 
02:45:58 UTC (rev 881)
+++ trunk/perl/server/lib/Haver/Server/Entity/Channel.pm        2005-07-19 
02:57:22 UTC (rev 882)
@@ -43,7 +43,7 @@
 sub put {
     my ($self, $msg) = @_;
 
-    foreach my $user ($self->contents('user')) {
+    foreach my $user ($self->list('user')) {
         $user->put($msg);
     }
 }