+ catchup = !"perl -e ' \
+ use autodie qw(:all); \
+ if (@ARGV < 2) { \
+ print STDERR \"git catchup REMOTE REF ...\n\"; \
+ exit 2; \
+ } \
+ @c = (); $m = shift @ARGV; \
+ for my $r (@ARGV) { \
+ my ($p, $r) = $r =~ /^([+]*)(.*)$/; \
+ push @c, \"$p$m/$r:$r\"; \
+ } \
+ exec \"git\", \"push\", \".\", @c'"