Index: /branches/binary/server/t/binary.t
===================================================================
--- /branches/binary/server/t/binary.t (revision 764)
+++ /branches/binary/server/t/binary.t (revision 765)
@@ -25,6 +25,6 @@
 use constant CMD_CAS     => 51;
 
-# Flags, expiration
-use constant SET_PKT_FMT => "NN";
+# CAS, Flags, expiration
+use constant SET_PKT_FMT => "NNNN";
 
 # Flags, expiration, id
@@ -40,5 +40,5 @@
 use constant RES_MAGIC_BYTE => 0x80;
 
-use constant PKT_FMT => "CCSCxxxNN";
+use constant PKT_FMT => "CCnCxxxNN";
 
 #min recv packet size
@@ -330,4 +330,5 @@
 	my $self = shift;
 	my $rv = shift; # currently contains 4 bytes of 'flag' followed by value
+    my $cas  = substr $rv, 0, 8, ''; # $cas contains CAS value, $rv has f, v.
 	my $flag = substr $rv, 0, 4, ''; # Now $flag contains flags, $rv contains value
 	return unpack("N", $flag), $rv;
@@ -345,5 +346,5 @@
 	my ($cmd, $key, $exp, $flags, $val) = @_;
 
-	return $self->_doCmd($cmd, $key, $val, pack(::SET_PKT_FMT, $flags, $exp));
+	return $self->_doCmd($cmd, $key, $val, pack(::SET_PKT_FMT, 0, 0, $flags, $exp));
 }