Add missing my keyword to generic receiver

This commit is contained in:
Aaro Altonen 2020-04-29 13:39:16 +03:00
parent a40f72ce6a
commit e77dde544d
1 changed files with 1 additions and 1 deletions

View File

@ -103,7 +103,7 @@ sub recv_generic {
open my $fhz, '>>', "$lib/results/$logname";
opendir my $dir, "/tmp";
foreach $of (grep (/par.+\.par/i, readdir $dir)) {
foreach my $of (grep (/par.+\.par/i, readdir $dir)) {
print $fhz -s "/tmp/$of";
print $fhz "\n";
unlink "/tmp/$of";