[BACK]Return to Todo.pm CVS log [TXT][DIR] Up to [local] / todotxt / Text-Todo / lib / Text

Diff for /todotxt/Text-Todo/lib/Text/Todo.pm between version 1.19 and 1.20

version 1.19, 2010/01/18 02:46:48 version 1.20, 2010/01/18 03:04:48
Line 1 
Line 1 
 package Text::Todo;  package Text::Todo;
   
 # $AFresh1: Todo.pm,v 1.17 2010/01/12 20:09:02 andrew Exp $  # $AFresh1: Todo.pm,v 1.19 2010/01/18 02:46:48 andrew Exp $
   
 use warnings;  use warnings;
 use strict;  use strict;
Line 14 
Line 14 
   
 {  {
   
     my %path_of;      my @attr_refs = \(
     my %list_of;          my %path_of,
     my %loaded_of;  
   
           my %list_of,
           my %loaded_of,
       );
   
     sub new {      sub new {
         my ( $class, $options ) = @_;          my ( $class, $options ) = @_;
   
Line 381 
Line 384 
         }          }
   
         croak "Invalid entry [$entry]!";          croak "Invalid entry [$entry]!";
       }
   
       sub DESTROY {
           my ($self) = @_;
           my $ident = ident $self;
           foreach my $attr_ref (@attr_refs) {
               delete $attr_ref->{$ident};
           }
     }      }
 }  }
   
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>