--- lib/Grep/Source.pm 2007/02/23 17:16:33 74 +++ lib/Grep/Source.pm 2007/02/23 18:10:26 82 @@ -158,9 +158,15 @@ foreach my $s ( $self->sources ) { Jifty->log->debug("testing source class $s"); - if ($s->can('content_have') && $s->content_have( $content ) ) { - Jifty->log->debug("${s}->content_have succesful"); - return "$s"; + if ( $s->can('content_have') ) { + my $regex = $s->content_have( $content ) or + die "${s}->content_have didn't return anything"; + die "${s}->content_have didn't return regex but ", dump( $regex ), " ref ", ref( $regex ) + unless ( ref($regex) eq 'Regexp' ); + if ( $content =~ $regex ) { + Jifty->log->debug("${s}->content_have succesful"); + return $s; + } } } }