summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdgit13
1 files changed, 9 insertions, 4 deletions
diff --git a/dgit b/dgit
index cdf2e93..b188361 100755
--- a/dgit
+++ b/dgit
@@ -1374,7 +1374,9 @@ sub remove_stray_gits () {
$!=0; $?=0; close GITS or failedcmd @gitscmd;
}
-sub mktree_in_ud_from_only_subdir () {
+sub mktree_in_ud_from_only_subdir (;$) {
+ my ($raw) = @_;
+
# changes into the subdir
my (@dirs) = <*/.>;
die "@dirs ?" unless @dirs==1;
@@ -1384,10 +1386,13 @@ sub mktree_in_ud_from_only_subdir () {
remove_stray_gits();
mktree_in_ud_here();
- my ($format, $fopts) = get_source_format();
- if (madformat($format)) {
- rmtree '.pc';
+ if (!$raw) {
+ my ($format, $fopts) = get_source_format();
+ if (madformat($format)) {
+ rmtree '.pc';
+ }
}
+
runcmd @git, qw(add -Af);
my $tree=git_write_tree();
return ($tree,$dir);