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

Pass Ids by reference

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-21 16:46:58 +02:00
parent c9c74a2a22
commit 73e52f441d
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ACU/Grading.pm
View file

@ -107,12 +107,12 @@ sub insert ($$$)
$self->{ids}{$_[0]} = $_[1];
}
sub fill ($%)
sub fill ($$)
{
my $self = shift;
my %ids = shift;
my $ids = shift;
for my $k (keys %ids) {
for my $k (keys %{ $ids }) {
$self->{ids}{$k} = $ids{$k};
}
}

2
ACU/Trace.pm
View file

@ -103,7 +103,7 @@ sub getValue ($$)
sub getIds ($)
{
my $self = shift;
return %{ $self->{ids} };
return $self->{ids};
}
sub addId($$;$)