Root password given only on returned object

[p5sagit/Oyster.git] / lib / Oyster / Provision / Rackspace.pm

diff --git a/lib/Oyster/Provision/Rackspace.pm b/lib/Oyster/Provision/Rackspace.pm
index ee2002a..10f92fd 100644 (file)
--- a/lib/Oyster/Provision/Rackspace.pm
+++ b/lib/Oyster/Provision/Rackspace.pm
@@ -58,8 +58,8 @@ sub create {
            },
       ],
    );
-   $server->create_server;
-   warn "Server root password: ", $server->adminpass, "\n";
+   my $newserver = $server->create_server;
+   warn "Server root password: ", $newserver->adminpass, "\n";
 
    do {
       $|=1;