Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:12.2
pilot-link
pilot-link-0.12.5-perl514.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File pilot-link-0.12.5-perl514.patch of Package pilot-link
--- bindings/Perl/Pilot.xs 2011-05-23 13:30:21.965011012 +0200 +++ bindings/Perl/Pilot.xs 2011-05-23 13:31:37.104011016 +0200 @@ -160,7 +160,7 @@ #define pack_dbinfo(arg, var, failure) { \ if (failure < 0) { \ - arg = &sv_undef; \ + arg = &PL_sv_undef; \ self->errnop = failure; \ } else { \ HV * i = newHV(); \ @@ -213,15 +214,15 @@ var.createDate = (s = hv_fetch(i, "createDate", 10, 0)) ? SvIV(*s) : 0;\ var.modifyDate = (s = hv_fetch(i, "modifyDate", 10, 0)) ? SvIV(*s) : 0;\ var.backupDate = (s = hv_fetch(i, "backupDate", 10, 0)) ? SvIV(*s) : 0;\ - if ((s = hv_fetch(i, "name", 4, 0)) ? SvPV(*s,na) : 0) \ - strncpy(var.name, SvPV(*s, na), sizeof(var.name)); \ + if ((s = hv_fetch(i, "name", 4, 0)) ? SvPV_nolen(*s) : 0) \ + strncpy(var.name, SvPV_nolen(*s), sizeof(var.name)); \ } else {\ croak("argument is not a hash reference"); \ } #define pack_userinfo(arg, var, failure) { \ if (failure < 0) { \ - arg = &sv_undef; \ + arg = &PL_sv_undef; \ self->errnop = failure; \ } else { \ HV * i = newHV(); \ @@ -245,8 +246,8 @@ var.lastSyncPC = (s = hv_fetch(i, "lastSyncPC", 10, 0)) ? SvIV(*s) : 0;\ var.lastSyncDate = (s = hv_fetch(i, "lastSyncDate", 12, 0)) ? SvIV(*s) : 0;\ var.successfulSyncDate = (s = hv_fetch(i, "successfulSyncDate", 18, 0)) ? SvIV(*s) : 0;\ - if ((s = hv_fetch(i, "name", 4, 0)) ? SvPV(*s,na) : 0)\ - strncpy(var.username, SvPV(*s, na), sizeof(var.username));\ + if ((s = hv_fetch(i, "name", 4, 0)) ? SvPV_nolen(*s) : 0)\ + strncpy(var.username, SvPV_nolen(*s), sizeof(var.username));\ } else {\ croak("argument is not a hash reference");\ } @@ -286,7 +287,7 @@ }\ } else {\ self->errnop = result;\ - PUSHs(&sv_undef);\ + PUSHs(&PL_sv_undef);\ } #define PackSI\ @@ -328,7 +329,7 @@ }\ } else {\ self->errnop = result;\ - PUSHs(&sv_undef);\ + PUSHs(&PL_sv_undef);\ } #define PackRecord {\ @@ -420,7 +421,7 @@ }\ } else {\ self->errnop = result;\ - PUSHs(&sv_undef);\ + PUSHs(&PL_sv_undef);\ } #define PackResource\ @@ -472,7 +473,7 @@ }\ } else {\ self->errnop = result;\ - PUSHs(&sv_undef);\ + PUSHs(&PL_sv_undef);\ } #define PackPref\ @@ -535,7 +536,7 @@ croak("Unable to create resource");\ } else {\ self->errnop = result;\ - PUSHs(&sv_undef);\ + PUSHs(&PL_sv_undef);\ } void doUnpackCategory(HV * self, struct CategoryAppInfo * c) @@ -575,7 +576,7 @@ if ((s = hv_fetch(self, "categoryName", 12, 0)) && SvOK(*s) && SvRV(*s) && (SvTYPE(av=(AV*)SvRV(*s))==SVt_PVAV)) for (i=0;i<16;i++) - strncpy(c->name[i], (s=av_fetch(av, i, 0)) ? SvPV(*s,na) : "", 16); + strncpy(c->name[i], (s=av_fetch(av, i, 0)) ? SvPV_nolen(*s) : "", 16); else for (i=0;i<16;i++) strcpy(c->name[i], ""); @@ -601,7 +602,7 @@ int SvList(SV * arg, char **list) { int i; - char * str = SvPV(arg, na); + char * str = SvPV_nolen(arg); for (i=0;list[i];i++) if (strcasecmp(list[i], str)==0) return i; @@ -780,14 +781,14 @@ croak("Invalid advance unit %d encountered", u); } } else { - if (strEQ(SvPV(*s, na), "minutes")) + if (strEQ(SvPV_nolen(*s), "minutes")) u = 0; - else if (strEQ(SvPV(*s, na), "hours")) + else if (strEQ(SvPV_nolen(*s), "hours")) u = 1; - else if (strEQ(SvPV(*s, na), "days")) + else if (strEQ(SvPV_nolen(*s), "days")) u = 2; else - croak("Invalid advance unit encountered"); + croak("Invalid advance unit %d encountered", u); } a.advanceUnits = u; if (a.advance > 254) @@ -849,10 +850,10 @@ } } - a.description = (s = hv_fetch(h, "description", 11, 0)) ? SvPV(*s,na) : 0; + a.description = (s = hv_fetch(h, "description", 11, 0)) ? SvPV_nolen(*s) : 0; if (!a.description) croak("appointments must contain a description"); - a.note = (s = hv_fetch(h, "note", 4, 0)) ? SvPV(*s,na) : 0; + a.note = (s = hv_fetch(h, "note", 4, 0)) ? SvPV_nolen(*s) : 0; if (pack_Appointment(&a, &pibuf, datebook_v1) < 0) { croak("pack_Appointment failed"); @@ -896,7 +897,7 @@ } SvPV(record,len); - if (unpack_AppointmentAppInfo(&a, (CPTR)SvPV(record, na), len)>0) { + if (unpack_AppointmentAppInfo(&a, (CPTR)SvPV_nolen(record), len)>0) { doUnpackCategory(ret, &a.category); @@ -1022,8 +1023,8 @@ a.indefinite = 1; } - a.description = (s = hv_fetch(h, "description", 11, 0)) ? SvPV(*s,na) : 0; - a.note = (s = hv_fetch(h, "note", 4, 0)) ? SvPV(*s,na) : 0; + a.description = (s = hv_fetch(h, "description", 11, 0)) ? SvPV_nolen(*s) : 0; + a.note = (s = hv_fetch(h, "note", 4, 0)) ? SvPV_nolen(*s) : 0; if (pack_ToDo(&a, &pibuf, todo_v1) < 0) { croak("pack_ToDo failed"); @@ -1064,7 +1065,7 @@ } SvPV(record,len); - if (unpack_ToDoAppInfo(&a, (CPTR)SvPV(record, na), len)>0) { + if (unpack_ToDoAppInfo(&a, (CPTR)SvPV_nolen(record), len)>0) { doUnpackCategory(ret, &a.category); @@ -1159,7 +1160,7 @@ hv_store(ret, "entry", 5, newRV_noinc((SV*)e), 0); for (i=0;i<19;i++) { - av_push(e, a.entry[i] ? newSVpv(a.entry[i],0) : &sv_undef); + av_push(e, a.entry[i] ? newSVpv(a.entry[i],0) : &PL_sv_undef); } hv_store(ret, "showPhone", 9, newSViv(a.showPhone), 0); @@ -1199,7 +1200,7 @@ if ((s = hv_fetch(h, "entry", 5, 0)) && SvOK(*s) && SvRV(*s) && (SvTYPE(av=(AV*)SvRV(*s))==SVt_PVAV)) for (i=0;i<19;i++) - a.entry[i] = ((s=av_fetch(av, i, 0)) && SvOK(*s)) ? SvPV(*s,na) : 0; + a.entry[i] = ((s=av_fetch(av, i, 0)) && SvOK(*s)) ? SvPV_nolen(*s) : 0; else for (i=0;i<19;i++) a.entry[i] = 0; @@ -1248,8 +1249,7 @@ } SvPV(record,len); - if (unpack_AddressAppInfo(&a, (CPTR)SvPV(record, na), len)>0) { - + if (unpack_AddressAppInfo(&a, (CPTR)SvPV_nolen(record), len)>0) { doUnpackCategory(ret, &a.category); e = newAV(); @@ -1308,13 +1308,13 @@ a.sortByCompany = (s = hv_fetch(h, "sortByCompany", 13, 0)) ? SvIV(*s) : 0; if ((s = hv_fetch(h, "label", 5, 0)) && SvOK(*s) && SvRV(*s) && (SvTYPE(av=(AV*)SvRV(*s))==SVt_PVAV)) - for (i=0;i<22;i++) strncpy(a.labels[i], (s=av_fetch(av, i, 0)) ? SvPV(*s,na) : "", 16); + for (i=0;i<22;i++) strncpy(a.labels[i], (s=av_fetch(av, i, 0)) ? SvPV_nolen(*s) : "", 16); else for (i=0;i<22;i++) a.labels[i][0] = 0; for (i=0;i<22;i++) a.labels[i][15] = 0; if ((s = hv_fetch(h, "phoneLabel", 10, 0)) && SvOK(*s) && SvRV(*s) && (SvTYPE(av=(AV*)SvRV(*s))==SVt_PVAV)) - for (i=0;i<8;i++) strncpy(a.phoneLabels[i], (s=av_fetch(av, i, 0)) ? SvPV(*s,na) : "", 16); + for (i=0;i<8;i++) strncpy(a.phoneLabels[i], (s=av_fetch(av, i, 0)) ? SvPV_nolen(*s) : "", 16); else for (i=0;i<8;i++) a.phoneLabels[i][0] = 0; for (i=0;i<8;i++) a.phoneLabels[i][15] = 0; @@ -1395,7 +1395,7 @@ else { if ((s = hv_fetch(h, "text", 4, 0))) - a.text = SvPV(*s,na); + a.text = SvPV_nolen(*s); else a.text = 0; @@ -1437,7 +1437,7 @@ } SvPV(record,len); - if (unpack_MemoAppInfo(&a, (CPTR)SvPV(record, na), len)>0) { + if (unpack_MemoAppInfo(&a, (CPTR)SvPV_nolen(record), len)>0) { doUnpackCategory(ret, &a.category); @@ -1509,7 +1509,7 @@ SvPV(record,len); if (len > 0) { /* len == 0 if deleted flag is set */ - if (unpack_Expense(&e, (CPTR)SvPV(record, na), len)>0) { + if (unpack_Expense(&e, (CPTR)SvPV_nolen(record), len)>0) { hv_store(ret, "date", 4, newRV_noinc((SV*)tmtoav(&e.date)), 0); hv_store(ret, "type", 4, newSVlist(e.type,ExpenseTypeNames),0); @@ -1569,15 +1569,15 @@ avtotm((AV*)SvRV(*s), &e.date); else croak("expense record must contain date"); - if ((s = hv_fetch(h, "amount", 6, 0))) e.amount = SvPV(*s,na); + if ((s = hv_fetch(h, "amount", 6, 0))) e.amount = SvPV_nolen(*s); else e.amount = 0; - if ((s = hv_fetch(h, "vendor", 6, 0))) e.vendor = SvPV(*s,na); + if ((s = hv_fetch(h, "vendor", 6, 0))) e.vendor = SvPV_nolen(*s); else e.vendor = 0; - if ((s = hv_fetch(h, "city", 4, 0))) e.city = SvPV(*s,na); + if ((s = hv_fetch(h, "city", 4, 0))) e.city = SvPV_nolen(*s); else e.city = 0; - if ((s = hv_fetch(h, "attendess", 9, 0))) e.attendees = SvPV(*s,na); + if ((s = hv_fetch(h, "attendess", 9, 0))) e.attendees = SvPV_nolen(*s); else e.attendees = 0; - if ((s = hv_fetch(h, "note", 4, 0))) e.note = SvPV(*s,na); + if ((s = hv_fetch(h, "note", 4, 0))) e.note = SvPV_nolen(*s); else e.note = 0; len = pack_Expense(&e, mybuf, 0xffff); @@ -1618,7 +1618,7 @@ } SvPV(record,len); - if (unpack_ExpenseAppInfo(&e, (CPTR)SvPV(record, na), len)>0) { + if (unpack_ExpenseAppInfo(&e, (CPTR)SvPV_nolen(record), len)>0) { hv_store(ret, "sortOrder", 9, newSVlist(e.sortOrder,ExpenseSortNames),0); a = newAV(); @@ -1661,15 +1661,15 @@ HV * hv; if ((s=av_fetch(av, i, 0)) && SvOK(*s) && SvRV(*s) && (SvTYPE(hv=(HV*)SvRV(*s))==SVt_PVHV)) { if (s = hv_fetch(hv, "name", 4, 0)) { - strncpy(e.currencies[i].name, SvPV(*s, na), 16); + strncpy(e.currencies[i].name, SvPV_nolen(*s), 16); e.currencies[i].name[15] = 0; } if (s = hv_fetch(hv, "symbol", 6, 0)) { - strncpy(e.currencies[i].symbol, SvPV(*s, na), 4); + strncpy(e.currencies[i].symbol, SvPV_nolen(*s), 4); e.currencies[i].symbol[3] = 0; } if (s = hv_fetch(hv, "rate", 4, 0)) { - strncpy(e.currencies[i].rate, SvPV(*s, na), 8); + strncpy(e.currencies[i].rate, SvPV_nolen(*s), 8); e.currencies[i].rate[7] = 0; } } @@ -1717,7 +1717,7 @@ } SvPV(record,len); - if (unpack_ExpensePref(&a, (CPTR)SvPV(record, na), len)>0) { + if (unpack_ExpensePref(&a, (CPTR)SvPV_nolen(record), len)>0) { hv_store(ret, "unitOfDistance", 14, newSVlist(a.unitOfDistance, ExpenseDistanceNames), 0); hv_store(ret, "currentCategory", 15, newSViv(a.currentCategory), 0); @@ -1810,7 +1810,7 @@ SvPV(record,len); if (len > 0) { /* len == 0 if deleted flag is set */ - if (unpack_Mail(&a, (CPTR)SvPV(record, na), len)>0) { + if (unpack_Mail(&a, (CPTR)SvPV_nolen(record), len)>0) { if (a.subject) hv_store(ret, "subject", 7, newSVpv(a.subject,0), 0); if (a.from) hv_store(ret, "from", 4, newSVpv(a.from,0), 0); @@ -1857,14 +1857,14 @@ } else { - a.subject = (s = hv_fetch(h, "subject", 7, 0)) ? SvPV(*s,na) : 0; - a.from = (s = hv_fetch(h, "from", 4, 0)) ? SvPV(*s,na) : 0; - a.to = (s = hv_fetch(h, "to", 2, 0)) ? SvPV(*s,na) : 0; - a.cc = (s = hv_fetch(h, "cc", 2, 0)) ? SvPV(*s,na) : 0; - a.bcc = (s = hv_fetch(h, "bcc", 3, 0)) ? SvPV(*s,na) : 0; - a.replyTo = (s = hv_fetch(h, "replyTo", 7, 0)) ? SvPV(*s,na) : 0; - a.sentTo = (s = hv_fetch(h, "sentTo", 6, 0)) ? SvPV(*s,na) : 0; - a.body = (s = hv_fetch(h, "body", 4, 0)) ? SvPV(*s,na) : 0; + a.subject = (s = hv_fetch(h, "subject", 7, 0)) ? SvPV_nolen(*s) : 0; + a.from = (s = hv_fetch(h, "from", 4, 0)) ? SvPV_nolen(*s) : 0; + a.to = (s = hv_fetch(h, "to", 2, 0)) ? SvPV_nolen(*s) : 0; + a.cc = (s = hv_fetch(h, "cc", 2, 0)) ? SvPV_nolen(*s) : 0; + a.bcc = (s = hv_fetch(h, "bcc", 3, 0)) ? SvPV_nolen(*s) : 0; + a.replyTo = (s = hv_fetch(h, "replyTo", 7, 0)) ? SvPV_nolen(*s) : 0; + a.sentTo = (s = hv_fetch(h, "sentTo", 6, 0)) ? SvPV_nolen(*s) : 0; + a.body = (s = hv_fetch(h, "body", 4, 0)) ? SvPV_nolen(*s) : 0; a.read = (s = hv_fetch(h, "read", 4, 0)) ? SvIV(*s) : 0; a.signature = (s = hv_fetch(h, "signature", 9, 0)) ? SvIV(*s) : 0; @@ -1912,7 +1912,7 @@ } SvPV(record,len); - if (unpack_MailAppInfo(&a, (CPTR)SvPV(record, na), len)>0) { + if (unpack_MailAppInfo(&a, (CPTR)SvPV_nolen(record), len)>0) { doUnpackCategory(ret, &a.category); @@ -1988,7 +1988,7 @@ } SvPV(record,len); - if (unpack_MailSyncPref(&a, (CPTR)SvPV(record, na), len)>0) { + if (unpack_MailSyncPref(&a, (CPTR)SvPV_nolen(record), len)>0) { hv_store(ret, "syncType", 8, newSVlist(a.syncType, MailSyncTypeNames), 0); hv_store(ret, "getHigh", 7, newSViv(a.getHigh), 0); @@ -2032,9 +2032,9 @@ a.getContaining = (s=hv_fetch(h,"getContaining",13,0)) ? SvIV(*s) : 0; a.truncate = (s=hv_fetch(h,"truncate",8,0)) ? SvIV(*s) : 0; - a.filterTo = (s=hv_fetch(h,"filterTo",8,0)) ? SvPV(*s,na) : 0; - a.filterFrom = (s=hv_fetch(h,"filterFrom",10,0)) ? SvPV(*s,na) : 0; - a.filterSubject = (s=hv_fetch(h,"filterSubject",13,0)) ? SvPV(*s,na) : 0; + a.filterTo = (s=hv_fetch(h,"filterTo",8,0)) ? SvPV_nolen(*s) : 0; + a.filterFrom = (s=hv_fetch(h,"filterFrom",10,0)) ? SvPV_nolen(*s) : 0; + a.filterSubject = (s=hv_fetch(h,"filterSubject",13,0)) ? SvPV_nolen(*s) : 0; len = pack_MailSyncPref(&a, mybuf, 0xffff); @@ -2072,7 +2072,7 @@ } SvPV(record,len); - if (unpack_MailSignaturePref(&a, (CPTR)SvPV(record, na), len)>0) { + if (unpack_MailSignaturePref(&a, (CPTR)SvPV_nolen(record), len)>0) { if (a.signature) hv_store(ret, "signature", 9, newSVpv(a.signature, 0), 0); @@ -2098,7 +2098,7 @@ RETVAL = record; else { - a.signature = (s=hv_fetch(h,"signature",9,0)) ? SvPV(*s,na) : 0; + a.signature = (s=hv_fetch(h,"signature",9,0)) ? SvPV_nolen(*s) : 0; len = pack_MailSignaturePref(&a, mybuf, 0xffff); @@ -2128,7 +2128,7 @@ { STRLEN len; SvPV(msg, len); - RETVAL = pi_write(socket,SvPV(msg,na),len); + RETVAL = pi_write(socket,SvPV_nolen(msg),len); } SV * @@ -2145,7 +2145,7 @@ if (result >=0) RETVAL = newSVpvn((char *) pibuf.data, result); else - RETVAL = &sv_undef; + RETVAL = &PL_sv_undef; } OUTPUT: RETVAL @@ -2281,7 +2281,7 @@ croak("DBClasses doesn't exist"); if (SvOK(name)) { (void)SvPV(name,len); - s = hv_fetch(h, SvPV(name,na), len, 0); + s = hv_fetch(h, SvPV_nolen(name), len, 0); } if (!s) s = hv_fetch(h, "", 0, 0); @@ -2576,7 +2576,7 @@ { int result = dlp_ReadOpenDBInfo(self->socket, self->handle, &RETVAL); if (result < 0) { - RETVAL = newSVsv(&sv_undef); + RETVAL = newSVsv(&PL_sv_undef); self->errnop = result; } } @@ -2744,7 +2744,7 @@ result = dlp_WriteResource(self->socket, self->handle, type, id, c, len); if (result < 0) { self->errnop = result; - RETVAL = newSVsv(&sv_undef); + RETVAL = newSVsv(&PL_sv_undef); } else RETVAL = newSViv(result); } @@ -2797,7 +2797,7 @@ r = dlp_CloseDB(self->socket, self->handle); result = dlp_ReadAppPreference(self->socket, creator, id, backup, 0xFFFF, mybuf, &len, &version); if (pi_version(self->socket)< 0x101) - r = dlp_OpenDB(self->socket, self->dbcard, self->dbmode, SvPV(self->dbname,na), &self->handle); + r = dlp_OpenDB(self->socket, self->dbcard, self->dbmode, SvPV_nolen(self->dbname), &self->handle); ReturnReadPref(mybuf, len); } @@ -2821,10 +2821,10 @@ r = dlp_CloseDB(self->socket, self->handle); result = dlp_WriteAppPreference(self->socket, creator, id, backup, version, buf, len); if (pi_version(self->socket)< 0x101) - r = dlp_OpenDB(self->socket, self->dbcard, self->dbmode, SvPV(self->dbname,na), &self->handle); + r = dlp_OpenDB(self->socket, self->dbcard, self->dbmode, SvPV_nolen(self->dbname), &self->handle); if (result < 0) { self->errnop = result; - RETVAL = newSVsv(&sv_undef); + RETVAL = newSVsv(&PL_sv_undef); } else { RETVAL = newSViv(result); } @@ -2860,7 +2860,7 @@ result = dlp_WriteAppPreference(self->socket, creator, number, backup, version, buf, len); if (result < 0) { self->errnop = result; - RETVAL = newSVsv(&sv_undef); + RETVAL = newSVsv(&PL_sv_undef); } else { RETVAL = newSViv(result); } @@ -2903,7 +2903,7 @@ int result = dlp_GetSysDateTime(self->socket, &t); if (result < 0) { self->errnop = result; - RETVAL = newSVsv(&sv_undef); + RETVAL = newSVsv(&PL_sv_undef); } else RETVAL = newSViv(t); } @@ -2928,7 +2928,7 @@ int result = dlp_ReadSysInfo(self->socket, &si); if (result < 0) { self->errnop = result; - RETVAL = newSVsv(&sv_undef); + RETVAL = newSVsv(&PL_sv_undef); } else { HV * i = newHV(); hv_store(i, "romVersion", 10, newSViv(si.romVersion), 0);\ @@ -2950,7 +2950,7 @@ int result = dlp_ReadStorageInfo(self->socket, cardno, &c); if (result < 0) { self->errnop = result; - RETVAL = newSVsv(&sv_undef); + RETVAL = newSVsv(&PL_sv_undef); } else { HV * i = newHV(); hv_store(i, "card", 6, newSViv(c.card), 0);\ @@ -3036,7 +3036,7 @@ croak("Default PrefClass not defined"); PUSHMARK(sp); XPUSHs(newSVsv(*s)); - XPUSHs(&sv_undef); + XPUSHs(&PL_sv_undef); XPUSHs(sv_2mortal(newSVChar4(creator))); if (id) XPUSHs(id); @@ -3106,7 +3106,7 @@ result = dlp_OpenDB(self->socket, cardno, nummode, name, &handle); if (result<0) { self->errnop = result; - RETVAL = &sv_undef; + RETVAL = &PL_sv_undef; } else { int type; PDA__Pilot__DLP__DB * x = malloc(sizeof(PDA__Pilot__DLP__DB)); @@ -3155,7 +3155,7 @@ int result = dlp_CreateDB(self->socket, creator, type, cardno, flags, version, name, &handle); if (result<0) { self->errnop = result; - RETVAL = &sv_undef; + RETVAL = &PL_sv_undef; } else { PDA__Pilot__DLP__DB * x = malloc(sizeof(PDA__Pilot__DLP__DB)); SV * sv = newSViv((IV)(void*)x); @@ -3223,7 +3223,7 @@ result = dlp_WriteAppPreference(self->socket, creator, id, backup, version, buf, len); if (result < 0) { self->errnop = result; - RETVAL = newSVsv(&sv_undef); + RETVAL = newSVsv(&PL_sv_undef); } else { RETVAL = newSViv(result); } @@ -3247,7 +3247,7 @@ result = dlp_WriteAppPreference(self->socket, creator, number, backup, version, buf, len); if (result < 0) { self->errnop = result; - RETVAL = newSVsv(&sv_undef); + RETVAL = newSVsv(&PL_sv_undef); } else { RETVAL = newSViv(result); } @@ -3349,7 +3349,7 @@ else t = 0; result = dlp_FindDBInfo(self->socket, cardno, start, - SvOK(name) ? SvPV(name,na) : 0, + SvOK(name) ? SvPV_nolen(name) : 0, t, c, &info); pack_dbinfo(RETVAL, info, result); } @@ -3366,7 +3366,7 @@ unsigned long f; int result; if ((result = dlp_ReadFeature(self->socket, creator, number, &f))<0) { - RETVAL = newSVsv(&sv_undef); + RETVAL = newSVsv(&PL_sv_undef); self->errnop = result; } else { RETVAL = newSViv(f); @@ -3396,7 +3396,7 @@ } void -callApplication(self, creator, type, action, data=&sv_undef) +callApplication(self, creator, type, action, data=&PL_sv_undef) PDA::Pilot::DLP *self Char4 creator Char4 type @@ -3409,7 +3409,7 @@ int result; (void)SvPV(data,len); result = dlp_CallApplication(self->socket, creator, - type, action, len, SvPV(data,na), + type, action, len, SvPV_nolen(data), &retcode, &pibuf); EXTEND(sp, 2); if (result >= 0) { @@ -3418,7 +3418,7 @@ PUSHs(sv_2mortal(newSViv(retcode))); } } else - PUSHs(&sv_undef); + PUSHs(&PL_sv_undef); } int @@ -3529,7 +3529,7 @@ croak("DBClasses doesn't exist"); if (SvOK(name)) { (void)SvPV(name, len); - s = hv_fetch(h, SvPV(name, na), len, 0); + s = hv_fetch(h, SvPV_nolen(name), len, 0); } if (!s) s = hv_fetch(h, "", 0, 0); --- bindings/Perl/typemap 2000-10-28 02:23:48.000000000 +0200 +++ bindings/Perl/typemap 2011-05-23 13:47:06.716011058 +0200 @@ -50,9 +50,9 @@ T_RESULT if ($var < 0) { - sv_setsv($arg, &sv_no); + sv_setsv($arg, &PL_sv_no); self->errnop = $var; } else - sv_setsv($arg, &sv_yes); + sv_setsv($arg, &PL_sv_yes); T_PTROBJ sv_setref_pv($arg, \"${ntype}\", (void*)$var);
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor