cperl xemacs bug