===================================================================
RCS file: /cvs/todotxt/Text-Todo/lib/Text/Todo.pm,v
retrieving revision 1.10
retrieving revision 1.13
diff -u -r1.10 -r1.13
--- todotxt/Text-Todo/lib/Text/Todo.pm	2010/01/09 20:41:45	1.10
+++ todotxt/Text-Todo/lib/Text/Todo.pm	2010/01/10 07:07:46	1.13
@@ -1,6 +1,6 @@
 package Text::Todo;
 
-# $RedRiver: Todo.pm,v 1.9 2010/01/09 06:54:15 andrew Exp $
+# $RedRiver: Todo.pm,v 1.12 2010/01/10 04:08:59 andrew Exp $
 
 use warnings;
 use strict;
@@ -28,7 +28,6 @@
             todo_dir    => undef,
             todo_file   => 'todo.txt',
             done_file   => undef,
-            report_file => undef,
         };
 
         if ($options) {
@@ -38,7 +37,7 @@
                         $self->_path_to( $opt, $options->{$opt} );
                     }
                     else {
-                        carp "Invalid option [$opt]";
+                        #carp "Invalid option [$opt]";
                     }
                 }
             }
@@ -160,7 +159,6 @@
         open my $fh, '<', $file or croak "Couldn't open [$file]: $!";
         while (<$fh>) {
             s/\r?\n$//xms;
-            next if !length $_;
             push @list, Text::Todo::Entry->new($_);
         }
         close $fh or croak "Couldn't close [$file]: $!";
@@ -276,24 +274,33 @@
             return;
         }
 
-        my $archived = 0;
+        my $changed = 0;
     ENTRY: foreach my $e ( $self->list ) {
             if ( $e->done ) {
                 if ( $self->addto( 'done_file', $e ) && $self->del($e) ) {
-                    $archived++;
+                    $changed++;
                 }
                 else {
                     carp q{Couldn't archive entry [} . $e->text . ']';
                     last ENTRY;
                 }
             }
+            elsif ($e->text eq q{}) {
+                if ($self->del($e)) {
+                    $changed++;
+                }
+                else {
+                    carp q{Couldn't delete blank entry};
+                    last ENTRY;
+                }
+            }
         }
 
-        if ($archived) {
+        if ($changed) {
             $self->save;
         }
 
-        return $archived;
+        return $changed;
     }
 
     sub addto {
@@ -366,7 +373,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.10 2010/01/09 20:41:45 andrew Exp $
+    $Id: Todo.pm,v 1.13 2010/01/10 07:07:46 andrew Exp $
 
 =head1 SYNOPSIS
 
@@ -566,6 +573,10 @@
 =head1 BUGS AND LIMITATIONS
 
 No bugs have been reported.
+
+Limitations:
+
+Currently there isn't an easy way to print out line numbers with the entry. 
 
 Please report any bugs or feature requests to
 C<bug-text-todo@rt.cpan.org>, or through the web interface at