From 651972ab335b3dbebaf8777b1475348937a9e5b0 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Mon, 11 Jun 2001 22:39:32 +0000 Subject: [PATCH] $/ was set to undef for perl scripts. removed unused variable. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1552 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/perl.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/perl/perl.c b/src/perl/perl.c index 95d2c2b3..4a766282 100644 --- a/src/perl/perl.c +++ b/src/perl/perl.c @@ -71,6 +71,7 @@ static void irssi_perl_start(void) " local($/) = undef;\n" " my $sub = ;\n" " close FH;\n" + " $/ = '\n';\n" "\n" " my $eval = qq{package $package; %s sub handler { $sub; }};\n" " {\n" @@ -137,8 +138,6 @@ static int perl_script_destroy(const char *name) static void irssi_perl_stop(void) { - char *package; - signal_emit("perl stop", 0); perl_signals_stop();