[haver-commits] r883 - trunk/perl/client/lib/Haver

[haver]

Author: bdonlan
Date: 2005-07-18 23:45:43 -0400 (Mon, 18 Jul 2005)
New Revision: 883

Modified:
   trunk/perl/client/lib/Haver/Client.pm
Log:
fix list

Modified: trunk/perl/client/lib/Haver/Client.pm
===================================================================
--- trunk/perl/client/lib/Haver/Client.pm       2005-07-19 02:57:22 UTC (rev 
882)
+++ trunk/perl/client/lib/Haver/Client.pm       2005-07-19 03:45:43 UTC (rev 
883)
@@ -315,7 +315,7 @@
 
 sub list {
     my ($chan, $type) = @_[ARG0, ARG1];
-    $type = defined $type || 'user';
+    $type = defined $type ? $type : 'user';
     _call('send', 'LIST', $chan, $type);
 }