Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing missing 'my'.

Browse Source
This commit is contained in:
Chris 2011-07-27 23:15:59 +01:00
parent f8b20acf02
commit 3a0ab33361
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
SessionHandler.pm
View File

@ -189,7 +189,7 @@ sub create_session {
$autocheck -> execute(md5_hex($self -> {"autokey"})) $autocheck -> execute(md5_hex($self -> {"autokey"}))
or return set_error("Unable to peform key lookup query\nError was: ".$self -> {"dbh"} -> errstr); or return set_error("Unable to peform key lookup query\nError was: ".$self -> {"dbh"} -> errstr);
$keyid = $autocheck -> fetchrow_hashref; my $keyid = $autocheck -> fetchrow_hashref;
# Do the key and user match? If so, fetch the user's data. # Do the key and user match? If so, fetch the user's data.
$userdata = $self -> {"auth"} -> get_user_byid($self -> {"sessuser"}, 1) $userdata = $self -> {"auth"} -> get_user_byid($self -> {"sessuser"}, 1)