self vs session typo in constructor

This commit is contained in:
Colin Kuskie 2006-01-13 16:12:32 +00:00
parent d6583c8986
commit 1c211d5669

View file

@ -349,7 +349,7 @@ A reference to the current session.
sub createTemp {
my $class = shift;
my $session = shift;
my $id = $self->session->id->generate();
my $id = $session->id->generate();
$id =~ m/^(.{2})/;
my $self = {_session=>$session, _id => $id, _part1 => 'temp', _part2 => $1};
bless $self, ref($class)||$class;