From: Rafael Kitover Date: Sun, 28 Jun 2009 12:55:06 +0000 (+0000) Subject: revert X-Git-Tag: v0.08109~29^2~21 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=204e81916f5a9b55998c857c86b860414f99a9f6;p=dbsrgits%2FDBIx-Class.git revert --- diff --git a/lib/DBIx/Class/ResultSourceProxy/Table.pm b/lib/DBIx/Class/ResultSourceProxy/Table.pm index 3a322cc..5cfe4f3 100644 --- a/lib/DBIx/Class/ResultSourceProxy/Table.pm +++ b/lib/DBIx/Class/ResultSourceProxy/Table.pm @@ -6,7 +6,6 @@ use warnings; use base qw/DBIx::Class::ResultSourceProxy/; use DBIx::Class::ResultSource::Table; -use Scalar::Util (); __PACKAGE__->mk_classdata(table_class => 'DBIx::Class::ResultSource::Table'); @@ -76,7 +75,7 @@ Gets or sets the table name. sub table { my ($class, $table) = @_; return $class->result_source_instance->name unless $table; - unless (Scalar::Util::blessed($table)) { + unless (ref $table) { $table = $class->table_class->new({ $class->can('result_source_instance') ? %{$class->result_source_instance||{}} : (),