[poe-commits] poe/POE Kernel.pm,1.193,1.194

[<rc...@us...>]

Update of /cvsroot/poe/poe/POE
In directory usw-pr-cvs1:/tmp/cvs-serv1252/POE

Modified Files:
	Kernel.pm 
Log Message:
Applied jinzougen's patch to have alias_list return an arbitrary alias
in scalar context.


Index: Kernel.pm
===================================================================
RCS file: /cvsroot/poe/poe/POE/Kernel.pm,v
retrieving revision 1.193
retrieving revision 1.194
diff -C2 -d -r1.193 -r1.194
*** Kernel.pm	26 Aug 2002 22:25:26 -0000	1.193
--- Kernel.pm	27 Aug 2002 04:12:33 -0000	1.194
***************
*** 3157,3161 ****
  
    # Return whatever can be found.
!   return keys %{$kr_sessions{$search_session}->[SS_ALIASES]};
  }
  
--- 3157,3162 ----
  
    # Return whatever can be found.
!   my @alias_list = keys %{$kr_sessions{$search_session}->[SS_ALIASES]};
!   return wantarray() ? @alias_list : $alias_list[0];
  }