+ if ($gitbranch eq "auto") {
+ $componentdistro=~/^(?:rhel|epel)-(\d+)$/ or die $componentdistro;
+ my $major=$1;
+ my @l=grep { m{^\s*origin/rhel-$major\.\d+\s*$} } split /\n/,readfile "cd $componentdir; git branch -r |";
+ sub minor
+ {
+ local $_=$_[0];
+ s{^\s*origin/rhel-\d+\.(\d+)\s*$}{$1} or die;
+ return $_;
+ }
+ @l=sort { minor($b) <=> minor($a); } @l;
+ $gitbranch=($l[0]=~m{^\s*origin/(.*?)\s*$})[0] or die;
+ spawn "cd $componentdir; git checkout $gitbranch";
+ }