epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

gen_grading: fix compilation errors

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-10-18 18:21:44 +02:00
parent cea68aa7a7
commit 791dfe65f6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
process/projects/gen_grading.pl
View File

@ -35,9 +35,9 @@ sub process
my $grade = Grading->new();
my @defenses;
if (-d "$basedir/$year/$project_id/defenses/")
{
my @defenses;
# Create defenses groups
opendir(my $dh, "$basedir/$year/$project_id/defenses/") or croak "can't opendir $basedir/$year/$project_id/defenses/: $!";
for my $sout (grep { ( ! /^\./ ) && -f "$basedir/$year/$project_id/defenses/$_" } readdir($dh))
@ -71,7 +71,7 @@ sub process
if (-d "$basedir/$year/$project_id/traces/")
{
# Create traces groups
opendir($dh, "$basedir/$year/$project_id/traces/") or croak "can't opendir $basedir/$year/$project_id/traces/: $!";
opendir(my $dh, "$basedir/$year/$project_id/traces/") or croak "can't opendir $basedir/$year/$project_id/traces/: $!";
for my $dir (grep { ( ! /^\./ ) && -d "$basedir/$year/$project_id/traces/$_" } readdir($dh))
{
next if (grep { $dir eq "defense_$_" } @defenses);