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

Globbing in grading is not critical

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-30 13:08:33 +02:00
commit 6fa013ff14
2 changed files with 18 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ACU/Grading.pm
View file

@ -290,6 +290,8 @@ use strict;
use warnings; use warnings;
use Term::ANSIColor qw(:constants); use Term::ANSIColor qw(:constants);
use ACU::Log;
sub new ($$$$$) sub new ($$$$$)
{ {
my $class = shift; my $class = shift;
@ -344,6 +346,7 @@ sub compute ($$$;$$$)
if (defined $ref) if (defined $ref)
{ {
eval {
my $glob = Tinyglob::tinyglob($ref); my $glob = Tinyglob::tinyglob($ref);
if ($glob ne $ref) if ($glob ne $ref)
{ {
@ -353,6 +356,11 @@ sub compute ($$$;$$$)
} }
$ids->{ $ref } = $value; $ids->{ $ref } = $value;
} }
};
if ($@) {
my $err = $@;
log ERROR, $@;
}
} }
my $ret = undef; my $ret = undef;

5
ACU/Tinyglob.pm
View file

@ -12,7 +12,8 @@ our @EXPORT = qw(tinyglob);
sub tinyglob sub tinyglob
{ {
my @str = split("", quotemeta(shift)); my $orig = shift;
my @str = split("", quotemeta($orig));
my $res = ""; my $res = "";
my $metaescape = 0; my $metaescape = 0;
@ -38,7 +39,7 @@ sub tinyglob
$res .= '.*'; $res .= '.*';
} }
else { else {
croak "Invalid number of \\"; croak "Invalid number of \\ in '$orig'";
} }
} }
else { else {