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 (file)
--- 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} = [