version 1.18, 2010/01/11 01:30:24 |
version 1.22, 2010/01/18 02:46:48 |
|
|
package Text::Todo::Entry; |
package Text::Todo::Entry; |
|
|
# $RedRiver: Entry.pm,v 1.16 2010/01/10 22:49:53 andrew Exp $ |
# $AFresh1: Entry.pm,v 1.20 2010/01/12 20:09:02 andrew Exp $ |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
|
|
$new =~ s/$priority_completion_regex//xms; |
$new =~ s/$priority_completion_regex//xms; |
|
|
if ( $self->done ) { |
if ( $self->done ) { |
if ($self->done !~ /^x/ixms) { |
if ( $self->done !~ /^x/ixms ) { |
push @new, 'x'; |
push @new, 'x'; |
} |
} |
push @new, $self->done; |
push @new, $self->done; |