subversion-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r1308307 - /subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t
Date Mon, 02 Apr 2012 11:32:17 GMT
Author: stsp
Date: Mon Apr  2 11:32:17 2012
New Revision: 1308307

URL: http://svn.apache.org/viewvc?rev=1308307&view=rev
Log:
Follow-up to r1308299:

* subversion/bindings/swig/perl/native/t/3client.t: Don't try to use getpwuid()
   on Windows because it is not implemented there. (If somebody knows a better
   way of doing this, like catching the error and retrying, please help).

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=1308307&r1=1308306&r2=1308307&view=diff
==============================================================================
--- subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t (original)
+++ subversion/trunk/subversion/bindings/swig/perl/native/t/3client.t Mon Apr  2 11:32:17
2012
@@ -58,7 +58,12 @@ my $current_rev = 0;
 $SVN::Error::handler = undef;
 
 # Get username we are running as
-my $username = getpwuid($>) || getlogin();
+my $username;
+if ($^O eq 'MSWin32') {
+    $username = getlogin();
+} else {
+    $username = getpwuid($>) || getlogin();
+}
 
 # This is ugly to create the test repo with SVN::Repos, but
 # it seems to be the most reliable way.



Mime
View raw message