Avoid perl undef warning