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/02/25 13:34:03 UTC
svn commit: r916270 - in /lucene/lucy/trunk/perl: buildlib/Lucy/Build.pm
lib/Lucy.pm
Author: marvin
Date: Thu Feb 25 12:34:03 2010
New Revision: 916270
URL: http://svn.apache.org/viewvc?rev=916270&view=rev
Log:
Run perltidy on a couple files (whitespace only).
Modified:
lucene/lucy/trunk/perl/buildlib/Lucy/Build.pm
lucene/lucy/trunk/perl/lib/Lucy.pm
Modified: lucene/lucy/trunk/perl/buildlib/Lucy/Build.pm
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/perl/buildlib/Lucy/Build.pm?rev=916270&r1=916269&r2=916270&view=diff
==============================================================================
--- lucene/lucy/trunk/perl/buildlib/Lucy/Build.pm (original)
+++ lucene/lucy/trunk/perl/buildlib/Lucy/Build.pm Thu Feb 25 12:34:03 2010
@@ -47,7 +47,7 @@
sub autobind_pm_path { catfile( 'lib', 'Lucy', 'Autobinding.pm' ); }
sub extra_ccflags {
- my $self = shift;
+ my $self = shift;
my $extra_ccflags = defined $ENV{CFLAGS} ? "$ENV{CFLAGS} " : "";
my $gcc_version
= $ENV{REAL_GCC_VERSION}
@@ -77,17 +77,17 @@
if ( $Config{cc} eq 'cl' ) {
$extra_ccflags .= '/TP ';
}
-
+
if ( defined $gcc_version ) {
# Tell GCC explicitly to run with C99 compatability.
- if ($extra_ccflags !~ m/-std=c99/) {
+ if ( $extra_ccflags !~ m/-std=c99/ ) {
$extra_ccflags .= "-std=c99 ";
- }
- if ($extra_ccflags !~ m/-D_GNU_SOURCE/) {
+ }
+ if ( $extra_ccflags !~ m/-D_GNU_SOURCE/ ) {
$extra_ccflags .= "-D_GNU_SOURCE ";
- }
+ }
}
-
+
return $extra_ccflags;
}
@@ -234,12 +234,12 @@
}
my $binding = Clownfish::Binding::Perl->new(
- parcel => 'Lucy',
- hierarchy => $hierarchy,
- lib_dir => 'lib',
- boot_class => 'Lucy',
- header => $self->autogen_header,
- footer => $self->copyfoot,
+ parcel => 'Lucy',
+ hierarchy => $hierarchy,
+ lib_dir => 'lib',
+ boot_class => 'Lucy',
+ header => $self->autogen_header,
+ footer => $self->copyfoot,
);
return ( $hierarchy, $binding, \@pm_filepaths_with_xs );
@@ -359,7 +359,7 @@
my $LOCAL_SUPP = 'local.supp';
return
if $self->up_to_date( '../devel/bin/valgrind_triggers.pl',
- $LOCAL_SUPP );
+ $LOCAL_SUPP );
# Generate suppressions.
print "Writing $LOCAL_SUPP...\n";
@@ -501,7 +501,7 @@
}
# .c => .o
- my $version = $self->dist_version;
+ my $version = $self->dist_version;
my $perl_binding_o_file = catfile( 'lib', "Lucy$Config{_o}" );
unshift @objects, $perl_binding_o_file;
$self->add_to_cleanup($perl_binding_o_file);
Modified: lucene/lucy/trunk/perl/lib/Lucy.pm
URL: http://svn.apache.org/viewvc/lucene/lucy/trunk/perl/lib/Lucy.pm?rev=916270&r1=916269&r2=916270&view=diff
==============================================================================
--- lucene/lucy/trunk/perl/lib/Lucy.pm (original)
+++ lucene/lucy/trunk/perl/lib/Lucy.pm Thu Feb 25 12:34:03 2010
@@ -85,8 +85,7 @@
my ( $either, $message ) = @_;
my ( undef, $file, $line ) = caller;
$message .= ", $file line $line\n";
- return $either->_new(
- mess => Lucy::Object::CharBuf->new($message) );
+ return $either->_new( mess => Lucy::Object::CharBuf->new($message) );
}
sub do_throw {
@@ -128,7 +127,7 @@
{
package Lucy::Object::VArray;
no warnings 'redefine';
- sub clone { CORE::shift->_clone }
+ sub clone { CORE::shift->_clone }
sub deserialize { CORE::shift->_deserialize(@_) }
}
@@ -172,7 +171,7 @@
{
package Lucy::Store::FSFolder;
use File::Spec::Functions qw( rel2abs );
- sub absolutify { return rel2abs( $_[1] ) }
+ sub absolutify { return rel2abs( $_[1] ) }
}
{
@@ -193,8 +192,7 @@
my $result = eval { to_lucy( $json_encoder->decode($json) ) };
if ( $@ or !$result ) {
Lucy::Object::Err->set_error(
- Lucy::Object::Err->new( $@ || "Failed to decode JSON" )
- );
+ Lucy::Object::Err->new( $@ || "Failed to decode JSON" ) );
return;
}
return $result;
@@ -204,8 +202,7 @@
my ( undef, %args ) = @_;
my $json = eval { $json_encoder->encode( $args{'dump'} ) };
if ( !defined $json ) {
- Lucy::Object::Err->set_error(
- Lucy::Object::Err->new($@) );
+ Lucy::Object::Err->set_error( Lucy::Object::Err->new($@) );
return 0;
}
my $outstream = $args{folder}->open_out( $args{path} );