Gedcom::Individual->life()

Hi all,

as it is often the case that old church books do not give a date of 
birth, but only a date of baptism, I have effected minimal changes on 
the life() function, so it will return ~<date> where (and only where) 
*<date> is not available::

sub life
{
  my $self = shift;
  my ($birt,undef) = map { $_->date } $self->birt;
  my ($bapm,undef) = map { $_->date } $self->bapm;      # line added
  my ($deat,undef) = map { $_->date } $self->deat;
  $birt=(defined $birt)?"*$birt":((defined $bapm)?"~$bapm":'');   # line 
amended
  $deat=(defined $deat)?"+$deat":'';
  my $life=join(" ",$birt,$deat);
  $life eq " "?'':$life;
}

Since among other places I use life() as part of the result display for 
my search function, this now gives much better results for persons where 
not much besides the date of baptism is known. Example:

literal match using : WELLMANN
  - Georgius BINDER ( GEORGIUS BINDER WELLMANN ) *1798
  - Catharina SCHENKER ( CATHARINA SCHENKER WELLMANN ) *1745 +06.FEB.1810
  - Agnetha VEBER ( AGNETHA VEBER WELLMANN ) ~13.MAR.1719
  - Sara WAGNER ( SARA WAGNER WELLMANN ) ~06.NOV.1753
  - Daniel WELLMANN ( DANIEL WELLMANN ) ~23.DEC.1770
  - Georg WELLMANN ( GEORG WELLMANN WAGNER ) ~18.NOV.1742
  - Georg WELLMANN ( GEORG VELLMANN WELLMANN VEBER ) +1742
  - Johann Georg WELLMANN ( JOHANN GEORG WELLMANN )
  - Johann WELLMANN ( JOHANN WELLMANN SCHENKER ) ~24.JUL.1739
  - Johann WELLMANN ( JOHANN WELLMANN )
  - Justina Elisabeth WELLMANN ( JUSTINA ELISABETH WELLMANN BINDER ) 
~11.JAN.1802 +17.MAR.1843
  - Michael WELLMANN ( MICHAEL WELLMANN )
  - Sara Elisabeth WELLMANN ( SARA ELISABETH WELLMANN ) ~15.JUL.1773 
+16.AUG.1855

Perhaps this is something fit for the distribution.

Cheers,
Michael