Commit fca505cc authored by Lev Walkin's avatar Lev Walkin

new perl requires braces

parent a02a0c0d
......@@ -510,7 +510,7 @@ foreach my $trans (sort { $b cmp $a } @transactions) {
. "Fetch results (.tgz)</A></NOBR>"
if $allowFetchResults;
if($ec ne "0") {
local $eml, @resp;
local ($eml, @resp);
open(H, '< ' . $sessionDir . '/' . $trans . '/+HelpResp')
and @resp = <H>;
open(H, '< ' . $sessionDir . '/' . $trans . '/+HelpReq')
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment