perl/perl-NetPacket
SHA256
8
0
Fork 0
forked from pool/perl-NetPacket
Code Pull Requests Activity

Accepting request 203766 from home:Andreas_Schwab:Factory

Browse Source 
- Extend last change for 32-bit big endian

OBS-URL: https://build.opensuse.org/request/show/203766
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-NetPacket?expand=0&rev=13
This commit is contained in:
Lars Vogdt
2013-10-20 16:34:43 +00:00
committed by Git OBS Bridge
parent 8ef6092460
commit 63a5c6cb37
2 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
perl-NetPacket-bigendian.patch
View File

@@ -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) {

5
perl-NetPacket.changes
View File

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