json проверил, с ним все ок.
декод и енкод работает
а вот почему он ссылку на массив кидает, вместо того, чтобы закинуть туда развернутый hash....
с файлами точно все ок, перелил с рабочей версии.
сцобако делает
INSERT INTO webses_data SET created=UNIX_TIMESTAMP(), expire=UNIX_TIMESTAMP()+3*3600, role='', aid='0', unikey='F8zbVV4RqmV1ACENgwI0lA', module='main', data='$VAR1 = \'HASH(0x8026d00c0)\';'
вместо
INSERT INTO webses_data SET created=UNIX_TIMESTAMP(), expire=UNIX_TIMESTAMP()+3*3600, role='', aid='0', unikey='F8zbVV4RqmV1ACENgwI0lA', module='main', data='$VAR1 = {\'-input\' => {}};'
значит трабла тут:
my $rows = Db->do(
"INSERT INTO webses_data SET ".
"created=UNIX_TIMESTAMP(), expire=UNIX_TIMESTAMP()+3*3600, ".
"role=?, aid=?, unikey=?, module=?, data=? ",
$ses::auth->{role}.'', int $ses::auth->{uid}, $unikey, $p{module}, $p{data}
);
скорее всего в версии перла трабла