diff options
Diffstat (limited to 'regression-testing/tests/phrase.ptable-filtering/filter-stderr.pl')
-rwxr-xr-x | regression-testing/tests/phrase.ptable-filtering/filter-stderr.pl | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/regression-testing/tests/phrase.ptable-filtering/filter-stderr.pl b/regression-testing/tests/phrase.ptable-filtering/filter-stderr.pl deleted file mode 100755 index c48a43f55..000000000 --- a/regression-testing/tests/phrase.ptable-filtering/filter-stderr.pl +++ /dev/null @@ -1,29 +0,0 @@ -#!/usr/bin/perl -$x=0; -while (<>) { - chomp; - - if (/^\[.* ; 2-2\]$/o) { - my @lines; - my $done = 0; - while (!$done) { - $x = <>; - if ($x =~ /^\s*$/o) { $done = 1; } else { - chomp $x; - $x =~ s/^\s+//o; - push @lines, $x; - } - } - my $c = 0; - foreach my $x (sort @lines) { - $c++; - print "TRANSLATION_OPTION_$c=$x\n"; - } - } - - next unless /^BEST TRANSLATION:/; - s/^BEST TRANSLATION:\s*//; - s/\s*\[111+.*$//; - $x++; - print "TRANSLATION_$x = $_\n"; -} |