cpet/freebsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Unbreak after recent PHP 5.3.2 update

Browse Source 
- Adopt port

Reported by:	pointyhat
Approved by:	portmgr (itetcu, erwin - blanket)
This commit is contained in:
Greg Larkin 2010-04-12 23:19:33 +00:00
parent 78d8fdeba7
commit b47bdb13a2
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=252619
2 changed files with 131 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lang/pecl-perl/Makefile
View File

@ -13,11 +13,9 @@ PKGNAMEPREFIX= pecl-
EXTRACT_SUFX= .tgz
DIST_SUBDIR= PECL
MAINTAINER= ports@FreeBSD.org
MAINTAINER= glarkin@FreeBSD.org
COMMENT= Embedded Perl
BROKEN= does not compile with php 5.3
USE_PHP= yes
USE_PHPIZE= yes
USE_PHPEXT= yes

138
lang/pecl-perl/files/patch-php_perl.c
View File

@ -1,11 +1,133 @@
--- php_perl.c.orig Sat Mar 3 18:01:30 2007
+++ php_perl.c Sat Mar 3 18:01:38 2007
@@ -1779,7 +1779,7 @@
perl_class_entry->get_iterator = php_perl_get_iterator;
--- ./php_perl.c.orig 2010-04-12 19:11:06.000000000 -0400
+++ ./php_perl.c 2010-04-12 19:16:41.000000000 -0400
@@ -340,14 +340,14 @@
{
SV* sv;
INIT_CLASS_ENTRY(perl_ce, "PerlException", NULL);
- perl_exception_class_entry = zend_register_internal_class_ex(&perl_ce, zend_exception_get_default(), NULL TSRMLS_CC);
+ perl_exception_class_entry = zend_register_internal_class_ex(&perl_ce, zend_exception_get_default(TSRMLS_C), NULL TSRMLS_CC);
- if ((zv->is_ref || Z_TYPE_P(zv) == IS_OBJECT || Z_TYPE_P(zv) == IS_ARRAY) &&
+ if ((Z_ISREF_P(zv) || Z_TYPE_P(zv) == IS_OBJECT || Z_TYPE_P(zv) == IS_ARRAY) &&
zend_hash_find(var_hash, (char*)zv, sizeof(zv), (void**)&sv) == SUCCESS) {
sv = *(SV**)sv;
SvREFCNT_inc(sv);
return sv;
}
sv = php_perl_zval_to_sv_noref(my_perl, zv, var_hash TSRMLS_CC);
- if (zv->is_ref || Z_TYPE_P(zv) == IS_OBJECT || Z_TYPE_P(zv) == IS_ARRAY) {
+ if (Z_ISREF_P(zv) || Z_TYPE_P(zv) == IS_OBJECT || Z_TYPE_P(zv) == IS_ARRAY) {
zend_hash_add(var_hash, (char*)zv, sizeof(zv), &sv, sizeof(SV*), NULL);
}
return sv;
@@ -390,7 +390,7 @@
SV* sv = (SV*)newRV((SV*)hv);
zval** zv_ptr;
return SUCCESS;
- if (zv->is_ref || Z_TYPE_P(zv) == IS_ARRAY) {
+ if (Z_ISREF_P(zv) || Z_TYPE_P(zv) == IS_ARRAY) {
zend_hash_add(var_hash, (char*)zv, sizeof(zv), &sv, sizeof(SV*), NULL);
}
@@ -420,7 +420,7 @@
SV* sv = (SV*)newRV((SV*)av);
zval** zv_ptr;
- if (zv->is_ref || Z_TYPE_P(zv) == IS_ARRAY) {
+ if (Z_ISREF_P(zv) || Z_TYPE_P(zv) == IS_ARRAY) {
zend_hash_add(var_hash, (char*)zv, sizeof(zv), &sv, sizeof(SV*), NULL);
}
@@ -480,9 +480,9 @@
FREE_ZVAL(zv);
}
if (Z_TYPE_PP(z) != IS_OBJECT) {
- (*z)->is_ref = 1;
+ Z_SET_ISREF_P((*z));
}
- (*z)->refcount++;
+ Z_ADDREF_P((*z));
return *z;
}
@@ -750,7 +750,7 @@
}
retval = php_perl_sv_to_zval(my_perl, obj->sv, NULL TSRMLS_CC);
/* ensure we're creating a temporary variable */
- if (retval) {retval->refcount = 0;}
+ if (retval) {Z_SET_REFCOUNT_P(retval, 0);}
return retval;
}
@@ -824,8 +824,8 @@
obj->context = PERL_SCALAR;
ALLOC_INIT_ZVAL(retval);
- retval->refcount = 0;
- retval->is_ref = 1;
+ Z_SET_REFCOUNT_P(retval, 0);
+ Z_SET_ISREF_P(retval);
retval->type = IS_OBJECT;
Z_OBJ_HT_P(retval) = &php_perl_proxy_handlers;
Z_OBJ_HANDLE_P(retval) = zend_objects_store_put(obj, php_perl_destructor, NULL, NULL TSRMLS_CC);
@@ -833,7 +833,7 @@
ALLOC_INIT_ZVAL(retval);
retval = php_perl_sv_to_zval(my_perl, *prop_val, retval TSRMLS_CC);
/* ensure we're creating a temporary variable */
- if (retval) {retval->refcount = 0;}
+ if (retval) {Z_SET_REFCOUNT_P(retval, 0);}
}
}
} else if (SvTYPE(sv) == SVt_PVHV) {
@@ -973,7 +973,7 @@
new_obj->properties = NULL;
ALLOC_INIT_ZVAL(new_object);
- new_object->refcount = 0;
+ Z_SET_REFCOUNT_P(new_object, 0);
new_object->type = IS_OBJECT;
new_object->value.obj.handlers = &php_perl_object_handlers;
new_object->value.obj.handle =
@@ -990,7 +990,7 @@
new_obj->properties = NULL;
ALLOC_INIT_ZVAL(new_object);
- new_object->refcount = 0;
+ Z_SET_REFCOUNT_P(new_object, 0);
new_object->type = IS_OBJECT;
new_object->value.obj.handlers = &php_perl_object_handlers;
new_object->value.obj.handle =
@@ -1007,7 +1007,7 @@
new_obj->properties = NULL;
ALLOC_INIT_ZVAL(new_object);
- new_object->refcount = 0;
+ Z_SET_REFCOUNT_P(new_object, 0);
new_object->type = IS_OBJECT;
new_object->value.obj.handlers = &php_perl_object_handlers;
new_object->value.obj.handle =
@@ -1085,15 +1085,15 @@
obj->context = PERL_SCALAR;
ALLOC_INIT_ZVAL(retval);
- retval->refcount = 0;
- retval->is_ref = 1;
+ Z_SET_REFCOUNT_P(retval, 0);
+ Z_SET_ISREF_P(retval);
retval->type = IS_OBJECT;
Z_OBJ_HT_P(retval) = &php_perl_proxy_handlers;
Z_OBJ_HANDLE_P(retval) = zend_objects_store_put(obj, php_perl_destructor, NULL, NULL TSRMLS_CC);
} else {
retval = php_perl_sv_to_zval(my_perl, sv, retval TSRMLS_CC);
/* ensure we're creating a temporary variable */
- if (retval) {retval->refcount = 0;}
+ if (retval) {Z_SET_REFCOUNT_P(retval, 0);}
}
}
@@ -1755,7 +1755,7 @@
zend_object_iterator *php_perl_get_iterator(zend_class_entry *ce, zval *object TSRMLS_DC)
{
zend_object_iterator *iterator = emalloc(sizeof(zend_object_iterator));
- object->refcount++;
+ Z_ADDREF_P(object);
iterator->data = (void*)object;
iterator->funcs = &php_perl_iterator_funcs;