$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = qw(parse_branch_spec current_tb_branch run_git_1line
- setup_config);
+ setup_config check_no_unwanted_metadata);
%EXPORT_TAGS = ( );
@EXPORT_OK = qw();
}
die $! if OA->error;
die $! unless close OA;
}
-
}
print $newattrs "$path\tmerge=$want\n" or die $!;
}
}
}
+sub check_no_unwanted_metadata ($) {
+ my ($gitbranch) = @_;
+ open GIT, "-|", 'git', qw(ls-tree --name-status),
+ "$gitbranch:", qw(.topbloke/included .topbloke/flags)
+ or die $!;
+ while (<GIT>) {
+ chomp or die;
+ die "foreign unexpectedly contains $_\n";
+ }
+ GIT->error and die $!;
+ close GIT or die $!;
+}
+
1;
length($spec->{Date})==18 or die "partial date specified, not supported\n";
-fixme check foreign base branch for unwanted topbloke files
+check_no_unwanted_metadata('HEAD')
+ if $current->{Kind} ne 'tip';
my $newbranch = "$spec->{Email}\@$spec->{Domain}/$spec->{Date}/$spec->{Nick}";
printf "creating %s\n", $newbranch;
setup_config();
+