From: Ken-ichi Mito <mitty@mitty.jp>
Date: Wed, 21 Aug 2013 00:37:11 +0000 (+0900)
Subject: utils::get returns '[]' while json_api gives no results
X-Git-Url: http://lab.mitty.jp/git/?a=commitdiff_plain;h=d51047ddd4c0c7471fe13ecbced75bf8f1e3acd6;p=lab.git

utils::get returns '[]' while json_api gives no results

 * GitHubBackup->repos gives '[]' if no repositories
---

diff --git a/Dev/github/GitHubBackup.pm b/Dev/github/GitHubBackup.pm
index d9d35a3..a821840 100644
--- a/Dev/github/GitHubBackup.pm
+++ b/Dev/github/GitHubBackup.pm
@@ -32,7 +32,7 @@ sub get {
     }
     
     my $page = 1;
-    my $data;
+    my $data = [];
     while(1) {
         my $result = json_api("$url?per_page=100&page=$page$parameters");
         if (ref($result) eq 'ARRAY' && scalar @$result > 0) {
@@ -103,6 +103,8 @@ sub repos {
     my $self = shift;
     return $self->{repos} if ($self->{repos});
     
+    $self->{repos} = [];
+    
     my $account = $self->account or croak "account is not set";
     if (my $repository = $self->repository) {
         $self->{repos} = [