diff --git a/perl-NetPacket-bigendian.patch b/perl-NetPacket-bigendian.patch
index e34d6a1..9071560 100644
--- a/perl-NetPacket-bigendian.patch
+++ b/perl-NetPacket-bigendian.patch
@@ -2,7 +2,7 @@ Index: NetPacket-1.4.1/lib/NetPacket/USBMon.pm
 ===================================================================
 --- NetPacket-1.4.1.orig/lib/NetPacket/USBMon.pm
 +++ NetPacket-1.4.1/lib/NetPacket/USBMon.pm
-@@ -65,14 +65,14 @@ sub decode
+@@ -65,18 +65,18 @@ sub decode
      my($id, $type, $xfer_type, $epnum, $devnum, $busnum, $flag_setup,
          $flag_data, $ts_sec, $ts_usec, $status, $length, $len_cap,
          $s, $interval, $start_frame, $xfer_flags, $ndesc, $rest) =
@@ -19,7 +19,13 @@ Index: NetPacket-1.4.1/lib/NetPacket/USBMon.pm
 +      $ts_sec = unpack ('Q<', $ts_sec);
      };
      if ($@) {
-       ($id) = unpack ('LL', $id);
+-      ($id) = unpack ('LL', $id);
+-      ($ts_sec) = unpack ('LL', $ts_sec);
++      ($id) = unpack ('L<L<', $id);
++      ($ts_sec) = unpack ('L<L<', $ts_sec);
+     }
+ 
+     my $self = {
 @@ -115,7 +115,7 @@ sub decode
  
          if ($setup->{bmRequestType} & USB_TYPE_VENDOR) {
diff --git a/perl-NetPacket.changes b/perl-NetPacket.changes
index 835929f..5010b82 100644
--- a/perl-NetPacket.changes
+++ b/perl-NetPacket.changes
@@ -1,3 +1,8 @@
+-------------------------------------------------------------------
+Wed Oct  9 16:30:09 UTC 2013 - schwab@suse.de
+
+- Extend last change for 32-bit big endian
+
 -------------------------------------------------------------------
 Thu Oct  3 13:48:17 UTC 2013 - dvaleev@suse.com