Merge 'trunk' into 'DBIx-Class-current'

r33016@cain (orig r2852):  matthewt | 2006-10-25 07:11:15 +0000
fix it properly, fix Changes
r33253@cain (orig r2853):  castaway | 2006-10-30 14:21:53 +0000
Fixed typos in HashRefInflator example

r33254@cain (orig r2854):  ash | 2006-10-30 14:49:27 +0000
Fixed type in hasrref iter - thanks abraxxa

r33255@cain (orig r2855):  ash | 2006-10-31 11:24:43 +0000
Deploy fix that will hopefully sort out problems with HTML::Widget::DBIxClass

r33256@cain (orig r2856):  ash | 2006-11-01 02:11:22 +0000
reverted previous deploy change(r8255) - sorry matt, i wont break it again

diff --git a/Changes b/Changes
index 4f84f5e..d03b8ff 100644 (file)
--- a/Changes
+++ b/Changes
@@ -20,6 +20,8 @@ Revision history for DBIx::Class
 0.07003 2006-XX-XX XX:XX:XX
         - Fix UTF8Columns to work under Perl <= 5.8.0
         - Fix up new_result in ResultSet to avoid alias-related bugs
+        - Made new/update/find handle 'single' rel accessor correctly
+        - Fix NoBindVars to be safer and handle non-true bind values
 
 0.07002 2006-09-14 21:17:32
         - fix quote tests for recent versions of SQLite

diff --git a/lib/DBIx/Class/Manual/Cookbook.pod b/lib/DBIx/Class/Manual/Cookbook.pod
index 5184016..248c0b6 100644 (file)
--- a/lib/DBIx/Class/Manual/Cookbook.pod
+++ b/lib/DBIx/Class/Manual/Cookbook.pod
@@ -1114,7 +1114,7 @@ C<inflate_result>:
      my ($me, $rest) = @_;
 
      return { %$me, 
-        map { ($_ => mk_hash(@{$rest->{$_}})) } keys %$rest } 
+        map { ($_ => mk_hash(@{$rest->{$_}})) } keys %$rest
      };
   }
 
@@ -1127,8 +1127,8 @@ C<inflate_result>:
   $rs->result_class('My::HashRefInflator');
 
   my $datahashref = $rs->next;
-  foreach my $col (keys $datahashref) {
-     if(!ref($datahashref->{$col}) {
+  foreach my $col (keys %$datahashref) {
+     if(!ref($datahashref->{$col})) {
         # It's a plain value
      }
      elsif(ref($datahashref->{$col} eq 'HASH')) {