RT# 75095 - Fixed use of a constant warning.

diff --git a/FS/FS/cust_main/Import_Charges.pm b/FS/FS/cust_main/Import_Charges.pm
index 64fcb5c..0a12c87 100644 (file)
--- a/FS/FS/cust_main/Import_Charges.pm
+++ b/FS/FS/cust_main/Import_Charges.pm
@@ -169,10 +169,10 @@ sub batch_charge {
 
     if ( $row{agent_custid} && $agentnum ) {
       $id = $row{agent_custid};
-      $data{$id}{cust} = (
+      $data{$id}{cust} = {
         'agent_custid' => $row{agent_custid},
         'agentnum'     => $agentnum,
-      );
+      };
       %hash = ( 'agent_custid' => $row{agent_custid},
                 'agentnum'     => $agentnum,
               );