diff -urN Bastille.orig/Bastille_Tk.pm Bastille/Bastille_Tk.pm
--- Bastille.orig/Bastille_Tk.pm	2005-04-05 12:28:47.000000000 -0400
+++ Bastille/Bastille_Tk.pm	2005-04-05 12:27:19.000000000 -0400
@@ -734,7 +734,7 @@
 # This is the listbox callback
 #
 sub hlist_callback {
-    my $sel = $list->info(selection);
+    my ($sel) = $list->info(selection);
     if($sel ne ""){
 	$list->selectionClear('0', $reverse_module_index{"End"});
 	$list->selectionSet($sel);