From: short <>
Date: Sun, 21 Sep 2003 12:50:45 +0000 (+0000)
Subject: Fixed building of Debian-native packages without any 'orig-*' archive.
X-Git-Tag: captive-0_9
X-Git-Url: http://git.jankratochvil.net/?p=macros.git;a=commitdiff_plain;h=refs%2Ftags%2Fcaptive-0_9_7

Fixed building of Debian-native packages without any 'orig-*' archive.
---

diff --git a/AutoGen.pm b/AutoGen.pm
index 652ac7b..09e2744 100644
--- a/AutoGen.pm
+++ b/AutoGen.pm
@@ -296,6 +296,7 @@ my($class,%args)=@_;
 		@subdirs=glob $glob;
 		confess "Invalid glob $glob: ".join(",",@subdirs) if 1!=@subdirs;
 		}
+	$base||=$subdirs[0];
 	rename $subdirs[0],$base or confess "$!";
 	_system(join(" ","cd ".$base.";dpkg-buildpackage",
 			"-rfakeroot",