diff --git a/x2goserver/sbin/x2godbadmin b/x2goserver/sbin/x2godbadmin
index 6769257..20175e2 100755
--- a/x2goserver/sbin/x2godbadmin
+++ b/x2goserver/sbin/x2godbadmin
@@ -22,7 +22,9 @@
 
 use strict;
 use Sys::Syslog qw( :standard :macros );
-use File::Path qw( make_path );
+# We can Switch to make_path once EPEL 5 (Perl 5.8.8 & File::Path 1.06)
+# is no longer supported.
+use File::Path qw( mkpath );
 use Getopt::Long;
 use Config::Simple;   
 use DBI;
@@ -83,7 +85,7 @@ if ($Config->param("backend") eq 'sqlite')
 	{
 		if (! -d "$dir" )
 		{
-			make_path("$dir");
+			mkpath("$dir");
 		}
 		if ( -e $dbfile)
 		{
@@ -346,7 +348,7 @@ sub add_user()
 
 	if (! -d "$dir/.x2go" )
 	{
-		make_path("$dir/.x2go");
+		mkpath("$dir/.x2go");
 	}
 
 	#save user password