|
@@ -28,7 +28,7 @@ use Dpkg::Gettext;
|
|
|
push (@INC, $dpkglibdir);
|
|
push (@INC, $dpkglibdir);
|
|
|
require 'controllib.pl';
|
|
require 'controllib.pl';
|
|
|
|
|
|
|
|
-# Called before a tarball is created, to prepate the tar directory.
|
|
|
|
|
|
|
+# Called before a tarball is created, to prepare the tar directory.
|
|
|
sub prep_tar {
|
|
sub prep_tar {
|
|
|
my $srcdir=shift;
|
|
my $srcdir=shift;
|
|
|
my $tardir=shift;
|
|
my $tardir=shift;
|
|
@@ -59,7 +59,7 @@ sub prep_tar {
|
|
|
}
|
|
}
|
|
|
if (! $clean) {
|
|
if (! $clean) {
|
|
|
print $status;
|
|
print $status;
|
|
|
- main::warnerror(_g("working directory is not clean"));
|
|
|
|
|
|
|
+ main::error(_g("uncommitted changed in working directory"));
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
# garbage collect the repo
|
|
# garbage collect the repo
|