r55374 - in /trunk/libvideo-info-perl/debian: changelog patches/low4bytes.patch patches/series

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat Apr  3 12:13:11 2010
New Revision: 55374

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55374
Log:
New patch low4bytes.patch: fixes FTBFS on amd64. Thanks to Nick Wellnhofer
for the patch (closes: #566587).

Added:
    trunk/libvideo-info-perl/debian/patches/low4bytes.patch
Modified:
    trunk/libvideo-info-perl/debian/changelog
    trunk/libvideo-info-perl/debian/patches/series

Modified: trunk/libvideo-info-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libvideo-info-perl/debian/changelog?rev=55374&op=diff
==============================================================================
--- trunk/libvideo-info-perl/debian/changelog (original)
+++ trunk/libvideo-info-perl/debian/changelog Sat Apr  3 12:13:11 2010
@@ -11,6 +11,10 @@
   [ Ryan Niebur ]
   * Update jawnsy's email address
 
+  [ gregor herrmann ]
+  * New patch low4bytes.patch: fixes FTBFS on amd64. Thanks to Nick Wellnhofer
+    for the patch (closes: #566587).
+
  -- Ryan Niebur <ryanryan52 at gmail.com>  Tue, 01 Sep 2009 21:19:59 -0700
 
 libvideo-info-perl (0.993-1) unstable; urgency=low

Added: trunk/libvideo-info-perl/debian/patches/low4bytes.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libvideo-info-perl/debian/patches/low4bytes.patch?rev=55374&op=file
==============================================================================
--- trunk/libvideo-info-perl/debian/patches/low4bytes.patch (added)
+++ trunk/libvideo-info-perl/debian/patches/low4bytes.patch Sat Apr  3 12:13:11 2010
@@ -1,0 +1,15 @@
+Author: Nick Wellnhofer <wellnhofer at aevum.de>
+Bug-Debian: #566587
+Forwarded: no
+
+--- a/Info/MPEG/System.pm
++++ b/Info/MPEG/System.pm
+@@ -378,7 +378,7 @@ sub read_ts {
+ 
+     if ( $type == 1 ) {
+ 	my $highbit   = (   $self->get_byte( $offset     ) >> 3  ) & 0x01;
+-	my $low4bytes = ( ( $self->get_byte( $offset     ) >> 1  ) & 0x30 ) << 30;
++	my $low4bytes = ( ( $self->get_byte( $offset     ) >> 1  ) & 0x03 ) << 30;
+ 	$low4bytes   |= (   $self->get_byte( $offset + 1 ) << 22 );
+ 	$low4bytes   |= ( ( $self->get_byte( $offset + 2 ) >> 1  ) << 15 );
+ 	$low4bytes   |= (   $self->get_byte( $offset + 3 ) << 7  );

Modified: trunk/libvideo-info-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libvideo-info-perl/debian/patches/series?rev=55374&op=diff
==============================================================================
--- trunk/libvideo-info-perl/debian/patches/series (original)
+++ trunk/libvideo-info-perl/debian/patches/series Sat Apr  3 12:13:11 2010
@@ -3,3 +3,4 @@
 test-m2v.patch
 oqt-optional.patch
 pod-errors.patch
+low4bytes.patch