Escape left brace in regex

This removes a deprecation warning in recent versions of perl.

Escape left brace in regex
This removes a deprecation warning in recent versions of perl.
09fad922 · boklm · b5bb2ec7 · 09fad922
Unverified Commit 09fad922 authored Oct 21, 2016 by boklm
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

TBBTestSuite/TestSuite/BrowserBundleTests.pm TBBTestSuite/TestSuite/BrowserBundleTests.pm +1 -1

No files found.
--- a/TBBTestSuite/TestSuite/BrowserBundleTests.pm
+++ b/TBBTestSuite/TestSuite/BrowserBundleTests.pm
@@ -652,7 +652,7 @@ sub parse_strace {
            $removed_files{$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"}++;
        }
    }