You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@subversion.apache.org by hw...@apache.org on 2011/07/16 13:48:00 UTC
svn commit: r1147405 - in /subversion/branches/1.7.x: ./
subversion/bindings/swig/perl/native/
subversion/bindings/swig/perl/native/scripts/
subversion/bindings/swig/perl/native/t/
Author: hwright
Date: Sat Jul 16 11:47:59 2011
New Revision: 1147405
URL: http://svn.apache.org/viewvc?rev=1147405&view=rev
Log:
Merge r1146832, r1146834 from trunk:
* r1146832, r1146834
Resolve several whitespace issues and a warning that is always visible
for git-svn users.
Justification:
Trivial fix which suppresses warning.
Notes:
Binding change rules apply
Votes:
+1: peters
+0: rhuijben (I think it should be backported, but I can't test this)
+0: gstein (likewise)
Modified:
subversion/branches/1.7.x/ (props changed)
subversion/branches/1.7.x/STATUS
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Base.pm
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Client.pm
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Core.pm
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Delta.pm
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Fs.pm
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Makefile.PL.in
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Ra.pm
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Repos.pm
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/scripts/compile_all.pl
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/scripts/fast_svnbase.pl
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/1repos.t
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/2fs.t
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/3client.t
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/4pool.t
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/5delta-compat.t
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/5delta.t
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/7editor.t
subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/8lock.t
Propchange: subversion/branches/1.7.x/
------------------------------------------------------------------------------
--- svn:mergeinfo (original)
+++ svn:mergeinfo Sat Jul 16 11:47:59 2011
@@ -53,4 +53,4 @@
/subversion/branches/tree-conflicts:868291-873154
/subversion/branches/tree-conflicts-notify:873926-874008
/subversion/branches/uris-as-urls:1060426-1064427
-/subversion/trunk:1146013,1146219,1146222,1146274,1146492,1146555,1146620,1146684
+/subversion/trunk:1146013,1146219,1146222,1146274,1146492,1146555,1146620,1146684,1146832,1146834
Modified: subversion/branches/1.7.x/STATUS
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/STATUS?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/STATUS (original)
+++ subversion/branches/1.7.x/STATUS Sat Jul 16 11:47:59 2011
@@ -45,18 +45,6 @@ Candidate changes:
Approved changes:
=================
- * r1146832, r1146834
- Resolve several whitespace issues and a warning that is always visible
- for git-svn users.
- Justification:
- Trivial fix which suppresses warning.
- Notes:
- Binding change rules apply
- Votes:
- +1: peters
- +0: rhuijben (I think it should be backported, but I can't test this)
- +0: gstein (likewise)
-
* r1146899
Improve configure detection of Ruby.
Justification:
Modified: subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Base.pm
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Base.pm?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Base.pm (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Base.pm Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/Client.pm
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Client.pm?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Client.pm (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Client.pm Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/Core.pm
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Core.pm?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Core.pm (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Core.pm Sat Jul 16 11:47:59 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,18 @@ 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) {
+ my $msg = $svn_error->message();
+ $error_message .= ": $msg" if $msg;
+ $svn_error = $svn_error->child();
+ }
+ return $error_message;
}
@@ -597,7 +598,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 +621,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 +642,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 +666,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/branches/1.7.x/subversion/bindings/swig/perl/native/Delta.pm
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Delta.pm?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Delta.pm (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Delta.pm Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/Fs.pm
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Fs.pm?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Fs.pm (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Fs.pm Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/Makefile.PL.in
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Makefile.PL.in?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Makefile.PL.in (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Makefile.PL.in Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/Ra.pm
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Ra.pm?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Ra.pm (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Ra.pm Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/Repos.pm
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Repos.pm?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Repos.pm (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/Repos.pm Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/scripts/compile_all.pl
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/scripts/compile_all.pl?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/scripts/compile_all.pl (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/scripts/compile_all.pl Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/scripts/fast_svnbase.pl
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/scripts/fast_svnbase.pl?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/scripts/fast_svnbase.pl (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/scripts/fast_svnbase.pl Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/t/1repos.t
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/1repos.t?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/1repos.t (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/1repos.t Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/t/2fs.t
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/2fs.t?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/2fs.t (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/2fs.t Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/t/3client.t
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/3client.t?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/3client.t (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/3client.t Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/t/4pool.t
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/4pool.t?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/4pool.t (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/4pool.t Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/t/5delta-compat.t
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/5delta-compat.t?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/5delta-compat.t (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/5delta-compat.t Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/t/5delta.t
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/5delta.t?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/5delta.t (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/5delta.t Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/t/7editor.t
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/7editor.t?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/7editor.t (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/7editor.t Sat Jul 16 11:47:59 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/branches/1.7.x/subversion/bindings/swig/perl/native/t/8lock.t
URL: http://svn.apache.org/viewvc/subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/8lock.t?rev=1147405&r1=1147404&r2=1147405&view=diff
==============================================================================
--- subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/8lock.t (original)
+++ subversion/branches/1.7.x/subversion/bindings/swig/perl/native/t/8lock.t Sat Jul 16 11:47:59 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/);