bugfix: nobody knows why it used to work, but with newer version of Perl it doesn't - so make it work again