minor fixup to _merge_attr
Matt S Trout [Mon, 17 Jul 2006 02:35:46 +0000 (02:35 +0000)]
lib/DBIx/Class/ResultSet.pm

index 82109c9..c71043b 100644 (file)
@@ -1568,7 +1568,8 @@ sub _resolved_attrs {
 
 sub _merge_attr {
   my ($self, $a, $b) = @_;
-  return $b unless $a;
+  return $b unless defined($a);
+  return $a unless defined($b);
   
   if (ref $b eq 'HASH' && ref $a eq 'HASH') {
     foreach my $key (keys %{$b}) {