[X2Go-Commits] [x2goserver] 01/01: fix for 3f14c03

[git-admin at x2go.org]

This is an automated email from the git hooks/post-receive script.

x2go pushed a commit to branch release/4.0.1.x
in repository x2goserver.

commit e6135c18573cd7172e85dcacc931cf8b433c28f7
Author: Mike Gabriel <mike.gabriel at das-netzwerkteam.de>
Date:   Wed Feb 4 20:12:29 2015 +0100

    fix for 3f14c03
---
 x2goserver/sbin/x2godbadmin |   20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/x2goserver/sbin/x2godbadmin b/x2goserver/sbin/x2godbadmin
index 9d26e70..0ae42ea 100755
--- a/x2goserver/sbin/x2godbadmin
+++ b/x2goserver/sbin/x2godbadmin
@@ -83,12 +83,18 @@ if ($Config->param("backend") eq 'sqlite')
 	{
 		if (! -d "$dir" )
 		{
-			if defined (File::Path::make_path)
+			if ( defined (&File::Path::make_path) )
+			{
 				File::Path::make_path("$dir");
-			elsif defined (File::Path::mkpath)
+			}
+			elsif ( defined (&File::Path::mkpath) )
+			{
 				File::Path::mkpath("$dir");
+			}
 			else
+			{
 				die "Unable to create folders with File::Path";
+			}
 		}
 		if ( -e $dbfile)
 		{
@@ -351,12 +357,18 @@ sub add_user()
 
 	if (! -d "$dir/.x2go" )
 	{
-			if defined (File::Path::make_path)
+			if ( defined (&File::Path::make_path) )
+			{
 				File::Path::make_path("$dir/.x2go");
-			elsif defined (File::Path::mkpath)
+			}
+			elsif ( defined (&File::Path::mkpath) )
+			{
 				File::Path::mkpath("$dir/.x2go");
+			}
 			else
+			{
 				die "Unable to create folders with File::Path";
+			}
 	}
 
 	#save user password

--
Alioth's /srv/git/_hooks_/post-receive-email on /srv/git/code.x2go.org/x2goserver.git