Index: GenPod.pm
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GenPod.pm,v
retrieving revision 1.37
diff -r1.37 GenPod.pm
552a553,561
> 	my ($at, $bt);
> 	@$xsubs = sort { 
> 		$at = $a->{symname};
> 		$bt = $b->{symname};
> 		return -1 if ($at =~ /new/); 
> 		return 1 if ($bt =~ /new/); 
> 		$at cmp $bt; 
> 	} @$xsubs;
>