| 1 | --- /var/www/mythweb/modules/stream/stream_flv.pl.bak 2010-05-18 15:57:53.220837518 +1000 |
|---|
| 2 | +++ /var/www/mythweb/modules/stream/stream_flv.pl 2010-05-18 22:26:46.819587799 +1000 |
|---|
| 3 | @@ -8,10 +8,17 @@ |
|---|
| 4 | # @author $Author: kormoc $ |
|---|
| 5 | # |
|---|
| 6 | |
|---|
| 7 | - use Math::Round qw(round_even); |
|---|
| 8 | + use POSIX qw(ceil floor); |
|---|
| 9 | |
|---|
| 10 | our $ffmpeg_pid; |
|---|
| 11 | |
|---|
| 12 | +# round to the nearest even integer |
|---|
| 13 | + sub round_even { |
|---|
| 14 | + my ($in) = @_; |
|---|
| 15 | + my $n = floor($in); |
|---|
| 16 | + return ($n % 2 == 0) ? $n : ceil($in); |
|---|
| 17 | + } |
|---|
| 18 | + |
|---|
| 19 | # Shutdown cleanup, of various types |
|---|
| 20 | $SIG{'TERM'} = \&shutdown_handler; |
|---|
| 21 | $SIG{'PIPE'} = \&shutdown_handler; |
|---|
