Archived
1
0
Fork 0

Fix point without conditions

This commit is contained in:
Mercier Pierre-Olivier 2013-09-21 18:29:17 +02:00
parent b3f61617f3
commit 9fe8a83c2e
2 changed files with 7 additions and 4 deletions

View file

@ -34,7 +34,9 @@ else {
open $xmlgrading, "<", shift or die $!;
}
binmode $xmlgrading;
my $grade = Grading->new($xmlgrading);
my $str;
$str .= $_ while(<$xmlgrading>);
my $grade = Grading->new($str);
close $xmlgrading unless $xmlgrading eq *STDIN;
my $who = "";