Unverified Commit 09fad922 authored by boklm's avatar boklm
Browse files

Escape left brace in regex

This removes a deprecation warning in recent versions of perl.
parent b5bb2ec7
...@@ -652,7 +652,7 @@ sub parse_strace { ...@@ -652,7 +652,7 @@ sub parse_strace {
$removed_files{$1}++; $removed_files{$1}++;
delete $modified_files{$1} unless -f $1; delete $modified_files{$1} unless -f $1;
} }
if ($line =~ m/^\d+ connect\(\d+, {sa_family=AF_INET, sin_port=htons\((\d+)\), sin_addr=inet_addr\("((?:[^"\\]++|\\.)*+)"\)/) { if ($line =~ m/^\d+ connect\(\d+, \{sa_family=AF_INET, sin_port=htons\((\d+)\), sin_addr=inet_addr\("((?:[^"\\]++|\\.)*+)"\)/) {
$test->{results}{connections}{"$2:$1"}++; $test->{results}{connections}{"$2:$1"}++;
} }
} }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment