From 4d348ea123d6bed169d3f7d458398b173800cbb5 Mon Sep 17 00:00:00 2001
From: Justin Davis <jrcd83@gmail.com>
Date: Fri, 7 Oct 2011 17:11:26 -0400
Subject: Remove src/ dir from package dir each time.

---
 bin/metas/perl.d/perl-dist | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'bin')

diff --git a/bin/metas/perl.d/perl-dist b/bin/metas/perl.d/perl-dist
index a829bb9..e4af02d 100755
--- a/bin/metas/perl.d/perl-dist
+++ b/bin/metas/perl.d/perl-dist
@@ -356,9 +356,10 @@ sub chsrcdir
 {
 	my ($srcdir, $distfile) = @_;
 
-	unless(-d $srcdir) {
-		mkdir $srcdir or die "mkdir $srcdir: $!";
+	if (-e $srcdir) {
+		system("rm", "-r", $srcdir) == 0 or die "failed to rm $srcdir\n";
 	}
+	mkdir $srcdir or die "mkdir $srcdir: $!";
 	chdir($srcdir) or die "chdir $srcdir: $!";
 	unless(-f $distfile) {
 		symlink(catfile('..', $distfile), $distfile) or die "symlink $distfile: $!";
-- 
cgit v1.2.3-24-g4f1b