# | Line 51 | Line 51 | sub paramupdate { | |
---|---|---|
51 | my $self=shift; | |
52 | my $hashref=shift; | |
53 | ||
54 | < | foreach $key ( %$hashref ) { |
54 | > | foreach $key ( keys %$hashref ) { |
55 | $self->{vars}{$key}=$$hashref{$key}; | |
56 | } | |
57 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |