Sophie: perl-POE-1.289-6.fc16 src

perl-POE-1.289-6.fc16.src.rpm

From 0a286398b5ef3f14454cc605f71d5be28e07481e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Thu, 1 Dec 2011 13:35:37 +0100
Subject: [PATCH] Fix double event arguments dereference

From upstream commit 41f3b9eca45a2314a6f43723e5e9f71731ef7b3e to fix
alarm handling.
---
 lib/POE/Kernel.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/POE/Kernel.pm b/lib/POE/Kernel.pm
index 150e3d3..6efc794 100644
--- a/lib/POE/Kernel.pm
+++ b/lib/POE/Kernel.pm
@@ -1993,8 +1993,8 @@ sub alarm_remove {
   # value when someone needs something useful from it.
 
   return unless defined wantarray;
-  return ( $event->[EV_NAME], $time, @{$event->[EV_ARGS]} ) if wantarray;
-  return [ $event->[EV_NAME], $time, @{$event->[EV_ARGS]} ];
+  return ( $event->[EV_NAME], $time, $event->[EV_ARGS] ) if wantarray;
+  return [ $event->[EV_NAME], $time, $event->[EV_ARGS] ];
 }
 
 # Move an alarm to a new time.  This virtually removes the alarm and
-- 
1.7.7.4