silent harmless param in list context warning

diff --git a/httemplate/misc/sales.cgi b/httemplate/misc/sales.cgi
index 2b6406a..5d9d6c6 100644 (file)
--- a/httemplate/misc/sales.cgi
+++ b/httemplate/misc/sales.cgi
@@ -1,7 +1,7 @@
 <% encode_json( \@return ) %>\
 <%init>
 
-my( $agentnum ) = $cgi->param('arg');
+my $agentnum = scalar($cgi->param('arg'));
 
 my %hash = ( 'disabled' => '' );
 if ( $agentnum > 0 ) {