mosesdecoder/cruise-control/shorten_info.pl

10 lines
103 B
Perl
Executable File

#!/usr/bin/perl
use strict;
use warnings;
while (<>) {
last if $_ =~ m/^diff --git/;
print $_;
}