diff --git a/src/mod/languages/mod_perl/Makefile b/src/mod/languages/mod_perl/Makefile
index aeaabaefba..198a1dd72a 100644
--- a/src/mod/languages/mod_perl/Makefile
+++ b/src/mod/languages/mod_perl/Makefile
@@ -32,8 +32,8 @@ switch_swig_wrap.o: switch_swig_wrap.c
 	$(CC) -w $(CFLAGS) -fPIC -c $< -o $@
 
 
-fs_perl.$(DYNAMIC_LIB_EXTEN): $(MODNAME).$(DYNAMIC_LIB_EXTEN) switch_swig_wrap.o switch_swig.o perlxsi.o
-	$(CC) $(SOLINK) -o fs_perl.$(DYNAMIC_LIB_EXTEN) switch_swig_wrap.o switch_swig.o perlxsi.o $(LDFLAGS)
+fs_perl.$(DYNAMIC_LIB_EXTEN): $(MODNAME).$(DYNAMIC_LIB_EXTEN) switch_swig_wrap.o switch_swig.o
+	$(CC) $(SOLINK) -o fs_perl.$(DYNAMIC_LIB_EXTEN) switch_swig_wrap.o switch_swig.o $(LDFLAGS)
 
 
 $(MODNAME).$(DYNAMIC_LIB_EXTEN): $(MODNAME).c $(MODNAME).o $(OBJS)
diff --git a/src/switch_ivr.c b/src/switch_ivr.c
index 2166cef061..ea2b21b52d 100644
--- a/src/switch_ivr.c
+++ b/src/switch_ivr.c
@@ -662,8 +662,9 @@ SWITCH_DECLARE(switch_status) switch_ivr_speak_text(switch_core_session *session
 	}
 
 	switch_console_printf(SWITCH_CHANNEL_CONSOLE, "done speaking text\n");
+	flags = 0;	
+	switch_core_speech_close(&sh, &flags);
 	switch_core_codec_destroy(&codec);
-	flags = 0;
 
 	if (timer_name) {
 		/* End the audio absorbing thread */