--- /usr/local/src/perl/Gtk-Perl-0.7004/Glade/GladeXML.pm	Tue Oct 17 09:58:29 2000
+++ ./GladeXML.pm	Mon Dec 11 22:25:19 2000
@@ -53,7 +53,13 @@
 	
 	no strict qw/refs/;
 
-	$handler = $package ."::". $handler_name if ($package && $handler !~ /::/);
+   if (ref $package) {
+      $handler = sub { $package->$handler_name(@_) };
+   }
+   else {
+      $handler = $package ."::". $handler_name
+         if ($package && $handler !~ /::/);
+   }
 
 	if ($connect_object) {
 		my ($func) = $after? "signal_connect_object_after" : "signal_connect_object";