Fixed error

This commit is contained in:
Wouter van Oijen 2006-03-17 16:01:07 +00:00
parent b0e0cec9aa
commit 34782a784b

View file

@ -147,7 +147,7 @@ Returns the value for a given scratch variable.
=cut
sub get {
sub getScratch {
my $self = shift;
my $name = shift;
unless (exists $self->{_scratch}) {