blob: 26dc274418fd2b5eb1507dfa7e8462db1c077d0d (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
#!/usr/local/bin/perl
while (<>) {
print &removefinal($_);
}
sub removefinal {
local($_) = @_;
$_ =~ s/public final Token getNextToken/public Token getNextToken/;
return $_;
}
|