From: Marco Fontani <MFONTANI@cpan.org>
Date: Sat, 20 Nov 2010 19:34:26 +0000 (+0000)
Subject: root pass only available on first reply, multiple IPs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FOyster.git;a=commitdiff_plain;h=2bfa70388eed3af4c975c7fb4ac88303342c2186

root pass only available on first reply, multiple IPs
---

diff --git a/lib/Oyster/Provision/Rackspace.pm b/lib/Oyster/Provision/Rackspace.pm
index 8d0ca3f..ee2002a 100644
--- a/lib/Oyster/Provision/Rackspace.pm
+++ b/lib/Oyster/Provision/Rackspace.pm
@@ -59,6 +59,7 @@ sub create {
       ],
    );
    $server->create_server;
+   warn "Server root password: ", $server->adminpass, "\n";
 
    do {
       $|=1;
@@ -71,8 +72,7 @@ sub create {
       }
    } while ( ( $server->status // '' ) ne 'ACTIVE' );
 
-   warn "Server public IP is:  ", ($server->public_address)[0], "\n";
-   warn "Server root password: ", $server->adminpass, "\n";
+   warn "Server public IP is: @{$server->public_address}\n";
 
    # Connect to server and execute installation routines?
    # Use Net::SSH?