1 |
# -*- Mode: Perl -*- |
# -*- Mode: Cperl -*- |
2 |
# Scan.pm -- |
# Scan.pm -- |
3 |
# ITIID : $ITI$ $Header $__Header$ |
# ITIID : $ITI$ $Header $__Header$ |
4 |
# Author : Ulrich Pfeifer |
# Author : Ulrich Pfeifer |
52 |
unless ($self->{code}) { |
unless ($self->{code}) { |
53 |
$self->_next; |
$self->_next; |
54 |
} else { |
} else { |
55 |
my %tp = $self->_next; |
my %tattr = $self->_next; |
56 |
if (%tp) { |
if (%tattr) { |
57 |
if (&{$self->{code}}(\%tp)) { |
if (&{$self->{code}}(\%tattr)) { |
58 |
%tp; |
%tattr; |
59 |
} else { |
} else { |
60 |
$self->next; |
$self->next; |
61 |
} |
} |