diff options
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 |