[svn.haxx.se] · SVN Dev · SVN Users · SVN Org · TSVN Dev · TSVN Users · Subclipse Dev · Subclipse Users · this month's index

Re: [PATCH] perl swig bindings failure in svn 1.1.0

From: J Robert Ray <jrray_at_imageworks.com>
Date: 2004-10-08 20:11:44 CEST

Ben Reser wrote:
> For whatever reason I'm seeing what you're seeing but not getting any
> complaints from Perl about it...
>
> See if the following patch fixes the problem for you:

The patch does fix it for me, and VERSION is being set to the expected
value:

> perl -MSVN::Core -le 'print $SVN::Core::VERSION'
1.1.0

Thanks,

- Robert

>
> Index: subversion/bindings/swig/perl/native/Core.pm
> ===================================================================
> --- subversion/bindings/swig/perl/native/Core.pm (revision 11275)
> +++ subversion/bindings/swig/perl/native/Core.pm (working copy)
> @@ -2,7 +2,7 @@
> use warnings;
>
> package SVN::Core;
> -use SVN::Base qw(Core svn_);
> +use SVN::Base qw(Core svn_ VERSION);
> $SVN::Core::VERSION = "$SVN::Core::VER_MAJOR.$SVN::Core::VER_MINOR." .
> "$SVN::Core::VER_MICRO";
>
> Index: subversion/bindings/swig/perl/native/Base.pm
> ===================================================================
> --- subversion/bindings/swig/perl/native/Base.pm (revision 11275)
> +++ subversion/bindings/swig/perl/native/Base.pm (working copy)
> @@ -70,7 +70,7 @@
> my $name = $_;
> next unless s/^$prefix//i;
> foreach my $ignored_symbol (@ignore) {
> - next SYMBOL if ("$prefix$ignored_symbol" eq $name);
> + next SYMBOL if ($name =~ /^(?i:$prefix)$ignored_symbol$/);
> }
>
> # insert the accessor
>
>
>

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org
Received on Fri Oct 8 20:12:02 2004

This is an archived mail posted to the Subversion Dev mailing list.