/[wait]/branches/CPAN/lib/WAIT/Scan.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/CPAN/lib/WAIT/Scan.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 12 by unknown, Fri Apr 28 15:41:10 2000 UTC revision 13 by ulpfr, Fri Apr 28 15:42:44 2000 UTC
# Line 1  Line 1 
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
# Line 52  sub next { Line 52  sub next {
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        }        }
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.26