fix for xperl