Image::Detect を force インストール

OpenCVを使って画像の物体認識をするPerlモジュール作った - spiritlooseのはてなダイアリー で紹介されている Image::ObjectDetect をインストールしてみたら

t/00_compile....ok
t/01_detect.....NOK 1/7
#   Failed test at t/01_detect.t line 20.
#          got: '7'
#     expected: '5'
t/01_detect.....ok 6/7# Looks like you failed 1 test of 7.

と、テストで失敗。6/7 は OK ということで致命的な失敗ではないことを祈りつつ、テストプログラム 01_detect.t を調べてみるとどうやら顔を誤検出していることが分かりました。 force install してリンク先にある(テストプログラム 01_detect.t とほぼ同じの）サンプルプログラムと t/test.jpg を使って誤検出した箇所を調べてみると、右上の壁とまつもとさんの左足横の床の計 2 カ所に顔を検出していました。

perl スクリプト自体は同じなので、 opencv の具合が違ってたりするんでしょうか。perl で気軽に使えると言うところに魅力を感じました。これを使って何かできないでしょうか。