Mailing List Archive

Author: creamyg
Date: 2008-08-02 15:00:15 -0700 (Sat, 02 Aug 2008)
New Revision: 3694

Modified:
trunk/perl/lib/KSx/Remote/SearchClient.pm
trunk/perl/lib/KSx/Remote/SearchServer.pm
trunk/perl/lib/KinoSearch.pm
trunk/perl/t/504-similarity.t
Log:
Move 'bytes' pragma loading out of ToolSet (and KinoSearch.pm) since no core
module code uses it any more.


Modified: trunk/perl/lib/KSx/Remote/SearchClient.pm
===================================================================
--- trunk/perl/lib/KSx/Remote/SearchClient.pm 2008-08-02 21:21:06 UTC (rev 3693)
+++ trunk/perl/lib/KSx/Remote/SearchClient.pm 2008-08-02 22:00:15 UTC (rev 3694)
@@ -4,6 +4,8 @@
package KSx::Remote::SearchClient;
use KinoSearch::Util::ToolSet qw( confess nfreeze thaw );
BEGIN { our @ISA = qw( KinoSearch::Search::Searchable ) }
+use bytes;
+no bytes;

our %instance_vars = __PACKAGE__->init_instance_vars(
# params/members

Modified: trunk/perl/lib/KSx/Remote/SearchServer.pm
===================================================================
--- trunk/perl/lib/KSx/Remote/SearchServer.pm 2008-08-02 21:21:06 UTC (rev 3693)
+++ trunk/perl/lib/KSx/Remote/SearchServer.pm 2008-08-02 22:00:15 UTC (rev 3694)
@@ -4,6 +4,8 @@
package KSx::Remote::SearchServer;
use KinoSearch::Util::ToolSet qw( confess nfreeze thaw );
BEGIN { our @ISA = qw( KinoSearch::Obj ) }
+use bytes;
+no bytes;

our %instance_vars = __PACKAGE__->init_instance_vars(
# params / members

Modified: trunk/perl/lib/KinoSearch.pm
===================================================================
--- trunk/perl/lib/KinoSearch.pm 2008-08-02 21:21:06 UTC (rev 3693)
+++ trunk/perl/lib/KinoSearch.pm 2008-08-02 22:00:15 UTC (rev 3694)
@@ -44,13 +44,6 @@

{
package KinoSearch::Util::ToolSet;
-
- # Ensure that subroutines within the bytes:: namespace, such as
- # bytes::length, will be available, while still keeping character
- # semantics enabled by default -- so regexes work as expected, etc.
- use bytes;
- no bytes;
-
use Carp qw( carp croak cluck confess );
use Scalar::Util qw(
refaddr

Modified: trunk/perl/t/504-similarity.t
===================================================================
--- trunk/perl/t/504-similarity.t 2008-08-02 21:21:06 UTC (rev 3693)
+++ trunk/perl/t/504-similarity.t 2008-08-02 22:00:15 UTC (rev 3694)
@@ -25,6 +25,8 @@
use KinoSearch::InvIndexer;
use KinoSearch::InvIndex;
use KinoSearch::Searcher;
+use bytes;
+no bytes;

my $sim = KinoSearch::Search::Similarity->new;



_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits