Index: Gtk2.pm =================================================================== RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/Gtk2.pm,v retrieving revision 1.111 diff -u -d -p -r1.111 Gtk2.pm --- Gtk2.pm 28 Oct 2007 23:18:30 -0000 1.111 +++ Gtk2.pm 30 Oct 2007 20:07:45 -0000 @@ -128,7 +128,7 @@ sub _do_connect { $flags, $handler) = @_; - my $func = $flags & qw/after/ ? 'signal_connect_after' : 'signal_connect'; + my $func = ($flags & 'after') ? 'signal_connect_after' : 'signal_connect'; # we get connect_object when we're supposed to call # signal_connect_object, which ensures that the data (an object)