From 439818bcf868daaf4c22d77469f830cb9a496e8b Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Tue, 3 Dec 2002 22:37:02 +0000
Subject: [PATCH] Made irssi_binary global and exported to perl as
 get_irssi_binary().

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3039 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/core/session.c      | 5 +++--
 src/core/session.h      | 2 ++
 src/perl/common/Core.xs | 8 ++++++++
 3 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/src/core/session.c b/src/core/session.c
index 004cd4f7..e07fc379 100644
--- a/src/core/session.c
+++ b/src/core/session.c
@@ -33,7 +33,7 @@
 #include "nicklist.h"
 
 static char *session_file;
-static char *irssi_binary;
+char *irssi_binary;
 
 static char **session_args;
 
@@ -354,7 +354,8 @@ void session_init(void)
 		{ NULL, '\0', 0, NULL }
 	};
 
-        session_file = NULL;
+	session_file = NULL;
+        irssi_binary = NULL;
 	args_register(options);
 
 	command_bind("upgrade", NULL, (SIGNAL_FUNC) cmd_upgrade);
diff --git a/src/core/session.h b/src/core/session.h
index 5788b5f0..000ec56e 100644
--- a/src/core/session.h
+++ b/src/core/session.h
@@ -1,6 +1,8 @@
 #ifndef __SESSION_H
 #define __SESSION_H
 
+extern char *irssi_binary;
+
 void session_set_binary(const char *path);
 void session_upgrade(void);
 
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index d5b9d6e8..8230e77f 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -3,6 +3,7 @@
 #include "core.h"
 
 #include "pidwait.h"
+#include "session.h"
 
 #define DEFAULT_COMMAND_CATEGORY "Perl scripts' commands"
 
@@ -548,6 +549,13 @@ CODE:
 OUTPUT:
 	RETVAL
 
+char *
+get_irssi_binary()
+CODE:
+	RETVAL = irssi_binary;
+OUTPUT:
+	RETVAL
+
 char *
 version()
 PREINIT: