sub cmd_status () {
badusage "no arguments allowed" if @ARGV;
+ # todo: gdr status should print divergence info
+ # todo: gdr status should print upstream component(s) info
+ # todo: gdr should leave/maintain some refs with this kind of info ?
+
my $oldest = [ 0 ];
my $newest;
my $note = sub {