mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-26 21:41:27 -04:00
52 lines
1.7 KiB
Plaintext
52 lines
1.7 KiB
Plaintext
$NetBSD: patch-API.xs,v 1.2 2015/04/27 06:05:02 mef Exp $
|
|
|
|
Modification to be built with Perl 5.14 API.
|
|
|
|
--- API.xs.orig 2000-10-06 04:47:27.000000000 +0900
|
|
+++ API.xs 2015-02-08 22:52:28.000000000 +0900
|
|
@@ -195,7 +195,7 @@ avref2charptrptr(SV *avref)
|
|
for (ix_av = 0;ix_av <= avref_arraylen;ix_av++)
|
|
{
|
|
current_val = av_fetch((AV *)SvRV(avref),ix_av,0);
|
|
- tmp_cpp[ix_av] = StrDup(SvPV(*current_val,na));
|
|
+ tmp_cpp[ix_av] = StrDup(SvPV(*current_val,PL_na));
|
|
}
|
|
tmp_cpp[ix_av] = NULL;
|
|
|
|
@@ -226,7 +226,7 @@ avref2berptrptr(SV *avref)
|
|
New(1,tmp_ber[ix_av],1,struct berval);
|
|
current_val = av_fetch((AV *)SvRV(avref),ix_av,0);
|
|
|
|
- tmp_char = SvPV(*current_val,na);
|
|
+ tmp_char = SvPV(*current_val,PL_na);
|
|
val_len = SvCUR(*current_val);
|
|
|
|
Newz(1,tmp2,val_len+1,char);
|
|
@@ -368,7 +368,7 @@ parse1mod(SV *ldap_value_ref,char *ldap_
|
|
} else {
|
|
if (cont)
|
|
return NULL;
|
|
- if (strcmp(SvPV(ldap_value_ref,na),"") == 0)
|
|
+ if (strcmp(SvPV(ldap_value_ref,PL_na),"") == 0)
|
|
{
|
|
if (ldap_add_func != 1)
|
|
{
|
|
@@ -385,7 +385,7 @@ parse1mod(SV *ldap_value_ref,char *ldap_
|
|
ldap_current_mod->mod_op = LDAP_MOD_REPLACE;
|
|
}
|
|
New(1,ldap_current_mod->mod_values,2,char *);
|
|
- ldap_current_mod->mod_values[0] = StrDup(SvPV(ldap_value_ref,na));
|
|
+ ldap_current_mod->mod_values[0] = StrDup(SvPV(ldap_value_ref,PL_na));
|
|
ldap_current_mod->mod_values[1] = NULL;
|
|
}
|
|
}
|
|
@@ -1718,7 +1718,7 @@ ldap_url_parse(url)
|
|
hv_store(FullHash,options_key,strlen(options_key),options,0);
|
|
ldap_free_urldesc(realcomp);
|
|
} else {
|
|
- RETVAL = &sv_undef;
|
|
+ RETVAL = &PL_sv_undef;
|
|
}
|
|
}
|
|
OUTPUT:
|