--- trunk/lib/Frey/CouchAPI.pm 2009/04/23 21:06:48 1054 +++ trunk/lib/Frey/CouchAPI.pm 2009/04/23 21:17:17 1055 @@ -273,6 +273,15 @@ } else { warn "retrive $p ", -s $p, " bytes\n"; $json = Storable::retrieve( $p ); + if ( delete $arg->{revs_info} ) { + my $rev = file_rev $p; + $json->{_rev} = $rev; + $json->{_revs_info} = [ + { rev => $rev, status => 'available' } + ]; + } + $status = 200; + } } elsif ( $method eq 'DELETE' ) { if ( -e $p ) {