[openid-test commit] r60 - trunk/perl

[codesite...@google.com]

Author: br...@danga.com
Date: Tue Oct 21 13:09:08 2008
New Revision: 60

Modified:
trunk/perl/perl-test.cgi

Log:
close li

Modified: trunk/perl/perl-test.cgi
==============================================================================
--- trunk/perl/perl-test.cgi (original)
+++ trunk/perl/perl-test.cgi Tue Oct 21 13:09:08 2008
@@ -88,7 +88,7 @@
my ($url, $text) = @_;
my $display_url = $url;
$display_url =~ s!^\Q$base\E!!;
- print "<li><a href='$url'>$display_url</a> - $text\n";
+ print "<li><a href='$url'>$display_url</a> - $text</li>\n";
};
my $id_urls = sub {
my $path = shift;