fixed warning

[webpac] / back2html.pm

diff --git a/back2html.pm b/back2html.pm
index a5c654a..8fc39b4 100644 (file)
--- a/back2html.pm
+++ b/back2html.pm
@@ -12,7 +12,6 @@ sub back2html {
                $out .= "<tr><td>";
                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);