diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-10-24 22:18:39 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-10-24 22:18:39 +0000 |
| commit | bdf5bf97859a8a3c649c9abedb884ba7907ce61d (patch) | |
| tree | a205976b6543b2aea3bfe2111d225157eeb32bc2 /src/perl | |
| parent | b43f210a474593bb2aff4bb989c7f40316101f4c (diff) | |
| download | irssi-bdf5bf97859a8a3c649c9abedb884ba7907ce61d.zip | |
Removed some unused code.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1910 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl')
| -rw-r--r-- | src/perl/perl-signals.c | 3 | ||||
| -rw-r--r-- | src/perl/perl-sources.c | 3 |
2 files changed, 2 insertions, 4 deletions
diff --git a/src/perl/perl-signals.c b/src/perl/perl-signals.c index 2748434e..3dd248fe 100644 --- a/src/perl/perl-signals.c +++ b/src/perl/perl-signals.c @@ -74,7 +74,6 @@ static void perl_call_signal(const char *func, int signal_id, gconstpointer *args) { dSP; - int retcount; PERL_SIGNAL_ARGS_REC *rec; SV *sv, *perlarg, *saved_args[SIGNAL_MAX_ARGUMENTS]; @@ -152,7 +151,7 @@ static void perl_call_signal(const char *func, int signal_id, } PUTBACK; - retcount = perl_call_pv((char *) func, G_EVAL|G_DISCARD); + perl_call_pv((char *) func, G_EVAL|G_DISCARD); SPAGAIN; if (SvTRUE(ERRSV)) { diff --git a/src/perl/perl-sources.c b/src/perl/perl-sources.c index a91dee6f..012f644c 100644 --- a/src/perl/perl-sources.c +++ b/src/perl/perl-sources.c @@ -62,7 +62,6 @@ static void perl_source_destroy(PERL_SOURCE_REC *rec) static int perl_source_event(PERL_SOURCE_REC *rec) { dSP; - int retcount; ENTER; SAVETMPS; @@ -72,7 +71,7 @@ static int perl_source_event(PERL_SOURCE_REC *rec) PUTBACK; perl_source_ref(rec); - retcount = perl_call_pv(rec->func, G_EVAL|G_DISCARD); + perl_call_pv(rec->func, G_EVAL|G_DISCARD); SPAGAIN; if (SvTRUE(ERRSV)) { |