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