[ic] Problems using SearchOp

[Tim Good]

I am trying to create my own op for searching on $somedate
ge than today.
Folling directions at:
http://www.icdevgroup.org/pipermail/interchange-users/2005-A
pril/042874.html
Which differ slightly from:
http://www.icdevgroup.org/interchange-doc-5.2.0/frames/icdat
abase_32.html

Interchange: 5.4.1 stable, Perl: Perl 5.8.7 non-threaded
Here is what I put in my catelog.cfg :

## Custom search op for greater than todays date
## used to filter auctions which haven't started yet
## from search results.
CodeDef auctionstart SearchOp
CodeDef auctionstart Routine <<EOR
sub {
      my ($self, $i, $pat) = @_;
      $pat = reverse($pat);
      $pat = qr($pat)i;

      return sub {
              my $itemstart = shift;
              return ($itemstart ge "2006-07-03 00:00:00");
      };
}
And the error I get is:

 search error: Limit subroutine creation: Can't use an
undefined value as an ARRAY reference at
/usr/local/interchange/lib/Vend/Search.pm line 653.

Is this option, to create a custom op, still active in my
version stated above?

Thanks,

Tim Good
EDSD, LLC