Love-Match-Calcで重大なバグを発見

CPAN愛のモジュール - Acmeから始まらない物語

を読み、愛のモジュールを使ってみましたが、重大なバグを発見してしまった。

Illegal division by zero が発生します。

再現ソースは以下のとおりです。

use Love::Match::Calc;

  my $first ="HIGU";
  my $second ="KOGA";

  my $result = lovematch($first, $second);
  print $result;

早速バグレポートを書いてみました Here