Fix include lines in rename.pl

This commit is contained in:
Manuel Pégourié-Gonnard 2015-04-03 18:37:07 +02:00
parent f7d945f4eb
commit fb9f2a04f3

View File

@ -50,6 +50,13 @@ while( my $filename = shift )
my @out; my @out;
for my $line (@lines) { for my $line (@lines) {
if( $line =~ /#include/ ) {
$line =~ s/polarssl/mbedtls/;
$line =~ s/POLARSSL/MBEDTLS/;
push( @out, $line );
next;
}
my @words = ($line =~ /$token/g); my @words = ($line =~ /$token/g);
my $checkline = join '', @words; my $checkline = join '', @words;
if( $checkline eq $line ) { if( $checkline eq $line ) {