BEGIN {
	*CORE::GLOBAL::length = sub(;$) {
		defined $_[0] ? CORE::length( $_[0] ) : undef;
	};
}