return if $DOCONVERT;
- my $dir = $DONOR_IMPORT_DIR;
- runx 'rm', '-rf', $dir;
- runx 'mkdir', $dir;
+ my $idir = $DONOR_IMPORT_DIR;
+ runx 'rm', '-rf', $idir;
+ runx 'mkdir', $idir;
my @paths = sort keys %DONOR_REV_MAP;
- runx 'rsync', '-Rc', (map { "$DONOR_DIR/./$_" } @paths), $DONOR_IMPORT_DIR;
+ runx 'rsync', '-Rc', (map { "$DONOR_DIR/./$_" } @paths), $idir;
- my $mff = "$DONOR_IMPORT_DIR/$MAKEFILE_FRAGMENT";
+ my $mff = "$idir/$MAKEFILE_FRAGMENT";
write_makefile_fragment("$mff.new");
rename "$mff.new", "$mff";
## Stage updated files for commit.
- runx "git", "add", "-A", $dir;
+ runx "git", "add", "-A", $idir;
## Inspect the changed files. Notice whether we've actually changed or
## added files.
- chomp (my @diff = capturex "git", "diff-index", "--cached", "HEAD", $dir);
+ chomp (my @diff = capturex "git", "diff-index", "--cached", "HEAD", $idir);
my %changed = ();
my %new = ();
for my $line (@diff) {
or die "incomprehensible git-diff line `$line'";
my $path = ($3 eq "C" or $3 eq "R") ? $5 : $4;
my $old = $1;
- next unless $path =~ s{^$dir/}{};
+ next unless $path =~ s{^$idir/}{};
$changed{$path} = 1; $new{$path} = ($old !~ /[^0]/);
}
## Commit everything.
runx "git", "commit", "--edit", "--message", $msg,
- map { "$dir/$_" } keys %changed;
+ map { "$idir/$_" } keys %changed;
}
###--------------------------------------------------------------------------