percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-27 16:12:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

Slight improvement to the deserialize regex and its test output.

Browse Source
This commit is contained in:
Brian Fraser
2011-12-28 20:08:30 -03:00
parent 4197b09f53
commit 85817a795c
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Quoter.pm
View File

@@ -172,7 +172,7 @@ sub deserialize_list {
[^\\,]* # Same as above. [^\\,]* # Same as above.
)* # Repeat zero of more times. )* # Repeat zero of more times.
) )
(?:,|\z) # Comma dividing elements or absolute end of the string. ,? # Comma dividing elements or absolute end of the string.
/sxg; /sxg;
# Last element will always be empty. Flaw in the regex. # Last element will always be empty. Flaw in the regex.

2
t/lib/Quoter.t
View File

@@ -155,7 +155,7 @@ SKIP: {
$sth->execute($test_index, $ser); $sth->execute($test_index, $ser);
$selsth->execute($test_index); $selsth->execute($test_index);
my $flat_string = "@{$serialize_tests[$test_index]}"; my $flat_string = "[" . join("][", @{$serialize_tests[$test_index]}) . "]";
$flat_string =~ s/\n/\\n/g; $flat_string =~ s/\n/\\n/g;
is_deeply( is_deeply(