--- nfo/perl/libs/Regexp/Group.pm	2002/12/22 14:16:39	1.1
+++ nfo/perl/libs/Regexp/Group.pm	2003/02/14 14:17:42	1.2
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: Group.pm,v 1.1 2002/12/22 14:16:39 joko Exp $
+##  $Id: Group.pm,v 1.2 2003/02/14 14:17:42 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: Group.pm,v $
+##  Revision 1.2  2003/02/14 14:17:42  joko
+##  + more warnings and verbosing
+##
 ##  Revision 1.1  2002/12/22 14:16:39  joko
 ##  + initial check-in
 ##
@@ -140,6 +143,11 @@
     # dereference data if its still referenced
     my $data = ${$self->{data}};
 
+    if (!$data) {
+      $self->log("data is empty: stepkey=$stepkey", 'warning');
+      return;
+    }
+
     #$self->{data} =~ s{
     $data =~ s{
 
@@ -242,6 +250,10 @@
     #$self->trace('matches', $self->getMatches(), 1);
     #$self->trace('matches-positions', $self->getMatchPositions(), 1);
 
+    #print "\r" if $self->{verbose};
+    print " " x 50 if $self->{verbose};
+    print "\r" if $self->{verbose};
+
 }
 
 sub continue {