git-svn: req_svn when needed

Michael J Gruber · Eric Wong · commit b91a8a3ee176 · 2010-03-04T01:45:15.000-08:00
The delayed loading of SVN missed a place where SVN::Core is used. Make
sure to load the package before trying to use it.

Signed-off-by: Michael J Gruber &lt;git@drmicha.warpmail.net&gt;
Acked-by: Eric Wong &lt;normalperson@yhbt.net&gt;
diff --git a/git-svn.perl b/git-svn.perl
@@ -1102,6 +1102,7 @@ sub cmd_info {
 	if ($@) {
 		$result .= "Repository Root: (offline)\n";
 	}
+	::_req_svn();
 	$result .= "Repository UUID: $uuid\n" unless $diff_status eq "A" &&
 		($SVN::Core::VERSION le '1.5.4' || $file_type ne "dir");
 	$result .= "Revision: " . ($diff_status eq "A" ? 0 : $rev) . "\n";

Original file line number	Diff line number	Diff line change
`@@ -1102,6 +1102,7 @@ sub cmd_info {`
`1102`	`1102`	`if ($@) {`
`1103`	`1103`	`$result .= "Repository Root: (offline)\n";`
`1104`	`1104`	`}`
	`1105`	`+ ::_req_svn();`
`1105`	`1106`	`$result .= "Repository UUID: $uuid\n" unless $diff_status eq "A" &&`
`1106`	`1107`	`($SVN::Core::VERSION le '1.5.4' \|\| $file_type ne "dir");`
`1107`	`1108`	`$result .= "Revision: " . ($diff_status eq "A" ? 0 : $rev) . "\n";`