OPTIONS_DEFINE=        PERFORMANCE

PERFORMANCE_DESC=      Makes ->Fields() Case-Sensitive (see man page for warnings)

.include <bsd.port.options.mk>

.if ${PORT_OPTIONS:MPERFORMANCE}

EXTRA_PATCHES+=        ${FILESDIR}/optionalpatch-lib__DBIx__SearchBuilder__Handle.pm \

               ${FILESDIR}/optionalpatch-lib__DBIx__SearchBuilder.pm

.endif

--- ./lib/DBIx/SearchBuilder.pm.orig   2013-07-03 18:40:21.000000000 -0500

+++ ./lib/DBIx/SearchBuilder.pm        2014-07-08 04:58:35.000000000 -0500

@@ -1785,9 +1785,11 @@

 =head2 Fields TABLE

-Return a list of fields in TABLE, lowercased.

+Return a list of fields in TABLE

-TODO: Why are they lowercased?

+Note: this is a FreeBSD optionally patched version and both the table 

+names and the field names are case-sensitive.  This could break 

+applications that assume everything is lowercased.

 =cut

--- ./lib/DBIx/SearchBuilder/Handle.pm.orig    2013-06-06 14:06:18.000000000 -0500

+++ ./lib/DBIx/SearchBuilder/Handle.pm 2014-07-08 04:58:05.000000000 -0500

@@ -1430,16 +1430,16 @@

     my $self  = shift;

     my $table = shift;

-    unless ( keys %FIELDS_IN_TABLE ) {

-        my $sth = $self->dbh->column_info( undef, '', '%', '%' )

+    unless ( keys %FIELDS_IN_TABLE && exists $FIELDS_IN_TABLE{$table} ) {

+        my $sth = $self->dbh->column_info( undef, '', $table, '%' )

             or return ();

         my $info = $sth->fetchall_arrayref({});

         foreach my $e ( @$info ) {

-            push @{ $FIELDS_IN_TABLE{ lc $e->{'TABLE_NAME'} } ||= [] }, lc $e->{'COLUMN_NAME'};

+            push @{ $FIELDS_IN_TABLE{ $e->{'TABLE_NAME'} } ||= [] }, $e->{'COLUMN_NAME'};

         }

     }

-    return @{ $FIELDS_IN_TABLE{ lc $table } || [] };

+    return @{ $FIELDS_IN_TABLE{ $table } || [] };

 }