percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-08 11:07:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix log entry line regex.

Browse Source
This commit is contained in:
Daniel Nichter
2013-06-10 20:02:32 -07:00
parent bee0c7a5f1
commit 8641d55a4e
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
bin/pt-agent
View File

@@ -4923,7 +4923,7 @@ sub start_online_logging {
last QUEUE unless $lines;
LINE:
while ( defined(my $line = shift @$lines) ) {
my ($ts, $level, $n_lines, $msg) = $line =~ m/^([^,]+),([^,]+),(.+)/s;
my ($ts, $level, $n_lines, $msg) = $line =~ m/^([^,]+),([^,]+),([^,]+),(.+)/s;
if ( !$ts || !$level || !$n_lines || !$msg ) {
warn "Invalid log entry: $line\n";
next LINE;

2
lib/Percona/Agent/Logger.pm
View File

@@ -132,7 +132,7 @@ sub start_online_logging {
LINE:
while ( defined(my $line = shift @$lines) ) {
# $line = ts,level,n_lines,message
my ($ts, $level, $n_lines, $msg) = $line =~ m/^([^,]+),([^,]+),(.+)/s;
my ($ts, $level, $n_lines, $msg) = $line =~ m/^([^,]+),([^,]+),([^,]+),(.+)/s;
if ( !$ts || !$level || !$n_lines || !$msg ) {
warn "Invalid log entry: $line\n";
next LINE;