RT# 38217 Fix syntax warning from typo

diff --git a/FS/FS/cust_main_Mixin.pm b/FS/FS/cust_main_Mixin.pm
index ccd1b84..296a9e4 100644 (file)
--- a/FS/FS/cust_main_Mixin.pm
+++ b/FS/FS/cust_main_Mixin.pm
@@ -465,8 +465,7 @@ sub email_search_result {
       next; # unlinked object; nothing else we can do
     }
 
-    my %to = {};
-    if ($to) { $to{'to'} = $to; }
+    my %to = ( to => $to ) if $to;
 
     if ( $msg_template ) {
       # Now supports other context objects.