[Bps-public-commit] cpan2rt branch, master, updated. 17b977521f85e62810a6b345b45d3293a9bc741a

[Dianne Skoll]

The branch, master has been updated
       via  17b977521f85e62810a6b345b45d3293a9bc741a (commit)
      from  783e5ae797f7432aa3a3dd83a459be74dc387245 (commit)

Summary of changes:
 lib/CPAN2RT.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

- Log -----------------------------------------------------------------
commit 17b977521f85e62810a6b345b45d3293a9bc741a
Author: Dianne Skoll <dianne at bestpractical.com>
Date:   Fri Feb 26 08:58:10 2021 -0500

    Silence warnings about case-sensitive searches.

diff --git a/lib/CPAN2RT.pm b/lib/CPAN2RT.pm
index 41282b0..b834147 100644
--- a/lib/CPAN2RT.pm
+++ b/lib/CPAN2RT.pm
@@ -862,7 +862,12 @@ sub load_or_create_version_cf {
     my ($queue, $name) = @_;
 
     my $cfs = RT::CustomFields->new( $RT::SystemUser );
-    $cfs->Limit( FIELD => 'Name', VALUE => $name );
+
+    # Explicitly specify case-sensitive searches.  Newer versions
+    # of RT::SearchBuilder issue a warning if we don't do that,
+    # so silence the warnings.
+    $cfs->Limit( FIELD => 'Name', VALUE => $name, CASESENSITIVE => 1 );
+
     $cfs->LimitToQueue( $queue->id );
     $cfs->{'find_disabled_rows'} = 0;   # This is why we don't simply do a LoadByName
     $cfs->OrderByCols; # don't sort things

-----------------------------------------------------------------------