mirror of
https://bitbucket.org/swgmasters/swg-src.git
synced 2026-01-15 23:04:54 -05:00
11 lines
210 B
Perl
Executable File
11 lines
210 B
Perl
Executable File
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 = $_;
|
|
}
|