Fix point without conditions
This commit is contained in:
parent
b3f61617f3
commit
9fe8a83c2e
2 changed files with 7 additions and 4 deletions
|
@ -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 = "";
|
||||
|
|
Reference in a new issue