--- nfo/perl/libs/Regexp/Group.pm	2002/12/22 14:16:39	1.1
+++ nfo/perl/libs/Regexp/Group.pm	2003/02/20 21:11:43	1.3
@@ -1,7 +1,13 @@
 ## ------------------------------------------------------------------------
-##  $Id: Group.pm,v 1.1 2002/12/22 14:16:39 joko Exp $
+##  $Id: Group.pm,v 1.3 2003/02/20 21:11:43 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: Group.pm,v $
+##  Revision 1.3  2003/02/20 21:11:43  joko
+##  renamed module
+##
+##  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
 ##
@@ -13,7 +19,7 @@
 use strict;
 use warnings;
 
-use base 'DesignPattern::Object::Logger';
+use base qw( DesignPattern::Logger );
 
 
 use Data::Dumper;
@@ -140,6 +146,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 +253,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 {