X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSetColumn.pm;fp=lib%2FDBIx%2FClass%2FResultSetColumn.pm;h=c3c80c94565236a4c2a8fa23ae7e212995887501;hp=bde5f9a576c9cb97ae159ac336dd354532930e6d;hb=a580a22749565b3b07f583bc04412e6dc0c84ab2;hpb=7474ed3b192693baa28d2f52de502f0ec3e8ac4e

diff --git a/lib/DBIx/Class/ResultSetColumn.pm b/lib/DBIx/Class/ResultSetColumn.pm
index bde5f9a..c3c80c9 100644
--- a/lib/DBIx/Class/ResultSetColumn.pm
+++ b/lib/DBIx/Class/ResultSetColumn.pm
@@ -5,7 +5,7 @@ use warnings;
 
 use base 'DBIx::Class';
 use DBIx::Class::Carp;
-use DBIx::Class::_Util qw( fail_on_internal_wantarray fail_on_internal_call );
+use DBIx::Class::_Util 'fail_on_internal_call';
 use namespace::clean;
 
 =head1 NAME
@@ -414,12 +414,10 @@ sub func :DBIC_method_is_indirect_sugar{
   #my ($self,$function) = @_;
   my $cursor = $_[0]->func_rs($_[1])->cursor;
 
-  if( wantarray ) {
-    DBIx::Class::_ENV_::ASSERT_NO_INTERNAL_WANTARRAY and my $sog = fail_on_internal_wantarray;
-    return map { $_->[ 0 ] } $cursor->all;
-  }
-
-  return ( $cursor->next )[ 0 ];
+  wantarray
+    ? map { $_->[ 0 ] } $cursor->all
+    : ( $cursor->next )[ 0 ]
+  ;
 }
 
 =head2 func_rs
@@ -455,12 +453,7 @@ sub func_rs {
     'Starting with DBIC@0.082900 func_rs() always returns a ResultSet '
   . 'instance regardless of calling context. Please force scalar() context to '
   . 'silence this warning'
-  )
-    and
-  DBIx::Class::_ENV_::ASSERT_NO_INTERNAL_WANTARRAY
-    and
-  my $sog = fail_on_internal_wantarray
-  ;
+  );
 
   $rs->search_rs( undef, {
     columns => { $self->{_as} => { $function => $select } }