--- a/src/dialogs.c	Thu Sep 27 22:48:16 2001 +0000
+++ b/src/dialogs.c	Thu Sep 27 23:29:23 2001 +0000
@@ -4009,6 +4009,8 @@
 	gtk_widget_show_all(rename_bud_dialog);
 }
 
+#ifdef USE_PERL
+
 static GtkWidget *perl_config = NULL;
 static char *perl_last_dir = NULL;
 
@@ -4081,3 +4083,5 @@
 	gtk_widget_show(perl_config);
 	gdk_window_raise(perl_config->window);
 }
+
+#endif /* USE_PERL */