use IPC::System::Simple qw{runx capturex $EXITVAL};
use Data::Dumper;
+use POSIX;
my $DOCONVERT;
my $DONOR_VERSION = "UNKNOWN";
my $DONOR_REVISION = "UNKNOWN";
my $DONOR_DIR;
my $DONOR_IMPORT_DIR = "catacomb-import";
+my $RECIP_DIR = 'cat';
(my $PROG = $0) =~ s{^.*/}{};
note_path 'debian/copyright', undef;
+do { no autodie; mkdir $RECIP_DIR; }
+or $!==EEXIST or die "mkdir $RECIP_DIR: $!" if $DOCONVERT;
+
for my $f (@WANT_C) {
(my $base = $f) =~ s{^.*/}{};
note_path $f, $base;
- convert_c "$DONOR_DIR/$f", $base;
+ convert_c "$DONOR_DIR/$f", "$RECIP_DIR/$base";
}
for (my $i = 0; $i < @WANT_TEST; $i += 2) {
note_path $j, "$base-tests.in";
push @in, $pre . "$DONOR_DIR/$j";
}
- convert_test \@in, "$base-tests.in", $varmap;
+ convert_test \@in, "$RECIP_DIR/$base-tests.in", $varmap;
}
commit_changes() if !$DOCONVERT;