Fixed doc crashes.

[MyWeb.git] / Web.pm

diff --git a/Web.pm b/Web.pm
index ddd1f98..41aaef2 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -55,6 +55,7 @@ BEGIN
 
 #              print STDERR "Wuse $file\n";
                Wrequire $file;
+               local $Exporter::ExportLevel=$Exporter::ExportLevel+1;
                $file->import(@list);
                1;
        }
@@ -420,6 +421,7 @@ my($file_base,$alt,$attrs)=@_;
 
        my $file=img_src $file_base;
        my($width,$height)=Image::Size::imgsize($file);
+       $alt=~s/<[^>]*>//g;
        $alt=CGI::escapeHTML($alt);
        return "<img src=\"$file\" alt=\"$alt\" title=\"$alt\" ".img_size($width,$height)
                        .(!$attrs ? "" : " ".$attrs)." />";