chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change memlim to 20M as Algol reports it can be exceeded!
[ypp-sc-tools.main.git]
/
yarrg
/
web
/
check_lossperleague
diff --git
a/yarrg/web/check_lossperleague
b/yarrg/web/check_lossperleague
index a37382e3a48aec5f61ae86eb2562d7c7647f50e4..3198d41df3bec1b2ca72a388e4105daed72615c2 100644
(file)
--- a/
yarrg/web/check_lossperleague
+++ b/
yarrg/web/check_lossperleague
@@
-46,7
+46,7
@@
s/^\s+//; s/\s+$//;
my ($pct,$str);
if (!m/\S/) {
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);
} elsif (m/^(\d{1,2}(?:\.\d{0,5})?)\%$/) {
$pct= $1 * 1.0;
$str= sprintf("%g%%", $1);
@@
-57,7
+57,7
@@
if (!m/\S/) {
expected_error("Cannot understand loss per league ".escerrq($_).".");
}
expected_error("Cannot understand loss per league ".escerrq($_).".");
}
-return ("$str
per league
", $pct);
+return ("$str
[per league]
", $pct);
</%perl>
</%method>
</%perl>
</%method>