| 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;
|
|---|
