svn commit: r1443813 - /subversion/trunk/subversion/bindings/swig/perl/native/Ra.pm

[br...@apache.org]

Author: breser
Date: Fri Feb  8 00:51:24 2013
New Revision: 1443813

URL: http://svn.apache.org/r1443813
Log:
Documentation fix for SVN::Ra.

* subversion/bindings/swig/perl/native/Ra.pm
  Fix examples: the $path parameter for SVN::Ra::get_dir() and
  SVN::Ra::get_file() must not start with a slash.

Patch by: Roderich Schupp <roderich.schupp{_AT_}gmail.com>

Modified:
    subversion/trunk/subversion/bindings/swig/perl/native/Ra.pm

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=1443813&r1=1443812&r2=1443813&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/Ra.pm (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/Ra.pm Fri Feb  8 00:51:24 2013
@@ -257,9 +257,9 @@ on the directory.  This means I<all> pro
 the user and stored in the repository fs, but non-tweakable ones
 generated by the SCM system itself (e.g. 'wcprops', 'entryprops', etc).
 
-    my ($dirents, undef, $props) = $ra->get_dir('/trunk/dir', 123);
+    my ($dirents, undef, $props) = $ra->get_dir('trunk/dir', 123);
     my ($dirents, $fetched_revnum, $props) = $ra->get_dir(
-        '/trunk/dir', $SVN::Core::INVALID_REVNUM);
+        'trunk/dir', $SVN::Core::INVALID_REVNUM);
 
 =item $ra-E<gt>get_file($path, $revnum, $fh)
 
@@ -281,15 +281,15 @@ the user and stored in the repository fs
 generated by the SCM system itself (e.g. 'wcprops', 'entryprops', etc).
 
     my (undef, $props) = $ra->get_file(
-        '/trunk/foo', 123, undef);
+        'trunk/foo', 123, undef);
 
     open my $fh, '>', 'tmp_out'
         or die "error opening file: $!";
     my (undef, $props) = $ra->get_file(
-        '/trunk/foo', 123, $fh);
+        'trunk/foo', 123, $fh);
 
     my ($fetched_revnum, $props) = $ra->get_file(
-        '/trunk/foo', $SVN::Core::INVALID_REVNUM, $fh);
+        'trunk/foo', $SVN::Core::INVALID_REVNUM, $fh);
 
 =item $ra-E<gt>get_file_revs($path, $start, $end, \&callback)