mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-10 21:19:59 +00:00
Remove trailing spaces (#665)
* Remove trailing spaces * PR-665 - Remove trailing spaces - Updated not stable test t/pt-online-schema-change/preserve_triggers.t - Updated utilities in bin directory * PR-665 - Remove trailing spaces - Fixed typos * PR-665 - Remove trailing spaces - Fixed typos --------- Co-authored-by: Sveta Smirnova <sveta.smirnova@percona.com>
This commit is contained in:
@@ -92,7 +92,7 @@ sub parse_event {
|
||||
$raw_packet = "20$raw_packet" unless $raw_packet =~ m/\A20/;
|
||||
|
||||
# Remove special headers (e.g. vlan) before the IPv4 header.
|
||||
# The vast majority of IPv4 headers begin with 4508 (or 4500).
|
||||
# The vast majority of IPv4 headers begin with 4508 (or 4500).
|
||||
# http://code.google.com/p/maatkit/issues/detail?id=906
|
||||
$raw_packet =~ s/0x0000:.+?(450.) /0x0000: $1 /;
|
||||
|
||||
@@ -121,9 +121,9 @@ sub _parse_packet {
|
||||
# Change ports from service name to number.
|
||||
$src_port = $self->port_number($src_port);
|
||||
$dst_port = $self->port_number($dst_port);
|
||||
|
||||
|
||||
my $hex = qr/[0-9a-f]/;
|
||||
(my $data = join('', $packet =~ m/\s+0x$hex+:\s((?:\s$hex{2,4})+)/go)) =~ s/\s+//g;
|
||||
(my $data = join('', $packet =~ m/\s+0x$hex+:\s((?:\s$hex{2,4})+)/go)) =~ s/\s+//g;
|
||||
|
||||
# Find length information in the IPv4 header. Typically 5 32-bit
|
||||
# words. See http://en.wikipedia.org/wiki/IPv4#Header
|
||||
|
Reference in New Issue
Block a user