Fixing the parsing of the create image response.

Changes

@@ -1,5 +1,8 @@
 Revision history for Net-OpenStack-Compute
 
+1.0401  2012-01-17
+        Fixing the parsing of the create image response.
+
 1.0400  2012-01-14
         Can now show or delete a server by name in oscompute.
 

bin/oscompute

@@ -127,13 +127,14 @@ sub image {
         when ('create') {
             die "Usage: $0 image create <name> <server-id>\n" unless @args == 2;
             my ($name, $server) = @args;
-            return $compute->create_image(name => $name, server => $server);
+            $compute->create_image(name => $name, server => $server);
+            return "Snapshot of server $server has been scheduled.";
         }
         when ('delete') {
             die "Usage: $0 image delete <id>\n" unless @args == 1;
             my ($id) = @args;
             $compute->delete_image($id);
-            return "Image $id has been marked for deletion";
+            return "Image $id has been marked for deletion.";
         }
         default {
             die "Supported image commands are list, show, create and delete.\n";

dist.ini

@@ -4,7 +4,7 @@ license = Perl_5
 copyright_holder = Naveed Massjouni
 copyright_year   = 2011
 
-version = 1.0400
+version = 1.0401
 
 [Prereqs]
 Any::Moose                 = 0

lib/Net/OpenStack/Compute.pm

@@ -121,7 +121,7 @@ sub create_image {
         }),
     );
     _check_res($res);
-    return from_json($res->content);
+    return 1;
 }
 
 sub delete_image {