=================================================================== RCS file: /cvs/todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Actions/GET.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -u -r1.4 -r1.5 --- todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Actions/GET.pm 2010/02/14 06:14:57 1.4 +++ todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API/Actions/GET.pm 2010/02/16 04:09:53 1.5 @@ -1,6 +1,6 @@ package Text::Todo::REST::API::Actions::GET; -# $AFresh1: GET.pm,v 1.3 2010/02/13 21:48:28 andrew Exp $ +# $AFresh1: GET.pm,v 1.4 2010/02/14 06:14:57 andrew Exp $ use warnings; use strict; @@ -102,13 +102,7 @@ $key = $key->[0]; } elsif ( ref $key eq 'HASH' ) { - if ( exists $key->{$type} ) { - $key = $key->{$type}; - } - else { - return $self->_fail( - caller() . ' requires key [' . $type . ']' ); - } + $key = $key->{$type}; } return $key;