From 2ee1627503d02a1491c9e185895d12593e3e9753 Mon Sep 17 00:00:00 2001
From: short <>
Date: Mon, 5 Dec 2005 13:53:38 +0000
Subject: [PATCH] Removed as Gecko may announce SVG support when it is really
 implemented.

---
 svg-gecko-force.patch | 81 ---------------------------------------------------
 1 file changed, 81 deletions(-)
 delete mode 100644 svg-gecko-force.patch

diff --git a/svg-gecko-force.patch b/svg-gecko-force.patch
deleted file mode 100644
index 886bd36..0000000
--- a/svg-gecko-force.patch
+++ /dev/null
@@ -1,81 +0,0 @@
-Index: Web.pm
-===================================================================
-RCS file: /home/short/pserver/cvs/MyWeb/Web.pm,v
-retrieving revision 1.15
-diff -u -p -r1.15 Web.pm
---- Web.pm	10 Nov 2005 06:39:24 -0000	1.15
-+++ Web.pm	5 Dec 2005 13:51:46 -0000
-@@ -204,11 +204,44 @@ my($class,%args)=@_;
- 
- 	$W->{"headers_in"}=$W->{"r"}->headers_in();
- 	Wrequire 'My::Hash::Merge';
-+	my $headers_in_orig=$W->{"headers_in"};
- 	$W->{"headers_in"}=My::Hash::Merge->new(
--			$W->{"headers_in"},
-+			# Proper ordering - "Accept" is overriding!
- 			My::Hash::Sub->new({
- 				"_remote_ip"=>sub { return $W->{"r"}->connection()->remote_ip(); },
-+				"Accept"=>sub {
-+					return our $r||=do {
-+						my $accept_string=$headers_in_orig->{"Accept"};
-+						if ($accept_string && (my $gecko_version=$W->{"browser"}->gecko_version())) {
-+							# Since Gecko "rv:1.8", that means since Firefox-1.5.
-+							if ("001-008" le join("-",map((sprintf("%03d",$_)),split(/[.]/,$gecko_version)))) {
-+								my $http_headers=HTTP::Headers->new($accept_string);
-+								my $format=HTTP::Negotiate::choose([
-+									[
-+										"image/catch-missing-svg-type",  # ID
-+										0.9,  # QS
-+										"image/catch-missing-svg-type",  # Content-Type
-+										],
-+									[
-+										"image/svg+xml",  # ID
-+										0.8,  # QS
-+										"image/svg+xml",  # Content-Type
-+										],
-+									],$http_headers);
-+								if ($format && $format eq "image/catch-missing-svg-type") {
-+									# Image requests: "image/png,*/*;q=0.5"
-+									# and thus "image/png" is assigned the same priority.
-+									# FIXME: RFC 2068 (HTTP/1.1) does not specify the behavior!
-+									#        HTTP::Negotiate fortunately follows the ordering preferences.
-+									$accept_string="image/svg+xml,".$accept_string;
-+									}
-+								}
-+							}
-+						$accept_string;
-+						};
-+					},
- 				}),
-+			$W->{"headers_in"},
- 			);
- 	Wrequire 'My::Hash::Readonly';
- 	$W->{"headers_in"}=My::Hash::Readonly->new($W->{"headers_in"});
-Index: Hash/Merge.pm
-===================================================================
-RCS file: /home/short/pserver/cvs/MyWeb/Hash/Merge.pm,v
-retrieving revision 1.1
-diff -u -p -r1.1 Merge.pm
---- Hash/Merge.pm	18 Sep 2005 06:43:14 -0000	1.1
-+++ Hash/Merge.pm	5 Dec 2005 13:51:46 -0000
-@@ -40,19 +40,16 @@ my($class,@parents)=@_;
- 	return $self;
- }
- 
-+# Multiplicity is permitted, first one is chosen.
- sub key_find($$)
- {
- my($self,$key)=@_;
- 
--	my $count=0;
- 	my $first;
- 	for my $parent (@{$self->{"parents"}}) {
- 		next if !exists $parent->{$key};
--		$count++;
- 		$first||=$parent;
- 		}
--	# 0 IS allowed here.
--	cluck "Duplicity ($count-icity) for key: $key" if $count>=2;
- 	$first||=$self->{"parents"}[0];
- 	return $first;
- }
-- 
1.8.3.1