===================================================================
RCS file: /cvs/todotxt/Text-Todo/lib/Text/Todo/Entry.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -r1.28 -r1.29
--- todotxt/Text-Todo/lib/Text/Todo/Entry.pm	2010/02/14 00:50:56	1.28
+++ todotxt/Text-Todo/lib/Text/Todo/Entry.pm	2010/02/14 06:08:07	1.29
@@ -1,6 +1,6 @@
 package Text::Todo::Entry;
 
-# $AFresh1: Entry.pm,v 1.27 2010/02/13 23:06:34 andrew Exp $
+# $AFresh1: Entry.pm,v 1.28 2010/02/14 00:50:56 andrew Exp $
 
 use warnings;
 use strict;
@@ -49,9 +49,7 @@
         );
 
         if ( exists $options->{tags} && ref $options->{tags} eq 'HASH' ) {
-            foreach my $k ( keys %{ $options->{tags} } ) {
-                $tags{$k} = $options->{tags}->{$k};
-            }
+            %tags = ( %tags, %{ $options->{tags} } );
         }
 
         for my $tag ( keys %tags ) {
@@ -263,7 +261,7 @@
 Since the $VERSION can't be automatically included, 
 here is the RCS Id instead, you'll have to look up $VERSION.
 
-    $Id: Entry.pm,v 1.28 2010/02/14 00:50:56 andrew Exp $
+    $Id: Entry.pm,v 1.29 2010/02/14 06:08:07 andrew Exp $
 
 
 =head1 SYNOPSIS