subversion-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pet...@apache.org
Subject svn commit: r1146832 - in /subversion/trunk/subversion/bindings/swig/perl/native: ./ scripts/ t/
Date Thu, 14 Jul 2011 18:11:41 GMT
Author: peters
Date: Thu Jul 14 18:11:40 2011
New Revision: 1146832

URL: http://svn.apache.org/viewvc?rev=1146832&view=rev
Log:
In subversion/bindings/swig/perl/native: Whitespace cleanups.

Untabify.  (Various instances seemed to be 2- and 4-space tabs, though
most were 8-space.)  Kill trailing whitespace.  Enforce
no-space-before-( in function calls.  A few other indentation fixes as
I came across them.  I kept the 4-space convention here, rather than
convert to 2-space, because 4-space seems to be pretty well established
in this dir.

No non-whitespace changes.  svn diff -x-w is empty.

* Makefile.PL.in
* Base.pm
* Client.pm
* Core.pm
* Delta.pm
* Fs.pm
* Repos.pm
* Ra.pm
* t/1repos.t
* t/2fs.t
* t/4pool.t
* t/3client.t
* t/5delta.t
* t/5delta-compat.t
* t/7editor.t
* t/8lock.t
* scripts/fast_svnbase.pl
* scripts/compile_all.pl:
   Whitespace fixes.

Modified:
    subversion/trunk/subversion/bindings/swig/perl/native/Base.pm
    subversion/trunk/subversion/bindings/swig/perl/native/Client.pm
    subversion/trunk/subversion/bindings/swig/perl/native/Core.pm
    subversion/trunk/subversion/bindings/swig/perl/native/Delta.pm
    subversion/trunk/subversion/bindings/swig/perl/native/Fs.pm
    subversion/trunk/subversion/bindings/swig/perl/native/Makefile.PL.in
    subversion/trunk/subversion/bindings/swig/perl/native/Ra.pm
    subversion/trunk/subversion/bindings/swig/perl/native/Repos.pm
    subversion/trunk/subversion/bindings/swig/perl/native/scripts/compile_all.pl
    subversion/trunk/subversion/bindings/swig/perl/native/scripts/fast_svnbase.pl
    subversion/trunk/subversion/bindings/swig/perl/native/t/1repos.t
    subversion/trunk/subversion/bindings/swig/perl/native/t/2fs.t
    subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t
    subversion/trunk/subversion/bindings/swig/perl/native/t/4pool.t
    subversion/trunk/subversion/bindings/swig/perl/native/t/5delta-compat.t
    subversion/trunk/subversion/bindings/swig/perl/native/t/5delta.t
    subversion/trunk/subversion/bindings/swig/perl/native/t/7editor.t
    subversion/trunk/subversion/bindings/swig/perl/native/t/8lock.t

Modified: subversion/trunk/subversion/bindings/swig/perl/native/Base.pm
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/Base.pm?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/Base.pm (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/Base.pm Thu Jul 14 18:11:40 2011
@@ -55,8 +55,8 @@ sub import {
     my (undef, $pkg, $prefix, @ignore) = @_;
     no warnings 'uninitialized';
     unless (${"SVN::_${pkg}::ISA"}[0] eq 'DynaLoader') {
-	@{"SVN::_${pkg}::ISA"} = qw(DynaLoader);
-	eval qq'
+        @{"SVN::_${pkg}::ISA"} = qw(DynaLoader);
+        eval qq'
 package SVN::_$pkg;
 require DynaLoader;
 bootstrap SVN::_$pkg;
@@ -69,23 +69,23 @@ bootstrap SVN::_$pkg;
     my $prefix_re = qr/(?i:$prefix)/;
     my $ignore_re = join('|', @ignore);
     for (keys %{"SVN::_${pkg}::"}) {
-	my $name = $_;
-	next unless s/^$prefix_re//;
-	next if $ignore_re && m/$ignore_re/;
-
-	# insert the accessor
-	if (m/(.*)_get$/) {
-	    my $member = $1;
-	    *{"${caller}::$1"} = sub {
-		&{"SVN::_${pkg}::${prefix}${member}_".
-		      (@_ > 1 ? 'set' : 'get')} (@_)
-		  }
-	}
-	elsif (m/(.*)_set$/) {
-	}
-	else {
-	    *{"${caller}::$_"} = ${"SVN::_${pkg}::"}{$name};
-	}
+        my $name = $_;
+        next unless s/^$prefix_re//;
+        next if $ignore_re && m/$ignore_re/;
+
+        # insert the accessor
+        if (m/(.*)_get$/) {
+            my $member = $1;
+            *{"${caller}::$1"} = sub {
+                &{"SVN::_${pkg}::${prefix}${member}_".
+                    (@_ > 1 ? 'set' : 'get')}(@_)
+            }
+        }
+        elsif (m/(.*)_set$/) {
+        }
+        else {
+            *{"${caller}::$_"} = ${"SVN::_${pkg}::"}{$name};
+        }
     }
 
 }

Modified: subversion/trunk/subversion/bindings/swig/perl/native/Client.pm
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/Client.pm?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/Client.pm (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/Client.pm Thu Jul 14 18:11:40 2011
@@ -46,8 +46,8 @@ SVN::Client - Subversion client function
               SVN::Client::get_username_provider()]
               );
 
-    $ctx->cat (\*STDOUT, 'http://svn.apache.org/repos/asf/subversion/trunk/README',
-               'HEAD');
+    $ctx->cat(\*STDOUT, 'http://svn.apache.org/repos/asf/subversion/trunk/README',
+              'HEAD');
 
     sub simple_prompt {
       my $cred = shift;
@@ -197,7 +197,7 @@ sub new
     my $self = bless {}, $class;
     my %args = @_;
 
-    $self->{'ctx'} = SVN::_Client::svn_client_create_context ();
+    $self->{'ctx'} = SVN::_Client::svn_client_create_context();
 
     if (defined($args{'auth'}))
     {

Modified: subversion/trunk/subversion/bindings/swig/perl/native/Core.pm
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/Core.pm?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/Core.pm (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/Core.pm Thu Jul 14 18:11:40 2011
@@ -20,10 +20,10 @@ SVN::Core - Core module of the subversio
     sub something {
         # create a subpool of the current default pool
         my $pool = SVN::Pool->new_default_sub;
-	# some svn operations...
+        # some svn operations...
 
-	# $pool gets destroyed and the previous default pool
-	# is restored when $pool's lexical scope ends
+        # $pool gets destroyed and the previous default pool
+        # is restored when $pool's lexical scope ends
     }
 
     # svn_stream_t as native perl io handle
@@ -155,7 +155,7 @@ sub CLOSE
 {
     my $self = shift;
     *$self->{svn_stream}->close
-	if *$self->{svn_stream};
+        if *$self->{svn_stream};
     undef *$self->{svn_stream};
 }
 
@@ -170,7 +170,7 @@ sub GETC
 sub print
 {
     my $self = shift;
-    $self->WRITE ($_[0], length ($_[0]));
+    $self->WRITE($_[0], length($_[0]));
 }
 
 sub PRINT
@@ -178,7 +178,7 @@ sub PRINT
     my $self = shift;
     if (defined $\) {
         if (defined $,) {
-	    $self->print(join($,, @_).$\);
+            $self->print(join($,, @_).$\);
         } else {
             $self->print(join("",@_).$\);
         }
@@ -201,8 +201,8 @@ sub PRINTF
 sub getline
 {
     my $self = shift;
-    *$self->{pool} ||= SVN::Core::pool_create (undef);
-    my ($buf, $eof) = *$self->{svn_stream}->readline ($/, *$self->{pool});
+    *$self->{pool} ||= SVN::Core::pool_create(undef);
+    my ($buf, $eof) = *$self->{svn_stream}->readline($/, *$self->{pool});
     return undef if $eof && !length($buf);
     return $eof ? $buf : $buf.$/;
 }
@@ -220,16 +220,16 @@ sub READLINE
 {
     my $self = shift;
     unless (defined $/) {
-	my $buf = '';
-	while (length( my $chunk = *$self->{svn_stream}->read
-	       ($SVN::Core::STREAM_CHUNK_SIZE)) ) {
-	    $buf .= $chunk;
-	}
-	return $buf;
+        my $buf = '';
+        while (length( my $chunk = *$self->{svn_stream}->read
+               ($SVN::Core::STREAM_CHUNK_SIZE)) ) {
+            $buf .= $chunk;
+        }
+        return $buf;
     }
     elsif (ref $/) {
-        my $buf = *$self->{svn_stream}->read (${$/});
-	return length($buf) ? $buf : undef;
+        my $buf = *$self->{svn_stream}->read(${$/});
+        return length($buf) ? $buf : undef;
     }
     return wantarray ? $self->getlines : $self->getline;
 }
@@ -238,9 +238,9 @@ sub READ {
     my $self = shift;
     my $len = $_[1];
     if (@_ > 2) { # read offset
-        substr($_[0],$_[2]) = *$self->{svn_stream}->read ($len);
+        substr($_[0],$_[2]) = *$self->{svn_stream}->read($len);
     } else {
-        $_[0] = *$self->{svn_stream}->read ($len);
+        $_[0] = *$self->{svn_stream}->read($len);
     }
     return $len;
 }
@@ -263,7 +263,7 @@ sub WRITE {
             my $rem = $slen - $off;
             $len = $rem if $rem < $len;
         }
-	*$self->{svn_stream}->write (substr ($_[0], $off, $len));
+        *$self->{svn_stream}->write(substr($_[0], $off, $len));
     }
     return $len;
 }
@@ -285,7 +285,7 @@ my %WRAPPED;
 
 sub default {
     my ($pool) = @_;
-    my $pobj = SVN::Pool->_wrap ($$pool);
+    my $pobj = SVN::Pool->_wrap($$pool);
     $WRAPPED{$pool} = $pobj;
     $pobj->default;
 }
@@ -315,11 +315,11 @@ also use $pool-E<gt>default to make it t
 
 =over 4
 
-=item new ([$parent])
+=item new([$parent])
 
 Create a new pool. The pool is a root pool if $parent is not supplied.
 
-=item new_default ([$parent])
+=item new_default([$parent])
 
 Create a new pool. The pool is a root pool if $parent is not supplied.
 Set the new pool as default pool.
@@ -355,14 +355,14 @@ my @POOLSTACK;
 
 sub new {
     my ($class, $parent) = @_;
-    $parent = $$parent if ref ($parent) eq 'SVN::Pool';
-    my $self = bless \create ($parent), $class;
+    $parent = $$parent if ref($parent) eq 'SVN::Pool';
+    my $self = bless \create($parent), $class;
     return $self;
 }
 
 sub new_default_sub {
-    my $parent = ref ($_[0]) ? ${+shift} : $SVN::_Core::current_pool;
-    my $self = SVN::Pool->new_default ($parent);
+    my $parent = ref($_[0]) ? ${+shift} : $SVN::_Core::current_pool;
+    my $self = SVN::Pool->new_default($parent);
     return $self;
 }
 
@@ -375,13 +375,13 @@ sub new_default {
 sub default {
     my $self = shift;
     push @POOLSTACK, $SVN::_Core::current_pool
-	unless $$SVN::_Core::current_pool == 0;
+        unless $$SVN::_Core::current_pool == 0;
     $SVN::_Core::current_pool = $$self;
 }
 
 sub clear {
     my $self = shift;
-    apr_pool_clear ($$self);
+    apr_pool_clear($$self);
 }
 
 my $globaldestroy;
@@ -419,7 +419,7 @@ sub DESTROY {
         delete $WRAPPOOL{$self};
     }
     else {
-        apr_pool_destroy ($$self)
+        apr_pool_destroy($$self)
     }
 }
 
@@ -427,28 +427,28 @@ package _p_svn_error_t;
 use SVN::Base qw(Core svn_error_t_);
 
 sub strerror {
-	return SVN::Error::strerror($_[$[]->apr_err());
+    return SVN::Error::strerror($_[$[]->apr_err());
 }
 
 sub handle_error {
-	return SVN::Error::handle_error(@_);
+    return SVN::Error::handle_error(@_);
 }
 
 sub expanded_message {
-	return SVN::Error::expanded_message(@_);
+    return SVN::Error::expanded_message(@_);
 }
 
 sub handle_warning {
-	# need to swap parameter order.
-	return SVN::Error::handle_warning($_[$[+1],$_[$[]);
+    # need to swap parameter order.
+    return SVN::Error::handle_warning($_[$[+1],$_[$[]);
 }
 
 foreach my $function (qw(compose clear quick_wrap)) {
     no strict 'refs';
     my $real_function = \&{"SVN::_Core::svn_error_$function"};
     *{"_p_svn_error_t::$function"} = sub {
-			  return $real_function->(@_);
-		}
+        return $real_function->(@_);
+    }
 }
 
 package SVN::Error;
@@ -457,8 +457,8 @@ use SVN::Base qw(Core SVN_ERR_);
 use Carp;
 our @CARP_NOT = qw(SVN::Base SVN::Client SVN::Core SVN::Delta
                    SVN::Delta::Editor SVN::Error SVN::Fs SVN::Node
-									 SVN::Pool SVN::Ra SVN::Ra::Callbacks SVN::Ra::Reporter
-									 SVN::Repos SVN::Stream SVN::TxDelta SVN::Wc);
+                   SVN::Pool SVN::Ra SVN::Ra::Callbacks SVN::Ra::Reporter
+                   SVN::Repos SVN::Stream SVN::TxDelta SVN::Wc);
 
 =head2 svn_error_t - SVN::Error
 
@@ -560,9 +560,9 @@ our $handler = \&croak_on_error;
 foreach my $function (qw(handle_error handle_warning strerror)) {
     no strict 'refs';
     my $real_function = \&{"SVN::_Core::svn_$function"};
-	  *{"SVN::Error::$function"} = sub {
-	      return $real_function->(@_);
-		}
+    *{"SVN::Error::$function"} = sub {
+        return $real_function->(@_);
+    }
 }
 
 =item SVN::Error::expanded_message($svn_error_t) or $svn_error_t-E<gt>expanded_message()
@@ -574,17 +574,17 @@ exception handlers get their error messa
 =cut
 
 sub expanded_message {
-	  my $svn_error = shift;
+    my $svn_error = shift;
     unless (is_error($svn_error)) {
-	      return undef;
-		}
+        return undef;
+    }
 
-		my $error_message = $svn_error->strerror();
-		while ($svn_error) {
-		    $error_message .= ': ' . $svn_error->message();
-				$svn_error = $svn_error->child();
-		}
-		return $error_message;
+    my $error_message = $svn_error->strerror();
+    while ($svn_error) {
+        $error_message .= ': ' . $svn_error->message();
+        $svn_error = $svn_error->child();
+    }
+    return $error_message;
 }
 
 
@@ -597,7 +597,7 @@ an error.
 =cut
 
 sub is_error {
-		 return (ref($_[$[]) eq '_p_svn_error_t');
+     return (ref($_[$[]) eq '_p_svn_error_t');
 }
 
 =item SVN::Error::croak_on_error
@@ -620,16 +620,16 @@ unchanged.
 =cut
 
 sub croak_on_error {
-		unless (is_error($_[$[])) {
-			return @_;
-		}
+    unless (is_error($_[$[])) {
+      return @_;
+    }
     my $svn_error = shift;
 
-		my $error_message = $svn_error->expanded_message();
+    my $error_message = $svn_error->expanded_message();
 
-		$svn_error->clear();
+    $svn_error->clear();
 
-		croak($error_message);
+    croak($error_message);
 }
 
 =item SVN::Error::confess_on_error
@@ -641,16 +641,16 @@ This is useful when you are doing develo
 =cut
 
 sub confess_on_error {
-		unless (is_error($_[$[])) {
-				return @_;
-		}
+    unless (is_error($_[$[])) {
+        return @_;
+    }
     my $svn_error = shift;
 
-		my $error_message = $svn_error->expanded_message();
+    my $error_message = $svn_error->expanded_message();
 
-		$svn_error->clear();
+    $svn_error->clear();
 
-		confess($error_message);
+    confess($error_message);
 }
 
 =item SVN::Error::ignore_error
@@ -665,11 +665,11 @@ clears it.  It then returns all the othe
 
 sub ignore_error {
     if (is_error($_[$[])) {
-		    my $svn_error = shift;
-				$svn_error->clear();
-		}
+        my $svn_error = shift;
+        $svn_error->clear();
+    }
 
-		return @_;
+    return @_;
 }
 
 package _p_svn_log_changed_path_t;

Modified: subversion/trunk/subversion/bindings/swig/perl/native/Delta.pm
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/Delta.pm?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/Delta.pm (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/Delta.pm Thu Jul 14 18:11:40 2011
@@ -17,21 +17,21 @@ SVN::Delta - Subversion delta functions
     # driving an editor
     my $editor = SVN::Delta::Editor->
         new(SVN::Repos::get_commit_editor($repos, "file://$repospath",
-       	                                  '/', 'root', 'FOO', \&committed));
+                                          '/', 'root', 'FOO', \&committed));
 
     my $rootbaton = $editor->open_root(0);
 
-    my $fbaton = $editor->add_file ('filea', $rootbaton,
-	 		            undef, -1);
+    my $fbaton = $editor->add_file('filea', $rootbaton,
+                                   undef, -1);
 
-    my $ret = $editor->apply_textdelta ($fbaton, undef);
+    my $ret = $editor->apply_textdelta($fbaton, undef);
     SVN::TxDelta::send_string("FILEA CONTENT", @$ret);
 
     # implement an editor in perl
     SVN::Repos::dir_delta($root1, $path, undef,
-			  $root2, $path,
-			  SVN::Delta::Editor->new(_debug=>1),
-			  1, 1, 0, 1
+                          $root2, $path,
+                          SVN::Delta::Editor->new(_debug=>1),
+                          1, 1, 0, 1
 
 =head1 DESCRIPTION
 
@@ -56,11 +56,11 @@ use and its method calls will be relayed
 If you want to implement an editor, subclass SVN::Delta::Editor and
 implement the editors callbacks. see the METHODS section below.
 
-=head2 CONSTRUCTOR - new (...)
+=head2 CONSTRUCTOR - new(...)
 
 =over
 
-=item new ($editor, $editor_baton)
+=item new($editor, $editor_baton)
 
 Link to the native editor
 
@@ -106,9 +106,9 @@ use SVN::Base qw(Delta svn_txdelta_ appl
 # in Perl land.
 sub apply {
     if (@_ == 5 || (@_ == 4 && ref($_[-1]) ne 'SVN::Pool' && ref($_[-1])
ne '_p_apr_pool_t')) {
-	splice(@_, 3, 1);
-	my @ret = SVN::_Delta::svn_txdelta_apply(@_);
-	return @ret[1,2];
+        splice(@_, 3, 1);
+        my @ret = SVN::_Delta::svn_txdelta_apply(@_);
+        return @ret[1,2];
     }
     goto \&SVN::_Delta::svn_txdelta_apply;
 }
@@ -127,10 +127,10 @@ use SVN::Base qw(Delta svn_delta_editor_
 sub convert_editor {
     my $self = shift;
     $self->{_editor} = $_[0], return 1
-	if UNIVERSAL::isa ($_[0], __PACKAGE__);
+        if UNIVERSAL::isa($_[0], __PACKAGE__);
     if (ref($_[0]) && $_[0]->isa('_p_svn_delta_editor_t')) {
-	@{$self}{qw/_editor _baton/} = @_;
-	return 1;
+        @{$self}{qw/_editor _baton/} = @_;
+        return 1;
     }
     return 0;
 }
@@ -140,9 +140,9 @@ sub new {
     my $self = bless {}, $class;
 
     unless ($self->convert_editor(@_)) {
-	%$self = @_;
-	$self->convert_editor (@{$self->{_editor}})
-	    if $self->{_editor};
+        %$self = @_;
+        $self->convert_editor(@{$self->{_editor}})
+            if $self->{_editor};
     }
 
     return $self;
@@ -160,18 +160,18 @@ sub AUTOLOAD {
     return unless $func =~ m/[^A-Z]/;
 
     my %ebaton = ( set_target_revision => 1,
-		   open_root => 1,
-		   close_edit => 1,
-		   abort_edit => 1,
-		 );
+                   open_root => 1,
+                   close_edit => 1,
+                   abort_edit => 1,
+                 );
 
     my $self = shift;
     no strict 'refs';
 
-    my @ret = UNIVERSAL::isa ($self->{_editor}, __PACKAGE__) ?
-	$self->{_editor}->$func (@_) :
+    my @ret = UNIVERSAL::isa($self->{_editor}, __PACKAGE__) ?
+        $self->{_editor}->$func(@_) :
         eval { &{"invoke_$func"}($self->{_editor},
-				 $ebaton{$func} ? $self->{_baton} : (), @_) };
+                                 $ebaton{$func} ? $self->{_baton} : (), @_) };
 
     die $@ if $@;
 

Modified: subversion/trunk/subversion/bindings/swig/perl/native/Fs.pm
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/Fs.pm?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/Fs.pm (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/Fs.pm Thu Jul 14 18:11:40 2011
@@ -166,10 +166,10 @@ The oldest revision in any filesystem is
 
 =cut
 
-our @methods = qw/youngest_rev revision_root revision_prop revision_proplist
-		  change_rev_prop list_transactions open_txn begin_txn
-		  get_uuid set_uuid set_access get_access
-                  lock unlock get_lock get_locks generate_lock_token path/;
+our @methods = qw/ youngest_rev revision_root revision_prop revision_proplist
+                   change_rev_prop list_transactions open_txn begin_txn
+                   get_uuid set_uuid set_access get_access
+                   lock unlock get_lock get_locks generate_lock_token path /;
 
 for (@methods) {
     no strict 'refs';
@@ -270,14 +270,14 @@ For transaction roots, returns C<$SVN::C
 
 =cut
 
-our @methods = qw/apply_textdelta apply_text change_node_prop
-		 check_path close_root copied_from copy
-		 dir_entries delete file_contents closest_copy
-		 file_length file_md5_checksum is_dir is_file
-		 is_revision_root is_txn_root make_dir make_file
-		 node_created_rev node_history node_id node_prop
-		 node_proplist paths_changed revision_link
-		 revision_root_revision/;
+our @methods = qw/ apply_textdelta apply_text change_node_prop
+                   check_path close_root copied_from copy
+                   dir_entries delete file_contents closest_copy
+                   file_length file_md5_checksum is_dir is_file
+                   is_revision_root is_txn_root make_dir make_file
+                   node_created_rev node_history node_id node_prop
+                   node_proplist paths_changed revision_link
+                   revision_root_revision /;
 
 *fs = *SVN::Fs::root_fs;
 *txn_name = *_p_svn_fs_txn_t::root_name;

Modified: subversion/trunk/subversion/bindings/swig/perl/native/Makefile.PL.in
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/Makefile.PL.in?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/Makefile.PL.in (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/Makefile.PL.in Thu Jul 14 18:11:40
2011
@@ -52,7 +52,7 @@ my $apu_cflags = '@SVN_APRUTIL_INCLUDES@
 
 # According to the log of r7937, the flags guarded by the conditional break
 # the build on FreeBSD if not conditionalized.
-my $apr_ldflags = '@SVN_APR_LIBS@' 
+my $apr_ldflags = '@SVN_APR_LIBS@'
    if $^O eq 'darwin' or $^O eq 'cygwin';
 
 chomp $apr_shlib_path_var;
@@ -61,7 +61,7 @@ my %config = (
     ABSTRACT => 'Perl bindings for Subversion',
     DEFINE => $cppflags,
     CCFLAGS => join(' ', $cflags, $Config{ccflags}),
-    INC  => join(' ',$apr_cflags, $apu_cflags, 
+    INC  => join(' ',$apr_cflags, $apu_cflags,
                  " -I$swig_srcdir/perl/libsvn_swig_perl",
                  " -I$svnlib_srcdir/include",
                  " -I$svnlib_builddir",
@@ -104,8 +104,8 @@ for (@modules) {
 # the dependencies need to be fixed
 
 sub MY::postamble {
-    my $module_c_files = join (' ',map { "svn_$_.c"} @modules);
-    my $module_make_commands = join ('',map {"\t\$(MAKE) -f Makefile.$_\n"} @modules);
+    my $module_c_files = join(' ',map { "svn_$_.c"} @modules);
+    my $module_make_commands = join('',map {"\t\$(MAKE) -f Makefile.$_\n"} @modules);
 
     my $fullperlrun = "$apr_shlib_path_var=" .
                       join(':', "\$($apr_shlib_path_var)", @ldpaths);

Modified: subversion/trunk/subversion/bindings/swig/perl/native/Ra.pm
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/Ra.pm?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/Ra.pm (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/Ra.pm Thu Jul 14 18:11:40 2011
@@ -505,7 +505,7 @@ sub new {
             # If the auth is already set to a auth_baton ignore it
             # otherwise make an auth_baton and store the callbacks
             my ($auth_baton, $auth_callbacks) =
-                                SVN::Core::auth_open_helper($self->{auth});
+                SVN::Core::auth_open_helper($self->{auth});
             $self->{auth} = $auth_baton;
             $self->{auth_provider_callbacks} = $auth_callbacks;
         }

Modified: subversion/trunk/subversion/bindings/swig/perl/native/Repos.pm
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/Repos.pm?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/Repos.pm (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/Repos.pm Thu Jul 14 18:11:40 2011
@@ -71,7 +71,7 @@ Example:
     use SVN::Core;
     use SVN::Repos;
 
-    my $repos = SVN::Repos::open ('/repo/sandbox');
+    my $repos = SVN::Repos::open('/repo/sandbox');
 
     open my $fh, ">/tmp/tmp.dump" or die "Cannot open file: $!\n";
 
@@ -124,7 +124,7 @@ Example:
     use SVN::Core;
     use SVN::Repos;
 
-    my $repos = SVN::Repos::open ('/repo/test_repo');
+    my $repos = SVN::Repos::open('/repo/test_repo');
 
     open my $fh, "/repo/sandbox.dump" or die "Cannot open file: $!\n";
 

Modified: subversion/trunk/subversion/bindings/swig/perl/native/scripts/compile_all.pl
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/scripts/compile_all.pl?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/scripts/compile_all.pl (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/scripts/compile_all.pl Thu Jul 14
18:11:40 2011
@@ -19,5 +19,5 @@
 use strict;
 
 for my $file qw( Client.pm Core.pm Delta.pm Fs.pm Ra.pm Repos.pm Wc.pm ) {
-	system("$^X -Mblib scripts/fast_svnbase.pl $file > blib/lib/SVN/${file}c");
+    system("$^X -Mblib scripts/fast_svnbase.pl $file > blib/lib/SVN/${file}c");
 }

Modified: subversion/trunk/subversion/bindings/swig/perl/native/scripts/fast_svnbase.pl
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/scripts/fast_svnbase.pl?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/scripts/fast_svnbase.pl (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/scripts/fast_svnbase.pl Thu Jul
14 18:11:40 2011
@@ -72,21 +72,21 @@ sub _compile_import {
     my @subs;
     no strict 'refs';
     for (keys %{"SVN::_${pkg}::"}) {
-	my $name = $_;
-	next unless s/^$prefix_re//;
-	next if $ignore_re && m/$ignore_re/;
+        my $name = $_;
+        next unless s/^$prefix_re//;
+        next if $ignore_re && m/$ignore_re/;
 
-	# insert the accessor
-	if (m/(.*)_get$/) {
-	    my $member = $1;
-	    push @subs, qq!*$member = sub { &{"SVN::_${pkg}::${prefix}${member}_".
-		      (\@_ > 1 ? 'set' : 'get')}(\@_)} !;
-	}
-	elsif (m/(.*)_set$/) {
-	}
-	else {
-	    push @subs, qq!*$_ = \$SVN::_${pkg}::{$name}!;
-	}
+        # insert the accessor
+        if (m/(.*)_get$/) {
+            my $member = $1;
+            push @subs, qq!*$member = sub { &{"SVN::_${pkg}::${prefix}${member}_".
+                                            (\@_ > 1 ? 'set' : 'get')}(\@_)} !;
+        }
+        elsif (m/(.*)_set$/) {
+        }
+        else {
+            push @subs, qq!*$_ = \$SVN::_${pkg}::{$name}!;
+        }
     }
     return "{ no strict 'refs';\n  ". join(";\n  ", @subs, '')."}\n";
 }

Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/1repos.t
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/1repos.t?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/1repos.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/1repos.t Thu Jul 14 18:11:40 2011
@@ -46,15 +46,15 @@ sub committed {
 
 my $editor = SVN::Delta::Editor->
     new(SVN::Repos::get_commit_editor($repos, "file://$repospath",
-				      '/', 'root', 'FOO', \&committed));
+                                      '/', 'root', 'FOO', \&committed));
 
 my $rootbaton = $editor->open_root(0);
 
-my $dirbaton = $editor->add_directory ('trunk', $rootbaton, undef, 0);
+my $dirbaton = $editor->add_directory('trunk', $rootbaton, undef, 0);
 
-my $fbaton = $editor->add_file ('trunk/filea', $dirbaton, undef, -1);
+my $fbaton = $editor->add_file('trunk/filea', $dirbaton, undef, -1);
 
-my $ret = $editor->apply_textdelta ($fbaton, undef);
+my $ret = $editor->apply_textdelta($fbaton, undef);
 
 SVN::TxDelta::send_string("FILEA CONTENT", @$ret);
 
@@ -63,13 +63,13 @@ $editor->close_edit();
 cmp_ok($fs->youngest_rev, '==', 1);
 {
 $editor = SVN::Delta::Editor->
-    new (SVN::Repos::get_commit_editor($repos, "file://$repospath",
-				       '/', 'root', 'FOO', \&committed));
+    new(SVN::Repos::get_commit_editor($repos, "file://$repospath",
+                                      '/', 'root', 'FOO', \&committed));
 my $rootbaton = $editor->open_root(1);
 
-my $dirbaton = $editor->add_directory ('tags', $rootbaton, undef, 1);
-my $subdirbaton = $editor->add_directory ('tags/foo', $dirbaton, 
-					  "file://$repospath/trunk", 1);
+my $dirbaton = $editor->add_directory('tags', $rootbaton, undef, 1);
+my $subdirbaton = $editor->add_directory('tags/foo', $dirbaton,
+                                         "file://$repospath/trunk", 1);
 
 $editor->close_edit();
 }
@@ -77,27 +77,27 @@ cmp_ok($fs->youngest_rev, '==', 2);
 
 my @history;
 
-SVN::Repos::history ($fs, 'tags/foo/filea',
-		     sub {push @history, [@_[0,1]]}, 0, 2, 1);
+SVN::Repos::history($fs, 'tags/foo/filea',
+                    sub {push @history, [@_[0,1]]}, 0, 2, 1);
 
-is_deeply (\@history, [['/tags/foo/filea',2],['/trunk/filea',1]],
-	   'repos_history');
+is_deeply(\@history, [['/tags/foo/filea',2],['/trunk/filea',1]],
+          'repos_history');
 
 {
 my $pool = SVN::Pool->new_default;
 my $something = bless {}, 'something';
 $editor = SVN::Delta::Editor->
-    new (SVN::Repos::get_commit_editor($repos, "file://$repospath",
-				       '/', 'root', 'FOO', sub {committed(@_);
-                                                                $something;
-                                                            }));
+    new(SVN::Repos::get_commit_editor($repos, "file://$repospath",
+                                      '/', 'root', 'FOO', sub {committed(@_);
+                                                               $something;
+                                                          }));
 
 my $rootbaton = $editor->open_root(2);
 $editor->delete_entry('tags', 2, $rootbaton);
 
 $editor->close_edit();
 }
-ok ($main::something_destroyed, 'callback properly destroyed');
+ok($main::something_destroyed, 'callback properly destroyed');
 
 cmp_ok($fs->youngest_rev, '==', 3);
 

Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/2fs.t
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/2fs.t?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/2fs.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/2fs.t Thu Jul 14 18:11:40 2011
@@ -80,7 +80,7 @@ ok($root->is_file($path), 'is_file');
     my $stream = $root->file_contents($path);
     local $/;
     is(<$stream>, $text, 'content verified');
-    is($root->file_md5_checksum ($path), 'dd2314129f81675e95b940ff94ddc935',
+    is($root->file_md5_checksum($path), 'dd2314129f81675e95b940ff94ddc935',
        'md5 verified');
 }
 

Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t Thu Jul 14 18:11:40
2011
@@ -26,7 +26,7 @@ use strict;
 # shut up about variables that are only used once.
 # these come from constants and variables used
 # by the bindings but not elsewhere in perl space.
-no warnings 'once'; 
+no warnings 'once';
 
 use_ok('SVN::Core');
 use_ok('SVN::Repos');
@@ -74,7 +74,7 @@ ok(SVN::Client::uuid_from_url($reposurl,
 ok(SVN::Client::uuid_from_url($reposurl,$ctx->{'ctx'}),
    'Valid return from uuid_from_url function form with _p_svn_client_ctx object');
 
-             
+
 my ($ci_dir1) = $ctx->mkdir(["$reposurl/dir1"]);
 isa_ok($ci_dir1,'_p_svn_client_commit_info_t');
 $current_rev++;
@@ -133,8 +133,8 @@ is($ctx->add("$wcpath/dir1/new",0),undef
    'Returned undef from add schedule operation');
 
 # test the log_msg callback
-$ctx->log_msg( 
-    sub 
+$ctx->log_msg(
+    sub
     {
         my ($log_msg,$tmp_file,$commit_items,$pool) = @_;
         isa_ok($log_msg,'SCALAR','log_msg param to callback is a SCALAR');
@@ -202,11 +202,11 @@ is($ctx->info("$wcpath/dir1/new", undef,
 my $svn_error = $ctx->info("$wcpath/dir1/newxyz", undef, 'WORKING', sub {}, 0);
 isa_ok($svn_error, '_p_svn_error_t',
        'info should return _p_svn_error_t for a nonexistent file');
-$svn_error->clear(); #don't leak this 
+$svn_error->clear(); #don't leak this
 
 # test getting the log
 is($ctx->log("$reposurl/dir1/new",$current_rev,$current_rev,1,0,
-             sub 
+             sub
              {
                  my ($changed_paths,$revision,
                      $author,$date,$message,$pool) = @_;
@@ -239,7 +239,7 @@ is($ctx->update($wcpath,'HEAD',1),$curre
    'Return from update is the current rev');
 
 # no return so we should get undef as the result
-# we will get a _p_svn_error_t if there is an error. 
+# we will get a _p_svn_error_t if there is an error.
 is($ctx->propset('perl-test','test-val',"$wcpath/dir1",0),undef,
    'propset on a working copy path returns undef');
 
@@ -248,7 +248,7 @@ isa_ok($ph,'HASH','propget returns a has
 is($ph->{"$wcpath/dir1"},'test-val','perl-test property has the correct value');
 
 # No revnum for the working copy so we should get INVALID_REVNUM
-is($ctx->status($wcpath, undef, sub { 
+is($ctx->status($wcpath, undef, sub {
                                       my ($path,$wc_status) = @_;
                                       is($path,"$wcpath/dir1",
                                          'path param to status callback is' .
@@ -390,21 +390,21 @@ SKIP: {
     # one command to run to test it.  If you want to use this you need
     # to change the usernames, passwords, and paths to the client cert.
     # It assumes that there is a repo running on localhost port 443 at
-    # via SSL.  The repo cert should trip a client trust issue.  The 
+    # via SSL.  The repo cert should trip a client trust issue.  The
     # client cert should be encrypted and require a pass to use it.
     # Finally uncomment the skip line below.
 
-    # Before shipping make sure the following line is uncommented. 
+    # Before shipping make sure the following line is uncommented.
     skip 'Impossible to test without external effort to setup https', 7;
- 
+
     sub simple_prompt {
         my $cred = shift;
         my $realm = shift;
         my $username_passed = shift;
-        my $may_save = shift; 
+        my $may_save = shift;
         my $pool = shift;
- 
-        ok(1,'simple_prompt called'); 
+
+        ok(1,'simple_prompt called');
         $cred->username('breser');
         $cred->password('foo');
     }
@@ -416,7 +416,7 @@ SKIP: {
         my $cert_info = shift;
         my $may_save = shift;
         my $pool = shift;
-  
+
         ok(1,'ssl_server_trust_prompt called');
         $cred->may_save(0);
         $cred->accepted_failures($failures);
@@ -436,10 +436,10 @@ SKIP: {
         my $cred = shift;
         my $may_save = shift;
         my $pool = shift;
-    
+
         ok(1,'ssl_client_cert_pw_prompt called');
         $cred->password('test');
-    } 
+    }
 
     my $oldauthbaton = $ctx->auth();
 
@@ -453,9 +453,9 @@ SKIP: {
                                 \&ssl_client_cert_pw_prompt,2)
               ),'_p_svn_auth_baton_t',
               'auth() accessor returns _p_svn_auth_baton');
-     
-    # if this doesn't work we will get an svn_error_t so by 
-    # getting a hash we know it worked. 
+
+    # if this doesn't work we will get an svn_error_t so by
+    # getting a hash we know it worked.
     my ($dirents) = $ctx->ls('https://localhost/svn/test','HEAD',1);
     isa_ok($dirents,'HASH','ls returns a HASH');
 

Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/4pool.t
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/4pool.t?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/4pool.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/4pool.t Thu Jul 14 18:11:40 2011
@@ -28,7 +28,7 @@ use File::Temp qw(tempdir);
 # shut up about variables that are only used once.
 # these come from constants and variables used
 # by the bindings but not elsewhere in perl space.
-no warnings 'once'; 
+no warnings 'once';
 
 require SVN::Core;
 require SVN::Repos;
@@ -41,14 +41,14 @@ our @ISA = qw(SVN::Delta::Editor);
 sub add_directory {
     my ($self, $path, undef, undef, undef, $pool) = @_;
     $pool->default;
-    main::is_pool_default ($pool, 'default pool from c calls');
+    main::is_pool_default($pool, 'default pool from c calls');
 }
 
 package main;
 sub is_pool_default {
     my ($pool, $text) = @_;
-    is (ref ($pool) eq 'SVN::Pool' ? $$$pool : $$pool,
-	$$SVN::_Core::current_pool, $text);
+    is(ref($pool) eq 'SVN::Pool' ? $$$pool : $$pool,
+       $$SVN::_Core::current_pool, $text);
 }
 
 my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1, CLEANUP => 1);
@@ -62,16 +62,16 @@ my $fs = $repos->fs;
 
 my $pool = SVN::Pool->new_default;
 
-is_pool_default ($pool, 'default pool');
+is_pool_default($pool, 'default pool');
 
 {
     my $spool = SVN::Pool->new_default_sub;
-    is_pool_default ($spool, 'lexical default pool default');
+    is_pool_default($spool, 'lexical default pool default');
 }
 
-is_pool_default ($pool, 'lexical default pool destroyed');
+is_pool_default($pool, 'lexical default pool destroyed');
 
-my $root = $fs->revision_root (0);
+my $root = $fs->revision_root(0);
 
 my $txn = $fs->begin_txn(0);
 
@@ -80,13 +80,13 @@ $txn->root->make_dir('trunk');
 $txn->commit;
 
 
-SVN::Repos::dir_delta ($root, '', '',
-		       $fs->revision_root (1), '',
-		       TestEditor->new(),
-		       undef, 1, 1, 0, 1);
+SVN::Repos::dir_delta($root, '', '',
+                      $fs->revision_root(1), '',
+                      TestEditor->new(),
+                      undef, 1, 1, 0, 1);
 
 
-is_pool_default ($pool, 'default pool from c calls destroyed');
+is_pool_default($pool, 'default pool from c calls destroyed');
 
 END {
 diag('cleanup');

Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/5delta-compat.t
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/5delta-compat.t?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/5delta-compat.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/5delta-compat.t Thu Jul 14 18:11:40
2011
@@ -31,13 +31,13 @@ open my $source, '<', \$srctext;
 open my $target, '<', \$tgttext;
 open my $aresult, '>', \$result;
 
-my $txstream = SVN::TxDelta::new ($source, $target);
+my $txstream = SVN::TxDelta::new($source, $target);
 
-isa_ok ($txstream, '_p_svn_txdelta_stream_t');
+isa_ok($txstream, '_p_svn_txdelta_stream_t');
 open my $asource, '<', \$srctext;
-my $handle = [SVN::TxDelta::apply ($asource, $aresult, undef, undef)];
+my $handle = [SVN::TxDelta::apply($asource, $aresult, undef, undef)];
 
-SVN::TxDelta::send_txstream ($txstream, @$handle);
+SVN::TxDelta::send_txstream($txstream, @$handle);
 
-is ($result, $tgttext, 'delta self test');
+is($result, $tgttext, 'delta self test');
 

Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/5delta.t
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/5delta.t?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/5delta.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/5delta.t Thu Jul 14 18:11:40 2011
@@ -31,14 +31,14 @@ open my $source, '<', \$srctext;
 open my $target, '<', \$tgttext;
 open my $aresult, '>', \$result;
 
-my $txstream = SVN::TxDelta::new ($source, $target);
+my $txstream = SVN::TxDelta::new($source, $target);
 
-isa_ok ($txstream, '_p_svn_txdelta_stream_t');
+isa_ok($txstream, '_p_svn_txdelta_stream_t');
 open my $asource, '<', \$srctext;
-my ($md5, @handle) = SVN::TxDelta::apply ($asource, $aresult, undef);
+my ($md5, @handle) = SVN::TxDelta::apply($asource, $aresult, undef);
 
-SVN::TxDelta::send_txstream ($txstream, @handle);
+SVN::TxDelta::send_txstream($txstream, @handle);
 
-is ($result, $tgttext, 'delta self test');
+is($result, $tgttext, 'delta self test');
 
 is("$md5", 'a22b3dadcbddac48d2f1eae3ec5fb86a', 'md5 matched');

Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/7editor.t
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/7editor.t?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/7editor.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/7editor.t Thu Jul 14 18:11:40
2011
@@ -48,21 +48,21 @@ sub committed {
 
 my $editor = SVN::Delta::Editor->
     new(SVN::Repos::get_commit_editor($repos, "file://$repospath",
-				      '/', 'root', 'FOO', \&committed));
+                                      '/', 'root', 'FOO', \&committed));
 my $rootbaton = $editor->open_root(0);
-my $dirbaton = $editor->add_directory ('trunk', $rootbaton, undef, 0);
-my $fbaton = $editor->add_file ('trunk/filea', $dirbaton, undef, -1);
-my $ret = $editor->apply_textdelta ($fbaton, undef);
+my $dirbaton = $editor->add_directory('trunk', $rootbaton, undef, 0);
+my $fbaton = $editor->add_file('trunk/filea', $dirbaton, undef, -1);
+my $ret = $editor->apply_textdelta($fbaton, undef);
 SVN::TxDelta::send_string("FILEA CONTENT", @$ret);
 $editor->close_edit();
 eval {
 my $pool = SVN::Pool->new_default;
-SVN::Repos::dir_delta ($fs->revision_root (0), '/', '',
-		       $fs->revision_root (1), '/',
-		       MyEditor->new (crap => bless {}, 'something'),
-		       undef, 1, 1, 0, 0);
+SVN::Repos::dir_delta($fs->revision_root(0), '/', '',
+                      $fs->revision_root(1), '/',
+                      MyEditor->new(crap => bless {}, 'something'),
+                      undef, 1, 1, 0, 0);
 };
-ok ($main::something_destroyed, 'editor');
+ok($main::something_destroyed, 'editor');
 
 package something;
 

Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/8lock.t
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/8lock.t?rev=1146832&r1=1146831&r2=1146832&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/8lock.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/8lock.t Thu Jul 14 18:11:40 2011
@@ -43,7 +43,7 @@ ok($repos = SVN::Repos::create("$repospa
 my $fs = $repos->fs;
 
 my $acc = SVN::Fs::create_access('foo');
-is ($acc->get_username, 'foo');
+is($acc->get_username, 'foo');
 $fs->set_access($acc);
 
 my $txn = $fs->begin_txn($fs->youngest_rev);
@@ -54,18 +54,18 @@ print $stream 'orz';
 }
 $txn->commit;
 
-$fs->lock ('/testfile', 'hate software', 'we hate software', 0, 0, $fs->youngest_rev,
0);
+$fs->lock('/testfile', 'hate software', 'we hate software', 0, 0, $fs->youngest_rev,
0);
 
 ok(my $lock = $fs->get_lock('/testfile'));
-is ($lock->token, 'hate software');
-is ($lock->owner, 'foo');
+is($lock->token, 'hate software');
+is($lock->owner, 'foo');
 
 $acc = SVN::Fs::create_access('fnord');
-is ($acc->get_username, 'fnord');
+is($acc->get_username, 'fnord');
 $fs->set_access($acc);
 
 eval {
-$fs->lock ('/testfile', 'hate software', 'we hate software', 0, 0, $fs->youngest_rev,
0);
+$fs->lock('/testfile', 'hate software', 'we hate software', 0, 0, $fs->youngest_rev,
0);
 };
 
 like($@, qr/already locked/);



Mime
View raw message