From 147279a1256f007b5fcff90f338af6d31ff0934c Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 21 Sep 2003 12:50:45 +0000
Subject: [PATCH] Fixed building of Debian-native packages without any 'orig-*'
 archive.

---
 AutoGen.pm | 1 +
 1 file changed, 1 insertion(+)

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