fixing off-by-one error in listing

ironcamel · Dec 30, 2009 · e5e62ef · e5e62ef
1 parent 0e5e493
commit e5e62ef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/github b/examples/github
@@ -59,7 +59,7 @@ sub clone :Help(clone a github repository) {
     while ( not defined $chosen ) {
         print "Available repositories ($repo_count) :\n";
         foreach my $id ( 1 .. $repo_count ) {
-            my $repo = $c->stash->{repositories}->[$id];
+            my $repo = $c->stash->{repositories}->[$id - 1];
             print "   $id - " . $repo->{name} . ' (' . $repo->{description} . ') - by ' . $repo->{username} . "\n";
         }