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