From 02f8bfd207f126ce7bc274ad1cfa903172e952a4 Mon Sep 17 00:00:00 2001
From: Rocco Caputo <rcaputo@cpan.org>
Date: Tue, 27 Aug 2002 04:12:33 -0400
Subject: [PATCH] Applied jinzougen's patch to have alias_list return an
 arbitrary alias in scalar context.

---
 lib/POE/Kernel.pm  |  3 ++-
 tests/03_aliases.t | 15 +++++++++------
 2 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/lib/POE/Kernel.pm b/lib/POE/Kernel.pm
index 452280ad5..8c4420aa5 100644
--- a/lib/POE/Kernel.pm
+++ b/lib/POE/Kernel.pm
@@ -3156,7 +3156,8 @@ sub alias_list {
   }
 
   # Return whatever can be found.
-  return keys %{$kr_sessions{$search_session}->[SS_ALIASES]};
+  my @alias_list = keys %{$kr_sessions{$search_session}->[SS_ALIASES]};
+  return wantarray() ? @alias_list : $alias_list[0];
 }
 
 #==============================================================================
diff --git a/tests/03_aliases.t b/tests/03_aliases.t
index 963bfb645..e2adab178 100644
--- a/tests/03_aliases.t
+++ b/tests/03_aliases.t
@@ -6,7 +6,7 @@
 use strict;
 use lib qw(./lib ../lib);
 use TestSetup;
-&test_setup(20);
+&test_setup(21);
 
 use POSIX qw (:errno_h);
 
@@ -84,6 +84,9 @@ sub machine_start {
              grep( /^second name$/, @aliases ) == 1
            );
   print "ok 14\n";
+
+  print "not " if $kernel->alias_list($session) eq 2;
+  print "ok 15\n";
 }
 
 # Catch SIGIDLE and SIGZOMBIE.
@@ -114,10 +117,10 @@ sub machine_stop {
   my $heap = $_[HEAP];
 
   print "not " unless $heap->{idle_count} == 1;
-  print "ok 18\n";
+  print "ok 19\n";
 
   print "not " unless $heap->{zombie_count} == 1;
-  print "ok 19\n";
+  print "ok 20\n";
 }
 
 ### Main loop.
@@ -147,7 +150,7 @@ POE::Session->create
       sub {
         $_[KERNEL]->alias_set( 'a_sample_alias' );
         print "not " if $_[KERNEL]->alias_remove( 'a_sample_alias' );
-        print "ok 16\n";
+        print "ok 17\n";
       },
       _signal =>
       sub {
@@ -158,13 +161,13 @@ POE::Session->create
     }
   );
 
-print "ok 17\n";
+print "ok 18\n";
 
 # Now run the kernel until there's nothing left to do.
 
 my $poe_kernel = POE::Kernel->new();
 $poe_kernel->run();
 
-print "ok 20\n";
+print "ok 21\n";
 
 exit;