A basic --repo_dir now works again

[catagits/Gitalist.git] / lib / Gitalist / TraitFor / Script.pm

diff --git a/lib/Gitalist/TraitFor/Script.pm b/lib/Gitalist/TraitFor/Script.pm
index 17ad1f9..73e31b3 100644 (file)
--- a/lib/Gitalist/TraitFor/Script.pm
+++ b/lib/Gitalist/TraitFor/Script.pm
@@ -13,6 +13,14 @@ has repo_dir => (
     },
 );
 
+around run => sub {
+    my $orig = shift;
+    my $self = shift;
+    warn("Script repo dir" . $self->repo_dir);
+    local $ENV{GITALIST_REPO_DIR} = $self->repo_dir;
+    $self->$orig(@_);
+};
+
 1;
 
 =head1 NAME