=================================================================== RCS file: /cvs/todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API.pm,v retrieving revision 1.15 retrieving revision 1.16 diff -u -r1.15 -r1.16 --- todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API.pm 2010/01/26 05:47:30 1.15 +++ todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API.pm 2010/01/26 06:03:11 1.16 @@ -1,6 +1,6 @@ package Text::Todo::REST::API; -# $AFresh1: API.pm,v 1.14 2010/01/26 05:05:00 andrew Exp $ +# $AFresh1: API.pm,v 1.15 2010/01/26 05:47:30 andrew Exp $ use warnings; use strict; @@ -115,7 +115,7 @@ my $list = $self->_todo->file( $options{list} ); my $suffix = $self->_suffix || q{}; - if ($list !~ / \Q$suffix\E $/ixms) { + if ( $list !~ / \Q$suffix\E $/ixms ) { $list .= $suffix; }