Index: Dev/github/GitHubBackup.pm
===================================================================
--- Dev/github/GitHubBackup.pm	(revision 19233f5160338c3b319363f09f759ce8b9e7605c)
+++ Dev/github/GitHubBackup.pm	(revision b8d7413d5c8b859df4d7c7f52349b9112b4acc33)
@@ -58,5 +58,5 @@
         $self->{repos} = [
             GitHubBackup::Repository->new({
-                __super   => $self,
+                directory => sub {$self->directory},
                 full_name => "$account/$repository",
             })
@@ -82,5 +82,5 @@
         push @{$self->{repos}},
             GitHubBackup::Repository->new({
-                __super   => $self,
+                directory => sub {$self->directory},
                 full_name => $repos->{full_name},
                 clone_url => $repos->{clone_url},
@@ -103,4 +103,5 @@
 use File::chdir;
 
+
 sub new {
     my $class = shift;
@@ -115,8 +116,14 @@
 }
 
+sub directory {
+    my $self = shift;
+    
+    return $self->{directory}->();
+}
+
 sub clone_git {
     my $self = shift;
     
-    my $dir = $self->{__super}->directory .'/'. $self->{full_name};
+    my $dir = $self->directory .'/'. $self->{full_name};
     if (-d "$dir") {
         local $CWD = $dir;