Ticket #8469: patch_file

File patch_file, 612 bytes (added by Jesse Chilcott <jesse.chilcott+mythtv@…>, 15 years ago)

patch that solves the problem.

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