mbedtls/scripts/config.pl

#!/usr/bin/env perl
# Backward compatibility redirection
my $py = $0;
$py =~ s/\.pl$/.py/;
exec 'python3', $py, @ARGV;
print STDERR "$0: python3: $!\n";
exec 'python', $py, @ARGV;
print STDERR "$0: python: $!\n";
exit 127;
Use "#!/usr/bin/env perl" as shebang line. 2018-04-04 21:44:29 +00:00			`#!/usr/bin/env perl`
Replace config.pl by a redirection to config.py Keep config.pl in Perl in case people are running "perl config.pl". 2019-07-27 21:56:04 +00:00			`# Backward compatibility redirection`
			`my $py = $0;`
			`$py =~ s/\.pl$/.py/;`
Report an error if switching to Python fails 2019-07-29 21:42:50 +00:00			`exec 'python3', $py, @ARGV;`
			`print STDERR "$0: python3: $!\n";`
Compatibility redirect: if python3 is not available, try python 2019-09-05 18:29:22 +00:00			`exec 'python', $py, @ARGV;`
			`print STDERR "$0: python: $!\n";`
Report an error if switching to Python fails 2019-07-29 21:42:50 +00:00			`exit 127;`