mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2025-02-05 14:30:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

Replaced var manipulations with perlish hacks.

Browse Source
This commit is contained in:
Guenter Knauf 2011-04-14 01:27:39 +02:00
parent 996630d5ed
commit e84730948d
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/mk-ca-bundle.pl
View File

@ -56,8 +56,7 @@ if ($opt_i) {
print ("=" x 78 . "\n"); print ("=" x 78 . "\n");
} }
$0 =~ s/\\/\//g; $0 =~ s@.*(/|\\)@@;
$0 = substr($0, rindex($0, '/') + 1);
if ($opt_h) { if ($opt_h) {
printf("Usage:\t%s [-b] [-i] [-l] [-n] [-q] [-t] [-u] [-v] [<outputfile>]\n", $0); printf("Usage:\t%s [-b] [-i] [-l] [-n] [-q] [-t] [-u] [-v] [<outputfile>]\n", $0);
print "\t-b\tbackup an existing version of ca-bundle.crt\n"; print "\t-b\tbackup an existing version of ca-bundle.crt\n";
@ -72,8 +71,7 @@ if ($opt_h) {
} }
my $crt = $ARGV[0] || 'ca-bundle.crt'; my $crt = $ARGV[0] || 'ca-bundle.crt';
my $txt = substr($url, rindex($url, '/') + 1); (my $txt = $url) =~ s@(.*/|\?.*)@@g;
$txt =~ s/\?.*//;
my $resp; my $resp;