diff options
| author | Felippe de Meirelles Motta <lippe@FreeBSD.org> | 2008-06-03 02:40:57 +0000 |
|---|---|---|
| committer | Felippe de Meirelles Motta <lippe@FreeBSD.org> | 2008-06-03 02:40:57 +0000 |
| commit | e71fd1fb0dc315e1fb3b26e5a1fb0cf015144f10 (patch) | |
| tree | fc75a59c74843a987de958229e945da246c62dd4 /devel/p5-libalarm/files/patch-lib__Alarm__Concurrent.pm | |
| parent | OpenJazz, is a free, open-source re-implementation of the classic Jazz Jackra... (diff) | |
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 <delgod@portaone.com>
Approved by: araujo (mentor)
Notes
Notes:
svn path=/head/; revision=214206
Diffstat (limited to 'devel/p5-libalarm/files/patch-lib__Alarm__Concurrent.pm')
| -rw-r--r-- | devel/p5-libalarm/files/patch-lib__Alarm__Concurrent.pm | 26 |
1 files changed, 26 insertions, 0 deletions
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 |