Be more paranoid with param in list context

[ndwebbie.git] / lib / NDWeb / Controller / Root.pm

diff --git a/lib/NDWeb/Controller/Root.pm b/lib/NDWeb/Controller/Root.pm
index 787850019a9929d1fb17a2d3fe9d4088ce5dda3e..f1b020a0779eada5a0f203add13251ec975c5bf4 100644 (file)
--- a/lib/NDWeb/Controller/Root.pm
+++ b/lib/NDWeb/Controller/Root.pm
@@ -105,10 +105,14 @@ UPDATE sms SET status = $2, cost = $3
 WHERE msgid = $1
                });
 
-       $sms->execute($c->req->param('apiMsgId')
-               ,$clickatellstatus{$c->req->param('status')}
-               ,$c->req->param('charge')
-               ,$c->req->param('timestamp'));
+       my $apiMsgId = $c->req->param('apiMsgId');
+       my $status = $c->req->param('status');
+       my $charge = $c->req->param('charge');
+       my $timestamp = $c->req->param('timestamp');
+       $sms->execute($apiMsgId
+               ,$clickatellstatus{$status}
+               ,$charge
+               ,$timestamp);
 
 }