===================================================================
RCS file: /cvs/todotxt/Text-Todo/bin/todo.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- todotxt/Text-Todo/bin/todo.pl	2010/01/10 23:54:26	1.6
+++ todotxt/Text-Todo/bin/todo.pl	2010/01/10 23:58:11	1.7
@@ -103,11 +103,13 @@
 }
 
 sub add {
-    my ( $config, $entry ) = @_;
-    if ( !$entry ) {
+    my ( $config, @entry ) = @_;
+    if ( !@entry ) {
         die "usage: todo.pl add 'item'\n";
     }
 
+    my $entry = join q{ }, @entry;
+
     my $todo = Text::Todo->new($config);
     if ( $todo->add($entry) ) {
         my @list  = $todo->list;
@@ -121,11 +123,13 @@
 }
 
 sub addto {
-    my ( $config, $file, $entry ) = @_;
-    if ( !( $file && $entry ) ) {
+    my ( $config, $file, @entry ) = @_;
+    if ( !( $file && @entry ) ) {
         die "usage: todo.pl addto DEST 'TODO ITEM'\n";
     }
 
+    my $entry = join q{ }, @entry;
+
     my $todo = Text::Todo->new($config);
 
     $file = $todo->file($file);
@@ -141,10 +145,12 @@
 }
 
 sub append {
-    my ( $config, $line, $text ) = @_;
-    if ( !( $line && $text && $line =~ /^\d+$/xms ) ) {
+    my ( $config, $line, @text) = @_;
+    if ( !( $line && @text && $line =~ /^\d+$/xms ) ) {
         die 'usage: todo.pl append ITEM# "TEXT TO APPEND"' . "\n";
     }
+
+    my $text = join q{ }, @text;
 
     my $todo  = Text::Todo->new($config);
     my $entry = $todo->list->[ $line - 1 ];