mirror/mbedtls
1
0
Fork 0
mirror of https://github.com/Mbed-TLS/mbedtls.git synced 2025-04-24 15:02:55 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix embarrassing mistake in rename.pl

Browse Source
This commit is contained in:
Manuel Pégourié-Gonnard 2015-04-10 11:19:10 +02:00
parent eed55a4d51
commit 2aa81ccedb
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
scripts/rename.pl
View File

@ -11,7 +11,7 @@ use open qw(:std utf8);
my $usage = "Usage: $0 [-f datafile] [-s] [--] [filenames...]\n"; my $usage = "Usage: $0 [-f datafile] [-s] [--] [filenames...]\n";
(my $datafile = $0) =~ s/(rename-1\.3-2\.0)\.pl$/data_files\/$1.txt/; (my $datafile = $0) =~ s/rename.pl$/data_files\/rename-1.3-2.0.txt/;
my $do_strings = 0; my $do_strings = 0;
while( @ARGV && $ARGV[0] =~ /^-/ ) { while( @ARGV && $ARGV[0] =~ /^-/ ) {
@ -27,16 +27,18 @@ while( @ARGV && $ARGV[0] =~ /^-/ ) {
} }
} }
open my $nfh, '<', $datafile or die "Could not read $datafile\n";
my @names = <$nfh>;
close $nfh or die;
my %subst; my %subst;
for my $name (@names) { open my $nfh, '<', $datafile or die "Could not read $datafile\n";
chomp $name; my $ident = qr/[_A-Za-z][_A-Za-z0-9]*/;
my ($old, $new) = split / /, $name; while( my $line = <$nfh> ) {
chomp $line;
my ( $old, $new ) = ( $line =~ /^($ident)\s+($ident)$/ );
if( ! $old || ! $new ) {
die "$0: $datafile:$.: bad input '$line'\n";
}
$subst{$old} = $new; $subst{$old} = $new;
} }
close $nfh or die;
my $string = qr/"(?:\\.|[^\\"])*"/; my $string = qr/"(?:\\.|[^\\"])*"/;
my $space = qr/\s+/; my $space = qr/\s+/;