Permalink
Browse files

Merge pull request #272 from mhwest13/master

Bugfixes...
  • Loading branch information...
2 parents 88e207f + 667c62e commit 21a31a418483ed1493882ed801e37f33b8f18f80 @mhwest13 mhwest13 committed Mar 16, 2013
Showing with 3 additions and 3 deletions.
  1. +3 −3 plugins/memcached/memcached_multi_
@@ -499,7 +499,7 @@ if (defined $ARGV[0] && $ARGV[0] eq 'suggest') {
if (defined($s)) {
fetch_stats();
my @rootplugins = ('bytes','conns','commands','evictions','items','memory');
- if ($stats{version} !~ /^1\.4\.[0-2]$/) {
+ if ($stats{version} !~ /^1\.4\.[0-7]$/) {
push(@rootplugins, 'unfetched');
}
foreach my $plugin (@rootplugins) {
@@ -1012,7 +1012,7 @@ sub fetch_stats {
# Lets print the stats command and store the info from the output
print $s "stats\r\n";
while (my $line = <$s>) {
- if ($line =~ /STAT\s(.+?)\s(.*)/) {
+ if ($line =~ /STAT\s(.+?)\s((\w|\d|\S)+)/) {
my ($skey,$svalue) = ($1,$2);
$stats{$skey} = $svalue;
}
@@ -1021,7 +1021,7 @@ sub fetch_stats {
# Lets print the stats settings command and store the info from the output
print $s "stats settings\r\n";
while (my $line = <$s>) {
- if ($line =~ /STAT\s(.+?)\s(.*)/) {
+ if ($line =~ /STAT\s(.+?)\s((\w|\d|\S)+)/) {
my ($skey,$svalue) = ($1,$2);
if ($skey eq 'evictions') {
$skey = 'evictions_active';

0 comments on commit 21a31a4

Please sign in to comment.