yuzu-emu/mbedtls
1
0
Fork 0
mirror of https://github.com/yuzu-emu/mbedtls.git synced 2024-11-26 04:15:41 +01:00
Code Issues 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 $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;
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;
for my $name (@names) {
chomp $name;
my ($old, $new) = split / /, $name;
open my $nfh, '<', $datafile or die "Could not read $datafile\n";
my $ident = qr/[_A-Za-z][_A-Za-z0-9]*/;
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;
}
close $nfh or die;
my $string = qr/"(?:\\.|[^\\"])*"/;
my $space = qr/\s+/;