===================================================================
RCS file: /cvs/todotxt/Text-Todo/bin/todo.pl,v
retrieving revision 1.19
retrieving revision 1.22
diff -u -r1.19 -r1.22
--- todotxt/Text-Todo/bin/todo.pl	2010/01/21 21:10:38	1.19
+++ todotxt/Text-Todo/bin/todo.pl	2010/02/16 01:13:12	1.22
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $AFresh1: todo.pl,v 1.18 2010/01/19 18:53:36 andrew Exp $
+# $AFresh1: todo.pl,v 1.21 2010/02/03 18:14:01 andrew Exp $
 ########################################################################
 # todo.pl *** a perl version of todo.sh. Uses Text::Todo.
 #
@@ -16,7 +16,7 @@
 use Getopt::Std;
 use Text::Todo;
 
-use version; our $VERSION = qv('0.1.0');
+use version; our $VERSION = qv('0.1.2');
 
 # option defaults
 my $config_file = $ENV{HOME} . '/todo.cfg';
@@ -109,7 +109,7 @@
     my $entry = join q{ }, @entry;
 
     my $todo = Text::Todo->new($config);
-    if ( $todo->add($entry) ) {
+    if ( $todo->add($entry) && $todo->save ) {
         my @list  = $todo->list;
         my $lines = scalar @list;
 
@@ -502,7 +502,7 @@
 Since the $VERSION can't be automatically included, 
 here is the RCS Id instead, you'll have to look up $VERSION.
 
-    $Id: todo.pl,v 1.19 2010/01/21 21:10:38 andrew Exp $
+    $Id: todo.pl,v 1.22 2010/02/16 01:13:12 andrew Exp $
 
 
 =head1 SYNOPSIS