generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Georg Horn's and my fixes to make it compile with 7.7

Browse Source
This commit is contained in:
Daniel Stenberg
2001-03-29 06:45:04 +00:00
parent 794d08a728
commit 34efa74a59
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
perl/Curl_easy/easy.xs
View File

@@ -252,19 +252,19 @@ CODE:
switch (option & CURLINFO_TYPEMASK) { switch (option & CURLINFO_TYPEMASK) {
case CURLINFO_STRING: { case CURLINFO_STRING: {
char * value = (char *)SvPV(ST(2), PL_na); char * value = (char *)SvPV(ST(2), PL_na);
RETVAL = curl_getinfo(curl, option, &value); RETVAL = curl_easy_getinfo(curl, option, &value);
sv_setpv(ST(2), value); sv_setpv(ST(2), value);
break; break;
} }
case CURLINFO_LONG: { case CURLINFO_LONG: {
long value = (long)SvIV(ST(2)); long value = (long)SvIV(ST(2));
RETVAL = curl_getinfo(curl, option, &value); RETVAL = curl_easy_getinfo(curl, option, &value);
sv_setiv(ST(2), value); sv_setiv(ST(2), value);
break; break;
} }
case CURLINFO_DOUBLE: { case CURLINFO_DOUBLE: {
double value = (double)SvNV(ST(2)); double value = (double)SvNV(ST(2));
RETVAL = curl_getinfo(curl, option, &value); RETVAL = curl_easy_getinfo(curl, option, &value);
sv_setnv(ST(2), value); sv_setnv(ST(2), value);
break; break;
} }