+FIXME: Catch the lowercasing bug.

diff --git a/WebConfig.pm b/WebConfig.pm
index 1b3ea33..5160bd2 100644 (file)
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -89,6 +89,11 @@ our %WebConfig=(
                                                                                                "attr"=>'style="text-decoration: inherit; /* revoke underline */;"'));
                                                        $r.="</td>\n";
                                                        }
+# FIXME: Catch the bug.
+if ($r=~/resumejankratochvil.pm/) {
+       use Carp qw(confess cluck);
+       cluck "LOWERCASED; resume_url=$resume_url";
+       }
                                        $r.='</tr></table>'."\n";
                                $r.='</td>'."\n";
                        $r.='</tr></table>'."\n";