2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.2 2003/02/14 14:17:42 joko |
6 |
|
## + more warnings and verbosing |
7 |
|
## |
8 |
## Revision 1.1 2002/12/22 14:16:39 joko |
## Revision 1.1 2002/12/22 14:16:39 joko |
9 |
## + initial check-in |
## + initial check-in |
10 |
## |
## |
143 |
# dereference data if its still referenced |
# dereference data if its still referenced |
144 |
my $data = ${$self->{data}}; |
my $data = ${$self->{data}}; |
145 |
|
|
146 |
|
if (!$data) { |
147 |
|
$self->log("data is empty: stepkey=$stepkey", 'warning'); |
148 |
|
return; |
149 |
|
} |
150 |
|
|
151 |
#$self->{data} =~ s{ |
#$self->{data} =~ s{ |
152 |
$data =~ s{ |
$data =~ s{ |
153 |
|
|
250 |
#$self->trace('matches', $self->getMatches(), 1); |
#$self->trace('matches', $self->getMatches(), 1); |
251 |
#$self->trace('matches-positions', $self->getMatchPositions(), 1); |
#$self->trace('matches-positions', $self->getMatchPositions(), 1); |
252 |
|
|
253 |
|
#print "\r" if $self->{verbose}; |
254 |
|
print " " x 50 if $self->{verbose}; |
255 |
|
print "\r" if $self->{verbose}; |
256 |
|
|
257 |
} |
} |
258 |
|
|
259 |
sub continue { |
sub continue { |