From 1e2547eb92e8a681540925a0da3867a879afd696 Mon Sep 17 00:00:00 2001
From: ailin-nemui <ailin-nemui@users.noreply.github.com>
Date: Thu, 4 Oct 2018 09:33:07 +0200
Subject: [PATCH] fixup perl side

---
 src/perl/common/Rawlog.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/perl/common/Rawlog.xs b/src/perl/common/Rawlog.xs
index c405bc37..73845287 100644
--- a/src/perl/common/Rawlog.xs
+++ b/src/perl/common/Rawlog.xs
@@ -19,9 +19,9 @@ void
 rawlog_get_lines(rawlog)
 	Irssi::Rawlog rawlog
 PREINIT:
-	GSList *tmp;
+	GList *tmp;
 PPCODE:
-	for (tmp = rawlog->lines; tmp != NULL; tmp = tmp->next) {
+	for (tmp = rawlog->lines->tail; tmp != NULL; tmp = tmp->prev) {
 		XPUSHs(sv_2mortal(new_pv(tmp->data)));
 	}