---
 scripts/dpkg-source.pl |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

Index: dpkg-1.14.5ubuntu3/scripts/dpkg-source.pl
===================================================================
--- dpkg-1.14.5ubuntu3.orig/scripts/dpkg-source.pl	2007-08-16 19:58:43.000000000 +0000
+++ dpkg-1.14.5ubuntu3/scripts/dpkg-source.pl	2007-08-16 19:59:04.000000000 +0000
@@ -334,17 +334,17 @@
     my $basename = $sourcepackage.'_'.$upstreamversion;
     my $basedirname = $basename;
     $basedirname =~ s/_/-/;
 
     # check that Maintainer/XSBC-Original-Maintainer comply to
     # https://wiki.ubuntu.com/DebianMaintainerField
     if ($version =~ /ubuntu/) {
 	if ($fi{'C Maintainer'} !~ /ubuntu/) {
-	    if ($ENV{'DEBEMAIL'} =~ /ubuntu/) {
+	    if (defined $ENV{'DEBEMAIL'} && $ENV{'DEBEMAIL'} =~ /ubuntu/) {
 		&error(_g('Version number suggests Ubuntu changes, but Maintainer: does not have Ubuntu address'));
 	    } else {
 		warning(_g('Version number suggests Ubuntu changes, but Maintainer: does not have Ubuntu address'));
 	    }
 	}
 	unless ($fi{'C Xsbc-Original-Maintainer'}) {
 	    warning(_g('Version number suggests Ubuntu changes, but there is no XSBC-Original-Maintainer field'));
 	}