X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Web.pm;fp=Web.pm;h=8073616cfc2a94ef1c5eb8c3bf91de3a17f517ce;hp=0d4625be6621a723d176dd92f1f1554a5e163c35;hb=6d23b1099df83eca4de8735f75fd1f16a14c63e1;hpb=da7528a22d2ecfc06b853537add2edb2c245c443

diff --git a/Web.pm b/Web.pm
index 0d4625b..8073616 100644
--- a/Web.pm
+++ b/Web.pm
@@ -158,7 +158,7 @@ my($class,%args)=@_;
 	$W->{"browser"}=HTTP::BrowserDetect->new($W->{"user_agent"});
 
 	if (!defined $W->{"have_style"}) {
-		$W->{"have_style"}=(!$W->{"browser"}->netscape() || $W->{"browser"}->major>4 ? 1 : 0);
+		$W->{"have_style"}=(!$W->{"browser"}->netscape() || ($W->{"browser"}->major() && $W->{"browser"}->major()>4) ? 1 : 0);
 		}
 
 	$W->{"have_js"}=($W->{"args"}{"have_js"} ? 1 : 0);
@@ -638,7 +638,7 @@ HERE
 		}
 	print "</head><body";
 	print ' bgcolor="black" text="white" link="aqua" vlink="teal"'
-			if $W->{"browser"}->netscape() && $W->{"browser"}->major<=4;
+			if $W->{"browser"}->netscape() && (!$W->{"browser"}->major() || $W->{"browser"}->major()<=4);
 	print ">\n";
 
 	if ($W->{"heading"}) {