--- trunk/lib/Frey/Pipe.pm 2008/11/18 16:39:13 417 +++ trunk/lib/Frey/Pipe.pm 2008/11/18 16:54:10 418 @@ -35,6 +35,8 @@ my $out; my $pipe; + $self->title( ref($self) . ' | ' . $self->pipe ); + foreach my $part ( split(/\|/, $self->pipe ) ) { warn "# part: '$part'"; if ( $part =~ m{^([^/]+)/([^\+\?]+)(.*)?$} ) { @@ -68,7 +70,7 @@ } } - return '' . $self->pipe . '' . $out; + return $out; } 1;