moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 15:48:49 -05:00
Code Issues 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");
}
$0 =~ s/\\/\//g;
$0 = substr($0, rindex($0, '/') + 1);
$0 =~ s@.*(/|\\)@@;
if ($opt_h) {
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";
@ -72,8 +71,7 @@ if ($opt_h) {
}
my $crt = $ARGV[0] || 'ca-bundle.crt';
my $txt = substr($url, rindex($url, '/') + 1);
$txt =~ s/\?.*//;
(my $txt = $url) =~ s@(.*/|\?.*)@@g;
my $resp;