+sub check_git_status
+{
+ open(IN, '-|', 'git status') or die $!;
+ my $status = join('', <IN>);
+ close IN;
+ my $is_clean = $status =~ /\nnothing to commit \(working directory clean\)/;
+ my($starting_branch) = $status =~ /^# On branch (.+)\n/;
+ ($status, $is_clean, $starting_branch);
+}
+