diff --git a/modules/modperl.cpp b/modules/modperl.cpp
index 5415ff95..c0f8f37d 100644
--- a/modules/modperl.cpp
+++ b/modules/modperl.cpp
@@ -692,7 +692,7 @@ XS(XS_ZNC_GetString)
 			else if ( sName == "DLPath" ) sReturn = pUser->GetDLPath();
 			else if ( sName == "ModPath" ) sReturn = CZNC::Get().GetModPath();
 			else if ( sName == "HomePath" ) sReturn = CZNC::Get().GetHomePath();
-			//else if ( sName == "DataPath" ) sReturn = pUser->GetDataPath();
+			else if ( sName == "SavePath" ) sReturn = g_ModPerl->GetSavePath();
 			else if ( sName == "StatusPrefix" ) sReturn = pUser->GetStatusPrefix();
 			else if ( sName == "DefaultChanModes" ) sReturn = pUser->GetDefaultChanModes();
 			else if ( sName == "IRCServer" ) sReturn = pUser->GetIRCServer();
diff --git a/modules/modperl.pm b/modules/modperl.pm
index 26a5bb39..725ec428 100644
--- a/modules/modperl.pm
+++ b/modules/modperl.pm
@@ -59,7 +59,7 @@ sub CORELoadMod
 		return( HALTMODS() );
 	}
 
-	my $DPath = GetString( "DataPath" );
+	my $DPath = GetString( "SavePath" );
 	my $FileName = $DPath . "/." . $Username . $Module . ".pm";
 	
 	if ( !open( INMOD, $ModPath ) )