===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API.pm	2010/01/26 05:05:00	1.14
+++ todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API.pm	2010/01/26 05:47:30	1.15
@@ -1,6 +1,6 @@
 package Text::Todo::REST::API;
 
-# $AFresh1: API.pm,v 1.13 2010/01/26 04:30:13 andrew Exp $
+# $AFresh1: API.pm,v 1.14 2010/01/26 05:05:00 andrew Exp $
 
 use warnings;
 use strict;
@@ -112,13 +112,15 @@
 
         push @{ $options{args} }, @args;
 
-        $options{list}
-            = defined $options{list} ? $options{list} : 'todo_file';
- 
-        if ($options{list} !~ /\Q $options{suffix} \E$/xms) {
-            $options{list} .= $options{suffix};
+        my $list = $self->_todo->file( $options{list} );
+
+        my $suffix = $self->_suffix || q{};
+        if ($list !~ / \Q$suffix\E $/ixms) {
+            $list .= $suffix;
         }
 
+        $options{list} = $list;
+
         if ( $options{format} ) {
             $format_of{ ident $self } = $options{format};
             delete $options{format};
@@ -179,13 +181,14 @@
         if ( $options{list} ) {
             $options{action} ||= 'list';
 
+            my $list = $options{list};
+
             if ( ( lc $options{list} ) eq 'files' ) {
-                $options{action} = lc $options{list};
-                $options{list}   = q{};
+                $options{action} = lc $list;
+                $list = q{};
             }
-            elsif ( $self->_todo->file( $options{list} ) ) {
-                $options{list} = $self->_todo->file( $options{list} );
-            }
+
+            $options{list} = $list;
         }
 
         if ( @{ $options{args} } && ( lc $options{args}[0] ) eq 'entry' ) {