use Getopt::Long;
use Topbloke;
+fixme needs update to new metadata;
+
Getopt::Long::Configure(qw(bundling));
die "bad usage\n" unless @ARGV==1;
create_and_switch($baseref, 'base');
meta_and_stage('msg', "# not applicable\n");
-meta_and_stage('deps', "# not applicable\n");
-meta_and_stage('flags', '');
+meta_and_stage('deps', "");
+meta_and_stage('props', "patch $current->{Fullname}\n");
if ($current->{Kind} eq 'foreign') {
meta_and_stage('included', $current->{DepSpec}."\n");
- meta_and_stage('pflags', '');
+ meta_and_stage('pprops', '');
}
run_git(qw(commit -q -m), "tb-create $newpatch base");
stage_meta('msg');
meta_and_stage('deps', "$current->{DepSpec}\n");
-# we inherit empty flags from the base branch
+# we inherit correct props and pprops from the base branch
-flagsfile_add_flag('included',$newpatch);
+depsfile_add_dep('included','tb',$newpatch);
stage_meta('included');
run_git(qw(commit -q -m), "tb-create $newpatch tip");