Hello community, here is the log from the commit of package perl-NetPacket for openSUSE:13.1 checked in at 2013-10-24 14:38:06 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:13.1/perl-NetPacket (Old) and /work/SRC/openSUSE:13.1/.perl-NetPacket.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-NetPacket" Changes: -------- --- /work/SRC/openSUSE:13.1/perl-NetPacket/perl-NetPacket.changes 2013-09-23 11:04:32.000000000 +0200 +++ /work/SRC/openSUSE:13.1/.perl-NetPacket.new/perl-NetPacket.changes 2013-10-24 14:38:07.000000000 +0200 @@ -1,0 +2,12 @@ +Wed Oct 9 16:30:09 UTC 2013 - [email protected] + +- Extend last change for 32-bit big endian + +------------------------------------------------------------------- +Thu Oct 3 13:48:17 UTC 2013 - [email protected] + +- USB is little endian, so we need to convert it on BigEndian + platforms (perl-NetPacket-bigendian.patch) + upstream commit fc0563f746c44387d77e70792628fe2a03628751 + +------------------------------------------------------------------- New: ---- perl-NetPacket-bigendian.patch ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-NetPacket.spec ++++++ --- /var/tmp/diff_new_pack.OWZu3O/_old 2013-10-24 14:38:07.000000000 +0200 +++ /var/tmp/diff_new_pack.OWZu3O/_new 2013-10-24 14:38:07.000000000 +0200 @@ -24,6 +24,7 @@ Group: Development/Libraries/Perl Source: http://search.cpan.org/CPAN/authors/id/Y/YA/YANICK/NetPacket-%{version}.tar.gz Patch1: perl-NetPacket-backport.patch +Patch2: perl-NetPacket-bigendian.patch Url: http://search.cpan.org/dist/NetPacket BuildRoot: %{_tmppath}/%{name}-%{version}-build %{perl_requires} @@ -57,6 +58,7 @@ %prep %setup -q -n "NetPacket-%{version}" %patch1 +%patch2 -p1 %build %__perl ./Build.PL ++++++ perl-NetPacket-bigendian.patch ++++++ 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,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) = - unpack('a8CCCCSCCa8liIIa8llLLa*', $packet); + unpack('a8CCCCS<CCa8l<i<I<I<a8l<l<L<L<a*', $packet); # Try to grok quads. We may loose some address information with 32-bit # Perl parsing 64-bit captures, or timestamp after 2038. Still the best # we can do. eval { - $id = unpack ('Q', $id); - $ts_sec = unpack ('Q', $ts_sec); + $id = unpack ('Q<', $id); + $ts_sec = unpack ('Q<', $ts_sec); }; if ($@) { - ($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) { ($setup->{wValue}, $setup->{wIndex}, - $setup->{wLength}) = unpack('S3', $rest); + $setup->{wLength}) = unpack('S<3', $rest); } else { # Unknown setup request; $setup->{data} = $rest; @@ -127,7 +127,7 @@ sub decode # Isochronous descriptors if ($self->{xfer_type} == USB_XFER_TYPE_ISO) { my $iso = {}; - ($iso->{error_count}, $iso->{numdesc}) = unpack('ii', $s); + ($iso->{error_count}, $iso->{numdesc}) = unpack('i<i<', $s); $self->{iso} = $iso; } -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
