From ac5650aa9a9972f6b5419871fcb3a1936ed7607a Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 19 Jan 2011 01:19:38 -0600
Subject: allow getting login info from .gitconfig too

---
 bin/git/git-hub | 26 ++++++++++++++++----------
 1 file changed, 16 insertions(+), 10 deletions(-)

(limited to 'bin/git')

diff --git a/bin/git/git-hub b/bin/git/git-hub
index c6edf50..5e3e5e0 100755
--- a/bin/git/git-hub
+++ b/bin/git/git-hub
@@ -22,13 +22,6 @@ sub new {
     my $class = shift;
     my @argv = @_;
 
-    open my $login_info, '<', "$ENV{HOME}/.github"
-        or die "couldn't get login information";
-    my $user  = <$login_info>;
-    chomp $user;
-    my $token = <$login_info>;
-    chomp $token;
-
     bless {
         user  => $user,
         token => $token,
@@ -185,10 +178,23 @@ sub _github {
     my $self = shift;
     my %opts = @_;
 
+    my $user = $ENV{USER};
+    my $token;
+
+    if (open my $login_info, '<', "$ENV{HOME}/.github") {
+        $user  = <$login_info>;
+        chomp $user;
+        $token = <$login_info>;
+        chomp $token;
+    }
+
     Net::GitHub::V2->new(
-        owner => $self->user,
-        login => $self->user,
-        token => $self->token,
+        (defined $user
+            ? (owner => $user, login => $user)
+            : ()),
+        (defined $token
+            ? (token => $token)
+            : ()),
         %opts,
     );
 }
-- 
cgit v1.2.3-54-g00ecf