You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2010/11/02 00:39:03 UTC
[lucy-commits] svn commit: r1029894 - in /incubator/lucy/trunk:
clownfish/lib/Clownfish/Binding/Core/Class.pm perl/Build.PL
perl/buildlib/Lucy/Build.pm perl/t/509-poly_searcher.t
Author: marvin
Date: Mon Nov 1 23:39:03 2010
New Revision: 1029894
URL: http://svn.apache.org/viewvc?rev=1029894&view=rev
Log:
Perltidy a few files.
Modified:
incubator/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Class.pm
incubator/lucy/trunk/perl/Build.PL
incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm
incubator/lucy/trunk/perl/t/509-poly_searcher.t
Modified: incubator/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Class.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Class.pm?rev=1029894&r1=1029893&r2=1029894&view=diff
==============================================================================
--- incubator/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Class.pm (original)
+++ incubator/lucy/trunk/clownfish/lib/Clownfish/Binding/Core/Class.pm Mon Nov 1 23:39:03 2010
@@ -107,11 +107,10 @@ $vt_type $vt = {
END_VTABLE
}
-
# Create the definition for the instantiable object struct.
sub _struct_definition {
- my $self = shift;
- my $struct_sym = $self->{client}->full_struct_sym;
+ my $self = shift;
+ my $struct_sym = $self->{client}->full_struct_sym;
my $member_declarations = join( "\n ",
map { $_->local_declaration } $self->{client}->member_vars );
return <<END_STRUCT
@@ -189,7 +188,7 @@ sub to_c_header {
}
# Define short names.
- my $short_names = '';
+ my $short_names = '';
my $short_names_macro = _short_names_macro($self);
for my $function (@functions) {
my $short_func_sym = $function->short_sym;
@@ -198,7 +197,7 @@ sub to_c_header {
}
for my $inert_var (@inert_vars) {
my $short_sym = $inert_var->short_sym;
- my $full_sym = $inert_var->full_sym;
+ my $full_sym = $inert_var->full_sym;
$short_names .= " #define $short_sym $full_sym\n";
}
if ( !$client->inert ) {
Modified: incubator/lucy/trunk/perl/Build.PL
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/Build.PL?rev=1029894&r1=1029893&r2=1029894&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/Build.PL (original)
+++ incubator/lucy/trunk/perl/Build.PL Mon Nov 1 23:39:03 2010
@@ -24,8 +24,8 @@ my $builder = Lucy::Build->new(
license => 'apache',
dist_author =>
'The Apache Lucy Project <lucy-dev at incubator dot apache dot org>',
- dist_version => '0.001',
- requires => {
+ dist_version => '0.001',
+ requires => {
'Lingua::Stem::Snowball' => 0.952,
'Lingua::StopWords' => 0.09,
'Parse::RecDescent' => 0,
@@ -57,4 +57,3 @@ my $builder = Lucy::Build->new(
$builder->create_build_script();
__END__
-
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm?rev=1029894&r1=1029893&r2=1029894&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm Mon Nov 1 23:39:03 2010
@@ -161,8 +161,9 @@ sub ACTION_charmonizer {
print "Building $CHARMONIZE_EXE_PATH...\n\n";
- my $cbuilder = Lucy::Build::CBuilder->new(
- config => { cc => $self->config('cc') }, );
+ my $cbuilder
+ = Lucy::Build::CBuilder->new( config => { cc => $self->config('cc') },
+ );
my @o_files;
for (@all_source) {
@@ -477,8 +478,9 @@ sub ACTION_compile_custom_xs {
require ExtUtils::ParseXS;
- my $cbuilder = Lucy::Build::CBuilder->new(
- config => { cc => $self->config('cc') }, );
+ my $cbuilder
+ = Lucy::Build::CBuilder->new( config => { cc => $self->config('cc') },
+ );
my $archdir = catdir( $self->blib, 'arch', 'auto', 'KinoSearch', );
mkpath( $archdir, 0, 0777 ) unless -d $archdir;
my @include_dirs = (
Modified: incubator/lucy/trunk/perl/t/509-poly_searcher.t
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/t/509-poly_searcher.t?rev=1029894&r1=1029893&r2=1029894&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/t/509-poly_searcher.t (original)
+++ incubator/lucy/trunk/perl/t/509-poly_searcher.t Mon Nov 1 23:39:03 2010
@@ -33,7 +33,7 @@ my $poly_searcher = KinoSearch::Search::
is( $poly_searcher->doc_freq( field => 'content', term => 'b' ),
2, 'doc_freq' );
-is( $poly_searcher->doc_max, 6, 'doc_max' );
+is( $poly_searcher->doc_max, 6, 'doc_max' );
is( $poly_searcher->fetch_doc(1)->{content}, 'x a', "fetch_doc" );
isa_ok( $poly_searcher->fetch_doc_vec(1), 'KinoSearch::Index::DocVector' );