From e71fd1fb0dc315e1fb3b26e5a1fb0cf015144f10 Mon Sep 17 00:00:00 2001 From: Felippe de Meirelles Motta Date: Tue, 3 Jun 2008 02:40:57 +0000 Subject: Perl module libalarm allows multiple queued alarms. This module is an attempt to enhance Perl's built-in alarm/$SIG{ALRM} functionality. WWW: http://search.cpan.org/~johnsca/libalarm-1.0/ PR: ports/122253 Submitted by: Mykola Marzhan Approved by: araujo (mentor) --- .../files/patch-lib__Alarm__Concurrent.pm | 26 ++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 devel/p5-libalarm/files/patch-lib__Alarm__Concurrent.pm (limited to 'devel/p5-libalarm/files/patch-lib__Alarm__Concurrent.pm') diff --git a/devel/p5-libalarm/files/patch-lib__Alarm__Concurrent.pm b/devel/p5-libalarm/files/patch-lib__Alarm__Concurrent.pm new file mode 100644 index 000000000000..9ec850465437 --- /dev/null +++ b/devel/p5-libalarm/files/patch-lib__Alarm__Concurrent.pm @@ -0,0 +1,26 @@ +--- ./lib/Alarm/Concurrent.pm.orig 2004-05-11 22:06:28.000000000 +0000 ++++ ./lib/Alarm/Concurrent.pm 2008-03-27 16:18:44.000000000 +0000 +@@ -198,12 +198,14 @@ + =cut + sub setalarm($$) { + my ($alarm, $code) = @_; ++ my $alarm_id = 0; + + unless(not defined($code) or UNIVERSAL::isa($code, 'CODE')) { + croak("Alarm handler must be CODEREF"); + } + + push( @ALARM_QUEUE, [ $alarm, time(), $code ] ); ++ $alarm_id = $#ALARM_QUEUE; + + my $time_remaining; + $time_remaining = $ALARM_QUEUE[$ACTIVE_ALARM][1]; +@@ -214,6 +216,8 @@ + $ACTIVE_ALARM = $#ALARM_QUEUE; + CORE::alarm($alarm); + } ++ ++ return $alarm_id; + } + + =item clearalarm INDEX LENGTH -- cgit v1.2.3