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 =cut
sub get { sub getScratch {
my $self = shift; my $self = shift;
my $name = shift; my $name = shift;
unless (exists $self->{_scratch}) { unless (exists $self->{_scratch}) {