===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Actions/PUT.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Actions/PUT.pm	2010/02/18 05:34:31	1.1
+++ todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Actions/PUT.pm	2010/02/18 06:25:09	1.2
@@ -1,6 +1,6 @@
 package Text::Todo::REST::API::Actions::PUT;
 
-# $AFresh1: PUT.pm,v 1.5 2010/02/16 04:09:53 andrew Exp $
+# $AFresh1: PUT.pm,v 1.1 2010/02/18 05:34:31 andrew Exp $
 
 use warnings;
 use strict;
@@ -33,8 +33,6 @@
         my ( $self, $todo, $options ) = @_;
         my $id = $options->{entry};
 
-        use Data::Dumper;
-        print STDERR Dumper $options;
         my $new_text;
     VALUE: foreach my $k qw( text value ) {
             if ( exists $options->{$k} ) {
@@ -64,7 +62,6 @@
         }
 
         if ($entry && $options->{md5}) {
-            warn md5_hex($entry->text) . '<>' . $options->{md5} . "($new_text)\n";
             if (md5_hex($entry->text) ne lc($options->{md5})) {
                 $entry = undef;
             }