add workaround for Perl bug
add workaround for Perl bug