sub _NoMoreItems { my $rval; return $_NoMoreItems =~ /^\d/ ? (_ErrNum() == $_NoMoreItems || _ErrNum() == 0) : _ErrMsg() =~ /$_NoMoreItems/io; }