fix bugs in get_buffer_data() which breaks the retrieval of buffer content (perl, lua)

2 files changed, 5 insertions, 3 deletions

diff --git a/src/plugins/scripts/lua/weechat-lua.c b/src/plugins/scripts/lua/weechat-lua.c
index 4d70d61f0..b8d14cc85 100644
--- a/src/plugins/scripts/lua/weechat-lua.c
+++ b/src/plugins/scripts/lua/weechat-lua.c
@@ -1767,8 +1767,8 @@ weechat_lua_get_buffer_data  (lua_State *L)
 	server = lua_tostring (lua_current_interpreter, -1);
 	break;
     case 2:
-	channel  = lua_tostring (lua_current_interpreter, -2);
-	server = lua_tostring (lua_current_interpreter, -1);
+	server  = lua_tostring (lua_current_interpreter, -2);
+	channel = lua_tostring (lua_current_interpreter, -1);
 	break;
     default:
 	lua_plugin->print_server (lua_plugin,
@@ -1777,7 +1777,7 @@ weechat_lua_get_buffer_data  (lua_State *L)
 	lua_pushnumber (lua_current_interpreter, 0);
 	return 1;
     }
-    
+
     buffer_data = lua_plugin->get_buffer_data (lua_plugin, (char *) server, (char *) channel);
     if (!buffer_data)
     {
diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c
index 599d5754f..596a1126e 100644
--- a/src/plugins/scripts/perl/weechat-perl.c
+++ b/src/plugins/scripts/perl/weechat-perl.c
@@ -1531,6 +1531,8 @@ static XS (XS_weechat_get_buffer_data)
 	server = SvPV (ST (0), PL_na);
     if (items >= 2)
 	channel = SvPV (ST (1), PL_na);
+
+    SP -= items;
     
     buffer_data = perl_plugin->get_buffer_data (perl_plugin, server, channel);
     count = 0;