diff options
-rwxr-xr-x | dgit | 23 |
1 files changed, 13 insertions, 10 deletions
@@ -4938,6 +4938,18 @@ END printdone "build successful, results in $result\n" or die $!; } +sub midbuild_checkchanges () { + my $pat = changespat $version; + return if $rmchanges; + my @unwanted = map { s#^\.\./##; $_; } glob "../$pat"; + @unwanted = grep { $_ ne changespat $version,'source' } @unwanted; + fail <<END +changes files other than source matching $pat already present; building would result in ambiguity about the intended results. +Suggest you delete @unwanted. +END + if @unwanted; +} + sub postbuild_mergechanges_vanilla ($) { my ($wantsrc) = @_; if ($wantsrc == 1) { @@ -5072,16 +5084,7 @@ sub cmd_build_source { sub cmd_sbuild { build_source(); - my $pat = changespat $version; - if (!$rmchanges) { - my @unwanted = map { s#^\.\./##; $_; } glob "../$pat"; - @unwanted = grep { $_ ne changespat $version,'source' } @unwanted; - fail <<END -changes files other than source matching $pat already present; building would result in ambiguity about the intended results. -Suggest you delete @unwanted. -END - if @unwanted; - } + midbuild_checkchanges(); in_parent { if (act_local()) { stat_exists $dscfn or fail "$dscfn (in parent directory): $!"; |