X-Git-Url: http://git.jankratochvil.net/?p=macros.git;a=blobdiff_plain;f=AutoGen.pm;h=09e274444b5a454567997c35c6b69e67ea0ade81;hp=652ac7b1327096f8e35550fab4c33d623080d88b;hb=refs%2Ftags%2Fcaptive-1_1_2;hpb=651a872089fa28a165785aa197afe695a487a175

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",