test case was failing in older perls