===================================================================
RCS file: /cvs/todotxt/Text-Todo/lib/Text/Todo/Entry.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- todotxt/Text-Todo/lib/Text/Todo/Entry.pm	2010/01/09 07:07:31	1.10
+++ todotxt/Text-Todo/lib/Text/Todo/Entry.pm	2010/01/09 07:08:45	1.11
@@ -47,8 +47,6 @@
     }
 
     sub replace { _update_entry(@_) }
-    sub depri   { _set_priority( @_, '' ) }
-    sub pri     { _set_priority(@_) }
 
     sub new {
         my ( $class, $text ) = @_;
@@ -100,7 +98,9 @@
         return $text_of{$ident};
     }
 
-    sub _set_priority {
+    sub depri { pri( @_, '' ) }
+
+    sub pri {
         my ( $self, $new_pri ) = @_;
         my $ident = ident($self);