=================================================================== RCS file: /cvs/todotxt/Text-Todo/lib/Text/Todo.pm,v retrieving revision 1.20 retrieving revision 1.24 diff -u -r1.20 -r1.24 --- todotxt/Text-Todo/lib/Text/Todo.pm 2010/01/18 03:04:48 1.20 +++ todotxt/Text-Todo/lib/Text/Todo.pm 2010/01/22 18:15:06 1.24 @@ -1,6 +1,6 @@ package Text::Todo; -# $AFresh1: Todo.pm,v 1.19 2010/01/18 02:46:48 andrew Exp $ +# $AFresh1: Todo.pm,v 1.23 2010/01/22 01:30:45 andrew Exp $ use warnings; use strict; @@ -10,7 +10,7 @@ use Text::Todo::Entry; use File::Spec; -use version; our $VERSION = qv('0.0.1'); +use version; our $VERSION = qv('0.1.1'); { @@ -389,9 +389,12 @@ sub DESTROY { my ($self) = @_; my $ident = ident $self; + foreach my $attr_ref (@attr_refs) { delete $attr_ref->{$ident}; } + + return; } } @@ -400,7 +403,7 @@ =head1 NAME -Text::Todo - Perl interface to todo_txt files +Text::Todo - Perl interface to todotxt files =head1 VERSION @@ -408,7 +411,7 @@ Since the $VERSION can't be automatically included, here is the RCS Id instead, you'll have to look up $VERSION. - $Id: Todo.pm,v 1.20 2010/01/18 03:04:48 andrew Exp $ + $Id: Todo.pm,v 1.24 2010/01/22 18:15:06 andrew Exp $ =head1 SYNOPSIS