X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSet.pm;h=f817d3a23eeef95848c4b2e17f156366d8e3ec42;hb=facd0e8e687648e52f29df73d62d9c993b9b19d1;hp=6f39723cdf175dd8e6854f6f54be36e115a676e6;hpb=7edb97b0949d66fd79e6f222e08da56cd5ca92fd;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm index 6f39723..f817d3a 100644 --- a/lib/DBIx/Class/ResultSet.pm +++ b/lib/DBIx/Class/ResultSet.pm @@ -7,7 +7,7 @@ use DBIx::Class::Carp; use DBIx::Class::ResultSetColumn; use Scalar::Util qw/blessed weaken reftype/; use DBIx::Class::_Util qw( - fail_on_internal_wantarray is_plain_value is_literal_value + fail_on_internal_wantarray is_plain_value is_literal_value UNRESOLVABLE_CONDITION ); use Try::Tiny; use Data::Compare (); # no imports!!! guard against insane architecture @@ -2492,7 +2492,7 @@ sub _merge_with_rscond { if (! defined $self->{cond}) { # just massage $data below } - elsif ($self->{cond} eq $DBIx::Class::ResultSource::UNRESOLVABLE_CONDITION) { + elsif ($self->{cond} eq UNRESOLVABLE_CONDITION) { %new_data = %{ $self->{attrs}{related_objects} || {} }; # nothing might have been inserted yet @cols_from_relations = keys %new_data; }