Author: jamessan
Date: Wed Feb 10 03:22:36 2016
New Revision: 1729519
URL: http://svn.apache.org/viewvc?rev=1729519&view=rev
Log:
* tools/client-side/svn-graph.pl
(): Remove use of SVN::Ra + SVN::Client's auth baton in favor of just
SVN::Client. Move temporary SVN::Client instance ...
(write_graph_descriptor): ... here in an explicit variable.
Modified:
subversion/trunk/tools/client-side/svn-graph.pl
Modified: subversion/trunk/tools/client-side/svn-graph.pl
URL:
http://svn.apache.org/viewvc/subversion/trunk/tools/client-side/svn-graph.pl?rev=1729519&r1=1729518&r2=1729519&view=diff
==============================================================================
--- subversion/trunk/tools/client-side/svn-graph.pl (original)
+++ subversion/trunk/tools/client-side/svn-graph.pl Wed Feb 10 03:22:36 2016
@@ -43,7 +43,6 @@ use Getopt::Std;
$|=1;
require SVN::Core;
-require SVN::Ra;
require SVN::Client;
# The URL of the Subversion repository we wish to graph
@@ -60,17 +59,6 @@ my $startpath;
# Set the variables declared above.
parse_commandline();
-# Point at the root of a repository so we get can look at
-# every revision.
-my $auth = SVN::Client->new->auth;
-my $ra = SVN::Ra->new(url => $repos_url, auth => $auth);
-
-# Handle identifier for the aboslutely youngest revision.
-if ($youngest eq 'HEAD')
-{
- $youngest = $ra->get_latest_revnum();
-}
-
# The "interesting" nodes are potential sources for copies. This list
# grows as we move through time.
# The "tracking" nodes are the most recent revisions of paths we're
@@ -207,6 +195,7 @@ sub process_revision
# Write a descriptor for the graph in GraphViz .dot format to stdout.
sub write_graph_descriptor
{
+ my $client = SVN::Client->new;
# Begin writing the graph descriptor.
print "digraph tree {\n";
print "\tgraph [bgcolor=white];\n";
@@ -215,7 +204,7 @@ sub write_graph_descriptor
print "\n";
# Retrieve the requested history.
- $ra->get_log([''], $startrev, $youngest, 0, 1, 0, \&process_revision);
+ $client->log($repos_url, $startrev, $youngest, 1, 0, \&process_revision);
# Now ensure that everything is linked.
foreach my $codeline_change (keys %codeline_changes_forward)
