Dual-life Search::Dict

diff --git a/MANIFEST b/MANIFEST
index 3037a49..8fbda40 100644 (file)
--- 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 (file)
--- 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 (executable)
--- 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 (file)
--- 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 (file)
--- a/lib/.gitignore
+++ b/lib/.gitignore
@@ -340,6 +340,7 @@
 /SDBM_File.pm
 /Safe.pm
 /Scalar
+/Search/
 /SelfLoader.pm
 /Shell.pm
 /Socket.pm