/[cvs]/nfo/perl/libs/Regexp/Group.pm
ViewVC logotype

Diff of /nfo/perl/libs/Regexp/Group.pm

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

revision 1.1 by joko, Sun Dec 22 14:16:39 2002 UTC revision 1.2 by joko, Fri Feb 14 14:17:42 2003 UTC
# Line 2  Line 2 
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  ##  ##
# Line 140  sub _scan_step { Line 143  sub _scan_step {
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    
# Line 242  sub _scan_step { Line 250  sub _scan_step {
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 {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed