my ($pct,$str);
if (!m/\S/) {
- $str= '';
+ return ('[no losses]', undef);
} elsif (m/^(\d{1,2}(?:\.\d{0,5})?)\%$/) {
$pct= $1 * 1.0;
$str= sprintf("%g%%", $1);
$pct= 100.0/$1;
$str= sprintf("1/%d", $1);
} else {
- expected_error("Cannot understand loss per league \`$_'.");
+ expected_error("Cannot understand loss per league ".escerrq($_).".");
}
-return ("$str per league", $pct);
+return ("$str [per league]", $pct);
</%perl>
</%method>