[Bps-public-commit] SD branch, master, updated. fce493ca7ac6129493ea3a38ebece5233f14423e

[sunnavy at bestpractical.com]

The branch, master has been updated
       via  fce493ca7ac6129493ea3a38ebece5233f14423e (commit)
      from  03d81ccb794e7ba05ddf3570ffdb1f3d9ef94d5f (commit)

Summary of changes:
 lib/App/SD/Replica/gcode.pm |   12 ++++++++++--
 1 files changed, 10 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit fce493ca7ac6129493ea3a38ebece5233f14423e
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Fri Aug 28 09:17:40 2009 +0800

    gcode fix: we do *not* even transfer email and password to Net::Google::Code even we have them

diff --git a/lib/App/SD/Replica/gcode.pm b/lib/App/SD/Replica/gcode.pm
index 90a1974..63d286a 100644
--- a/lib/App/SD/Replica/gcode.pm
+++ b/lib/App/SD/Replica/gcode.pm
@@ -35,7 +35,6 @@ sub foreign_username { return shift->gcode->email(@_) }
 
 sub BUILD {
     my $self = shift;
-
     # Require rather than use to defer load
     require Net::Google::Code;
 
@@ -48,9 +47,18 @@ sub BUILD {
         $userinfo =~ s/\@$//;
         ( $email, $password ) = split /:/, $userinfo;
         ( undef, $password ) = $self->prompt_for_login( "gcode:$project", $email ) unless $password;
+        $self->gcode(
+            Net::Google::Code->new(
+                project  => $self->project,
+                email    => $email,
+                password => $password,
+            )
+        );
+    }
+    else {
+        $self->gcode( Net::Google::Code->new( project => $self->project ) );
     }
 
-    $self->gcode( Net::Google::Code->new( project => $self->project));
     $self->gcode->load();
 }
 

-----------------------------------------------------------------------