aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-02-02 15:08:01 -05:00
Code

$/ was set to undef for perl scripts. removed unused variable.

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1552 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-06-11 22:39:32 +00:00 committed by cras
parent 4c51bc9755
commit 651972ab33
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/perl/perl.c
View File

@ -71,6 +71,7 @@ static void irssi_perl_start(void)
" local($/) = undef;\n" " local($/) = undef;\n"
" my $sub = <FH>;\n" " my $sub = <FH>;\n"
" close FH;\n" " close FH;\n"
" $/ = '\n';\n"
"\n" "\n"
" my $eval = qq{package $package; %s sub handler { $sub; }};\n" " my $eval = qq{package $package; %s sub handler { $sub; }};\n"
" {\n" " {\n"
@ -137,8 +138,6 @@ static int perl_script_destroy(const char *name)
static void irssi_perl_stop(void) static void irssi_perl_stop(void)
{ {
char *package;
signal_emit("perl stop", 0); signal_emit("perl stop", 0);
perl_signals_stop(); perl_signals_stop();