--- trunk/back2html.pm 2003/07/04 23:28:17 66
+++ trunk/back2html.pm 2003/07/05 22:03:21 72
@@ -12,7 +12,6 @@
$out .= "
";
my @items = split(/#-#/,$line);
if ($items[1] =~ m#(http://[\S]+)\s*.*?#i) {
- my $url = $1;
# chop URLS longer than 60 characters
my $url = substr($1,0,60);
$url .= "..." if (length($1) > 60);
|