Changeset 30385

Timestamp:

02/20/09 21:57:50 (4 years ago)

Author:

fujiwara

Message:

fixed: 既存の object を上書きする場合 _id を設定する

Location:

lang/perl/DBIx-CouchLike/trunk

Files:

• MANIFEST (modified) (1 diff)
• lib/DBIx/CouchLike.pm (modified) (1 diff)

lang/perl/DBIx-CouchLike/trunk/MANIFEST

@@ -30 +30 @@
 t/08_view_itr.t
 t/09_reduce.t
+t/10_combined.t
 t/connect.pl

lang/perl/DBIx-CouchLike/trunk/lib/DBIx/CouchLike.pm

@@ -299 +299 @@
     my $dbh      = $self->dbh;
 
+    $data_val->{_id} = $id if !defined $data_val->{_id};
+
     return $self->create_view( $id, $data_val )
         if $id =~ qr{^_design/};