Current Path :
/
lib64
/
perl5
/
vendor_perl
/
auto
/
Net
/
SSLeay
/
Or
Select Your Path :
Upload File :
New :
File
Dir
//lib64/perl5/vendor_perl/auto/Net/SSLeay/make_form.al
# NOTE: Derived from blib/lib/Net/SSLeay.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Net::SSLeay; #line 1232 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/make_form.al)" ### ### Easy https manipulation routines ### sub make_form { my (@fields) = @_; my $form; while (@fields) { my ($name, $data) = (shift(@fields), shift(@fields)); $data =~ s/([^\w\-.\@\$ ])/sprintf("%%%2.2x",ord($1))/gse; $data =~ tr[ ][+]; $form .= "$name=$data&"; } chop $form; return $form; } # end of Net::SSLeay::make_form 1;
