why was this here...
bug fix for old perl versions