svn commit: r1929175 - spamassassin/trunk/lib/Mail/SpamAssassin/Plugin

Author: gbechis
Date: Thu Oct 16 13:39:33 2025
New Revision: 1929175

Log:
avoid a warning

Modified:
   spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Redirectors.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Redirectors.pm
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Redirectors.pm	Thu Oct 16 13:00:36 2025	(r1929174)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Redirectors.pm	Thu Oct 16 13:39:33 2025	(r1929175)
@@ -1003,12 +1003,14 @@ sub recursive_lookup {
   my %paramseen;
   my $denorm_location = $location;
   my ($hostpart, $querystring) = split /\?/, $location, 2;
-  my @params = split /&|%26/, $querystring;
-  my @unique_params = grep { !$paramseen{$_}++ } @params;
-  my $nquerystring = join '&', @unique_params;
-  $location = $hostpart . '?' . $nquerystring;
-  if($denorm_location ne $location) {
-    dbg("Normalizing redirector parameters from $denorm_location to $location"); 
+  if(defined $querystring) {
+    my @params = split /&|%26/, $querystring;
+    my @unique_params = grep { !$paramseen{$_}++ } @params;
+    my $nquerystring = join '&', @unique_params;
+    $location = $hostpart . '?' . $nquerystring;
+    if($denorm_location ne $location) {
+      dbg("Normalizing redirector parameters from $denorm_location to $location"); 
+    }
   }
 
   my ($domain, $host) = $self->{main}->{registryboundaries}->uri_to_domain($location);