Mailing List Archive

Author: creamyg
Date: 2008-07-27 13:13:08 -0700 (Sun, 27 Jul 2008)
New Revision: 3638

Modified:
trunk/perl/lib/KinoSearch.pm
trunk/perl/lib/KinoSearch/Util/ToolSet.pm
trunk/perl/t/002-kinosearch.t
Log:
Kill off worthless K_DEBUG constant from days of yore.


Modified: trunk/perl/lib/KinoSearch/Util/ToolSet.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/ToolSet.pm 2008-07-27 19:49:38 UTC (rev 3637)
+++ trunk/perl/lib/KinoSearch/Util/ToolSet.pm 2008-07-27 20:13:08 UTC (rev 3638)
@@ -22,7 +22,7 @@
looks_like_number
);
use Storable qw( nfreeze thaw );
-use KinoSearch qw( K_DEBUG kdump );
+use KinoSearch qw( kdump );

our @EXPORT_OK = qw(
carp
@@ -44,7 +44,6 @@
nfreeze
thaw

- K_DEBUG
kdump

to_kino
@@ -185,7 +184,7 @@
isvstring
looks_like_number
);
- use KinoSearch qw( K_DEBUG kdump );
+ use KinoSearch qw( kdump );
use KinoSearch::Util::MathUtils qw( ceil );

Two issues deserve special attention.

Modified: trunk/perl/lib/KinoSearch.pm
===================================================================
--- trunk/perl/lib/KinoSearch.pm 2008-07-27 19:49:38 UTC (rev 3637)
+++ trunk/perl/lib/KinoSearch.pm 2008-07-27 20:13:08 UTC (rev 3638)
@@ -7,8 +7,6 @@

our $VERSION = '0.20_06';

-use constant K_DEBUG => 0;
-
use XSLoader;
# This loads a large number of disparate subs.
# See the docs for KinoSearch::Util::ToolSet.
@@ -16,7 +14,7 @@

use KinoSearch::Autobinding;
use KinoSearch::base qw( Exporter );
-our @EXPORT_OK = qw( K_DEBUG kdump );
+our @EXPORT_OK = qw( kdump );

sub kdump {
require Data::Dumper;

Modified: trunk/perl/t/002-kinosearch.t
===================================================================
--- trunk/perl/t/002-kinosearch.t 2008-07-27 19:49:38 UTC (rev 3637)
+++ trunk/perl/t/002-kinosearch.t 2008-07-27 20:13:08 UTC (rev 3638)
@@ -1,9 +1,7 @@
use strict;
use warnings;

-use Test::More tests => 2;
+use Test::More tests => 1;

-BEGIN { use_ok( 'KinoSearch', 'K_DEBUG' ) }
+BEGIN { use_ok('KinoSearch') }

-ok( !K_DEBUG, "DEBUG mode should be disabled" );
-


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