You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@subversion.apache.org by rh...@apache.org on 2012/02/22 18:43:04 UTC
svn commit: r1292414 -
/subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t
Author: rhuijben
Date: Wed Feb 22 17:43:04 2012
New Revision: 1292414
URL: http://svn.apache.org/viewvc?rev=1292414&view=rev
Log:
* subversion/bindings/swig/perl/native/t/3client.t
Retrieve the username in a less platform dependant way if possible. This
fixes Windows usage. (And makes further errors visible).
Modified:
subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t
Modified: subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t
URL: http://svn.apache.org/viewvc/subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t?rev=1292414&r1=1292413&r2=1292414&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t Wed Feb 22 17:43:04 2012
@@ -53,7 +53,7 @@ my $current_rev = 0;
$SVN::Error::handler = undef;
# Get username we are running as
-my $username = getpwuid($>);
+my $username = getlogin() || getpwuid($>);
# This is ugly to create the test repo with SVN::Repos, but
# it seems to be the most reliable way.