--- Cache-Memcached-1.0.12/Memcached.pm	Thu May 20 08:32:02 2004
+++ Cache-Memcached-1.0.12/Memcached.pm	Thu May 20 10:58:18 2004
@@ -486,10 +486,9 @@
             }
 
             # do we have a complete VALUE line?
-            if ($buf{$sock} =~ /^VALUE (\S+) (\d+) (\d+)\r\n/g) {
-                ($key{$sock}, $flags{$sock}, $state{$sock}) = ($1, int($2), $3+2);
-                my $p = pos($buf{$sock});
-                pos($buf{$sock}) = 0;
+            if ($buf{$sock} =~ /^(VALUE (\S+) (\d+) (\d+)\r\n)/) {
+                ($key{$sock}, $flags{$sock}, $state{$sock}) = ($2, int($3), $4+2);
+                my $p = length($1);
                 my $len = length($buf{$sock});
                 my $copy = $len-$p > $state{$sock} ? $state{$sock} : $len-$p;
                 $ret->{$key{$sock}} = substr($buf{$sock}, $p, $copy)