diff options
author | Lev Walkin <vlm@lionet.info> | 2005-03-04 09:15:40 +0000 |
---|---|---|
committer | Lev Walkin <vlm@lionet.info> | 2005-03-04 09:15:40 +0000 |
commit | fca505cc7a763e0b3ed22c5038a5d5fed5ada0b8 (patch) | |
tree | c1b9b154d2ecaa0814645a14a29089b2df76d96d /asn1c/webcgi/asn1c.cgi | |
parent | a02a0c0d4a0628f10776504ec0ccd58e7ef82144 (diff) |
new perl requires braces
Diffstat (limited to 'asn1c/webcgi/asn1c.cgi')
-rwxr-xr-x | asn1c/webcgi/asn1c.cgi | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asn1c/webcgi/asn1c.cgi b/asn1c/webcgi/asn1c.cgi index 6587ddb5..930b9c9a 100755 --- a/asn1c/webcgi/asn1c.cgi +++ b/asn1c/webcgi/asn1c.cgi @@ -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') |