SZ
Надо смотреть по коду, что там не так работает
$YAML::Syck::LoadBlessed = 1Где-то в начале. Можно вообще в begin сунуть, после use
Size: a a a
2020 November 03
SZ
Ну тут трудно тупить:
Где-то в начале. Можно вообще в begin сунуть, после use
Где-то в начале. Можно вообще в begin сунуть, после use
VO
DB<4> p $YAML::Syck::LoadBlessed
1
1
VO
да вот как-то не работает
VO
DB<6> print Data::Dumper::Dumper($info)
$VAR1 = {
'checkout' => {
'sep' => '/',
'sticky' => {},
'hash' => {}
},
'depotmap' => {
'' => '/home/slw/.svk/local'
}
};
VO
причем файл вроде честный
---
checkout: !!perl/hash:Data::Hierarchy
hash: {}
sep: /
sticky: {}
VO
$YAML::Syck::LoadBlessed = 1;
$info = eval {LoadFile ($self->{statefile})};
VG
а этот ямл ссык не то же самое, что YAML::Tiny?
SZ
$YAML::Syck::LoadBlessed = 1;
$info = eval {LoadFile ($self->{statefile})};
А там точно use yaml syck?
SZ
Может там xs?
VO
use autouse 'YAML::Syck' => qw(LoadFile DumpFile);
SZ
а этот ямл ссык не то же самое, что YAML::Tiny?
Tiny не умеет грузить объекты
VG
я смутно припоминаю, что патчил код вроде только Tiny
SZ
use autouse 'YAML::Syck' => qw(LoadFile DumpFile);
Попробуй по приколу
$YAML::LoadBlessed = 1;VO
без разницы
SZ
без разницы
А что в файле? А то может там код и нужен UseCode?
VO
я же показал выше кусок файла
SZ
Вижу
VO
все еще смешнее, перед вызовом
$info = eval {LoadFile ($self->{statefile})}; $YAML::Syck::LoadBlessed = 1 а после -- 0VG
ну, лезь в его код, куда деваться