todotxt/Text-Todo/bin/todo.pl - diff

Return to todo.pl CVS log

Up to [local] / todotxt / Text-Todo / bin

version 1.20, 2010/01/22 01:30:45

version 1.21, 2010/02/03 18:14:01

Line 1

#!/usr/bin/perl

# $AFresh1: todo.pl,v 1.19 2010/01/21 21:10:38 andrew Exp $

# $AFresh1: todo.pl,v 1.20 2010/01/22 01:30:45 andrew Exp $

########################################################################

# todo.pl *** a perl version of todo.sh. Uses Text::Todo.

Line 109

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;