From cbfa547f124d2e7e9b93d9e1f397b7eb7ec334ea Mon Sep 17 00:00:00 2001
From: =?utf8?q?J=C3=A9r=C3=B4me=20Quelin?= <jquelin@gmail.com>
Date: Tue, 20 Jan 2009 10:30:12 +0100
Subject: [PATCH] redirect std* only for development version

---
 bin/cpan2pkg | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/bin/cpan2pkg b/bin/cpan2pkg
index 363dd3b..e5d3724 100755
--- a/bin/cpan2pkg
+++ b/bin/cpan2pkg
@@ -20,14 +20,24 @@ use App::CPAN2Pkg::Curses;
 use Hook::Output::File;
 
 my $hook;
-$hook = Hook::Output::File->redirect(
-    stdout => '/tmp/cpan2pkg.stdout',
-    stderr => '/tmp/cpan2pkg.stderr',
-);
+my $dir = _get_development_root();
+if ( defined $dir ) {
+    $hook = Hook::Output::File->redirect(
+        stdout => "$dir/cpan2pkg.stdout",
+        stderr => "$dir/cpan2pkg.stderr",
+    );
+    warn '-' x 40 . "\n";
+}
 
 my $ui = App::CPAN2Pkg::Curses->spawn({modules=>\@ARGV});
 $ui->mainloop;
 
 exit;
 
+sub _get_development_root {
+    my $dir = "$Bin/..";
+    return $dir if -d "$dir/.git";
+    return;
+}
+
 __END__
-- 
2.11.4.GIT