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)) {