new perl requires braces

git-svn-id: https://asn1c.svn.sourceforge.net/svnroot/asn1c/trunk@744 59561ff5-6e30-0410-9f3c-9617f08c8826
This commit is contained in:
vlm 2005-03-04 09:15:40 +00:00
parent d31c14bfb1
commit f18d57f14d
1 changed files with 1 additions and 1 deletions

View File

@ -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')