diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-06-11 22:39:32 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-06-11 22:39:32 +0000 |
| commit | 651972ab335b3dbebaf8777b1475348937a9e5b0 (patch) | |
| tree | eee0ec88a5b9d1f80ab73b94cda8e604584cd098 | |
| parent | 4c51bc9755e8ebf5c67c78c75b881d4526fc10f5 (diff) | |
| download | irssi-651972ab335b3dbebaf8777b1475348937a9e5b0.zip | |
$/ 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
| -rw-r--r-- | src/perl/perl.c | 3 |
1 files changed, 1 insertions, 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 = <FH>;\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(); |