From 91922d68b35cc4e85b24935290d49a48dc9c638d Mon Sep 17 00:00:00 2001
From: Justin Davis <jrcd83@gmail.com>
Date: Wed, 6 Jun 2012 12:59:42 -0400
Subject: Module::Build dists were totally borked.

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

(limited to 'preps/perl.d/perl-dist')

diff --git a/preps/perl.d/perl-dist b/preps/perl.d/perl-dist
index fd5c216..4431f77 100755
--- a/preps/perl.d/perl-dist
+++ b/preps/perl.d/perl-dist
@@ -371,6 +371,8 @@ sub printdata
 sub writepb
 {
 	my($ddir) = @_;
+
+	print STDERR "DBG: \$ddir = {$ddir}\n";
 	my $dtype = (-f "$ddir/Build.PL" ? "MB" : "MM");
 	if(system $PBPROG => $dtype){
 		return $? >> 8;
@@ -408,8 +410,7 @@ sub main
 	);
 
 	chdir $dir or die "chdir: $!";
-
-	my $ret = writepb($dir);
+	my $ret = writepb("$dir/src/$distdir");
 	if($ret){
 		print STDERR "$PROG: failed to write PKGBUILD: error $ret\n";
 		return 1;
-- 
cgit v1.2.3-24-g4f1b