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)