===================================================================
RCS file: /cvs/todotxt/Text-Todo/lib/Text/Todo/Entry.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- todotxt/Text-Todo/lib/Text/Todo/Entry.pm	2009/07/10 23:26:14	1.1
+++ todotxt/Text-Todo/lib/Text/Todo/Entry.pm	2009/07/10 23:28:28	1.2
@@ -1,6 +1,6 @@
 package Text::Todo::Entry;
 
-# $RedRiver$
+# $RedRiver: Entry.pm,v 1.1 2009/07/10 22:26:14 andrew Exp $
 
 use warnings;
 use strict;
@@ -55,7 +55,8 @@
         my ($self) = @_;
         my $ident = ident($self);
 
-        return sort keys %{ $contexts_of{$ident} };
+        my @contexts = sort keys %{ $contexts_of{$ident} };
+        return wantarray ? @contexts : \@contexts;
     }
 
     sub in_context {
@@ -67,7 +68,8 @@
         my ($self) = @_;
         my $ident = ident($self);
 
-        return sort keys %{ $projects_of{$ident} };
+        my @projects = sort keys %{ $projects_of{$ident} };
+        return wantarray ? @projects : \@projects;
     }
 
     sub in_project {