From f80b753a916872bf199bf581c08f65d7edd9edfe Mon Sep 17 00:00:00 2001
From: Florian Ragwitz <rafl@debian.org>
Date: Sun, 17 Jul 2011 13:57:18 +0200
Subject: [PATCH] Dual-life Search::Dict

---
 MANIFEST                                     | 4 ++--
 META.yml                                     | 1 +
 Porting/Maintainers.pl                       | 9 ++++++++-
 {lib => dist/Search-Dict/lib}/Search/Dict.pm | 0
 {lib/Search => dist/Search-Dict/t}/Dict.t    | 5 -----
 lib/.gitignore                               | 1 +
 6 files changed, 12 insertions(+), 8 deletions(-)
 rename {lib => dist/Search-Dict/lib}/Search/Dict.pm (100%)
 rename {lib/Search => dist/Search-Dict/t}/Dict.t (95%)

diff --git a/MANIFEST b/MANIFEST
index 3037a49..8fbda40 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -3266,6 +3266,8 @@ dist/Safe/t/safesort.t		Tests Safe with sort
 dist/Safe/t/safeuniversal.t	Tests Safe with functions from universal.c
 dist/Safe/t/safeutf8.t		Tests Safe with utf8.pm
 dist/Safe/t/safewrap.t		Tests Safe::wrap_code_ref()
+dist/Search-Dict/lib/Search/Dict.pm	Perform binary search on dictionaries
+dist/Search-Dict/t/Dict.t		See if Search::Dict works
 dist/SelfLoader/lib/SelfLoader.pm	Load functions only on demand
 dist/SelfLoader/t/01SelfLoader.t	See if SelfLoader works
 dist/SelfLoader/t/02SelfLoader-buggy.t	See if SelfLoader works
@@ -4040,8 +4042,6 @@ lib/Pod/t/InputObjects.t	See if Pod::InputObjects works
 lib/Pod/t/Select.t		See if Pod::Select works
 lib/Pod/t/Usage.t		See if Pod::Usage works
 lib/Pod/t/utils.t		Test for Pod::ParseUtils
-lib/Search/Dict.pm		Perform binary search on dictionaries
-lib/Search/Dict.t		See if Search::Dict works
 lib/SelectSaver.pm		Enforce proper select scoping
 lib/SelectSaver.t		See if SelectSaver works
 lib/sigtrap.pm			For trapping an abort and giving traceback
diff --git a/META.yml b/META.yml
index b3be6d4..e5d4f8a 100644
--- a/META.yml
+++ b/META.yml
@@ -45,6 +45,7 @@ no_index:
     - dist/perlfaq
     - dist/Pod-Perldoc
     - dist/Safe
+    - dist/Search-Dict
     - dist/SelfLoader
     - dist/Storable
     - dist/Term-Complete
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index c67ef7d..015c369 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1638,6 +1638,14 @@ use File::Glob qw(:case);
 	'UPSTREAM'	=> 'blead',
 	},
 
+    'Search::Dict' =>
+	{
+	'MAINTAINER'	=> 'p5p',
+	'DISTRIBUTION'	=> 'FLORA/Search-Dict-1.03.tar.gz',
+	'FILES'		=> q[dist/Search-Dict],
+	'UPSTREAM'	=> 'blead',
+	},
+
     'SelfLoader' =>
 	{
 	'MAINTAINER'	=> 'smueller',
@@ -2134,7 +2142,6 @@ use File::Glob qw(:case);
 				lib/Pod/t/Usage.t
 				lib/Pod/t/eol.t
 				lib/Pod/t/utils.t
-				lib/Search/Dict.{pm,t}
 				lib/SelectSaver.{pm,t}
 				lib/Symbol.{pm,t}
 				lib/Thread.{pm,t}
diff --git a/lib/Search/Dict.pm b/dist/Search-Dict/lib/Search/Dict.pm
similarity index 100%
rename from lib/Search/Dict.pm
rename to dist/Search-Dict/lib/Search/Dict.pm
diff --git a/lib/Search/Dict.t b/dist/Search-Dict/t/Dict.t
similarity index 95%
rename from lib/Search/Dict.t
rename to dist/Search-Dict/t/Dict.t
index c36fdb8..996251e 100644
--- a/lib/Search/Dict.t
+++ b/dist/Search-Dict/t/Dict.t
@@ -1,10 +1,5 @@
 #!./perl
 
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-}
-
 print "1..4\n";
 
 $DICT = <<EOT;
diff --git a/lib/.gitignore b/lib/.gitignore
index 9594994..67151e3 100644
--- a/lib/.gitignore
+++ b/lib/.gitignore
@@ -340,6 +340,7 @@
 /SDBM_File.pm
 /Safe.pm
 /Scalar
+/Search/
 /SelfLoader.pm
 /Shell.pm
 /Socket.pm
-- 
2.7.4