let get_schema die when unregistered uri provided - Githubissues

zigorou / perl-JSV

JSON Schema implementation for Perl

Other

25 stars 17 forks source link

let get_schema die when unregistered uri provided #32

Closed i110 closed 9 years ago

i110 commented 9 years ago

ビフォーアフター

現状：get_schemaの第一引数に、registerされていないuriを与えると、空のhashが返ってくる
修正後：cannot resolve referenceでdieするようになる
原因
if (exists $schema->{'$ref'} && $schema->{'$ref'} eq $normalized_uri) {
$schemaがundefの場合でも、この行でhashrefとしてアクセスされた結果、空のhashrefになってしまう
結果として最後のrefチェックを通ってしまう
対応
$schemaを取得した直後にもチェック追加
補足
weakenの意味よくわかんなかったんすけど、なんかこのせいでundefになったりとかしてtestを騙しちゃったりしてたんで、とりあえず順序だけ変えました