mirror of
https://bitbucket.org/theswgsource/client-tools-1.2.git
synced 2026-01-16 23:04:40 -05:00
11 lines
210 B
Perl
11 lines
210 B
Perl
while (<>)
|
|
{
|
|
chomp;
|
|
s/Accept\(a\) Edit\(e\) Diff\(d\) Merge \(m\) Skip\(s\) Help\(\?\) at: //;
|
|
if (/[1-9][0-9]* yours/ || /[1-9][0-9]* conflicting/)
|
|
{
|
|
print $last, "\n", $_, "\n", "\n";
|
|
}
|
|
$last = $_;
|
|
}
|