avoid uninit var warning on perl 5.14