===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/example/cgi-bin/Attic/todo.cgi,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- todotxt/Text-Todo-REST-API/example/cgi-bin/Attic/todo.cgi	2010/02/16 04:08:15	1.11
+++ todotxt/Text-Todo-REST-API/example/cgi-bin/Attic/todo.cgi	2010/02/16 06:12:10	1.12
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $AFresh1: todo.cgi,v 1.10 2010/02/02 17:03:42 andrew Exp $
+# $AFresh1: todo.cgi,v 1.11 2010/02/16 04:08:15 andrew Exp $
 ########################################################################
 # todo.cgi *** REST CGI Handler for todo.txt files
 #
@@ -37,7 +37,7 @@
 
 my $response;
 warn "$api -> $method ( " . $q->path_info . ", " . $q->Vars . ")\n";
-eval { ($response) = $api->$method( $q->path_info, $q->Vars ) };
+eval { ($response) = $api->$method( $q->path_info, scalar $q->Vars ) };
 if ($@) {
     warn "Error: $@\n";