Ticket #8469: patch_file

File patch_file, 612 bytes (added by Jesse Chilcott <jesse.chilcott+mythtv@…>, 10 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;