Commit b6191443 authored by Rene Ladan's avatar Rene Ladan
Browse files

devel/p5-Devel-BeginLift: Remove expired port

2026-08-01 devel/p5-Devel-BeginLift: uses hidden Perl functions that are hidden after 5.37.0
parent 40aa4e26
Loading
Loading
Loading
Loading
+1 −0
Original line number Diff line number Diff line
@@ -5543,3 +5543,4 @@ www/p5-Apache-DB||2026-08-02|Has expired: uses hidden Perl functions that are hi
devel/p5-Data-Thunk||2026-08-02|Removed: no updates in years, depends on expired devel/p5-Data-Swap
math/p5-Set-IntSpan-Fast-XS||2026-08-02|Removed: no updates in years, depends on expired devel/p5-Data-Swap
devel/p5-Data-Swap||2026-08-02|Has expired: uses hidden Perl functions that are hidden after 5.37.0
devel/p5-Devel-BeginLift||2026-08-02|Has expired: uses hidden Perl functions that are hidden after 5.37.0
+0 −1
Original line number Diff line number Diff line
@@ -2531,7 +2531,6 @@
    SUBDIR += p5-Devel-ArgNames
    SUBDIR += p5-Devel-Autoflush
    SUBDIR += p5-Devel-Backtrace
    SUBDIR += p5-Devel-BeginLift
    SUBDIR += p5-Devel-CallChecker
    SUBDIR += p5-Devel-Caller
    SUBDIR += p5-Devel-Caller-IgnoreNamespaces

devel/p5-Devel-BeginLift/Makefile

deleted100644 → 0
+0 −24
Original line number Diff line number Diff line
PORTNAME=	Devel-BeginLift
PORTVERSION=	0.001003
PORTREVISION=	1
CATEGORIES=	devel perl5
MASTER_SITES=	CPAN
PKGNAMEPREFIX=	p5-

MAINTAINER=	perl@FreeBSD.org
COMMENT=	Perl extension to make selected sub calls evaluate at compile time
WWW=		https://metacpan.org/release/Devel-BeginLift

BUILD_DEPENDS=	${RUN_DEPENDS} \
	p5-ExtUtils-Depends>0:devel/p5-ExtUtils-Depends
RUN_DEPENDS=	\
	p5-B-Hooks-OP-Check-EntersubForCV>=0.03:devel/p5-B-Hooks-OP-Check-EntersubForCV

USES=		perl5
USE_PERL5=	configure

BROKEN=         uses hidden Perl functions that are hidden after 5.37.0
DEPRECATED=	${BROKEN}
EXPIRATION_DATE=2026-08-01

.include <bsd.port.mk>

devel/p5-Devel-BeginLift/distinfo

deleted100644 → 0
+0 −2
Original line number Diff line number Diff line
SHA256 (Devel-BeginLift-0.001003.tar.gz) = 418e0f09747fa7eefb6b284c7f437b6d4c7f15592d8235df56573eb6796cf4eb
SIZE (Devel-BeginLift-0.001003.tar.gz) = 18974
+0 −44
Original line number Diff line number Diff line
--- BeginLift.xs.orig	2010-05-11 06:01:00 UTC
+++ BeginLift.xs
@@ -8,10 +8,6 @@
 
 #include "hook_op_check_entersubforcv.h"
 
-/* lifted from op.c */
-
-#define LINKLIST(o) ((o)->op_next ? (o)->op_next : linklist((OP*)o))
-
 #ifndef linklist
 # define linklist(o) THX_linklist(aTHX_ o)
 STATIC OP *THX_linklist(pTHX_ OP *o) {
@@ -24,9 +20,9 @@ STATIC OP *THX_linklist(pTHX_ OP *o) {
     o->op_next = LINKLIST(first);
     kid = first;
     for (;;) {
-      if (kid->op_sibling) {
-   kid->op_next = LINKLIST(kid->op_sibling);
-   kid = kid->op_sibling;
+      if (OpHAS_SIBLING(kid)) {
+   kid->op_next = LINKLIST(OpSIBLING(kid));
+   kid = OpSIBLING(kid);
       } else {
    kid->op_next = o;
    break;
@@ -61,7 +57,7 @@ STATIC OP *lift_cb(pTHX_ OP *o, CV *cv, 
     PUSHMARK(SP); /* push a mark for the arguments */
 
     /* push an arg for every sibling op */
-    for ( arg = curop->op_sibling; arg->op_sibling; arg = arg->op_sibling ) {
+    for ( arg = OpSIBLING(arg); OpHAS_SIBLING(arg); arg = OpSIBLING(arg) ) {
       XPUSHs(sv_bless(newRV_inc(newSViv(PTR2IV(arg))), gv_stashpv("B::LISTOP", 0)));
     }
 
@@ -96,7 +92,7 @@ STATIC OP *lift_cb(pTHX_ OP *o, CV *cv, 
 
     if (SvROK(sv) && sv_derived_from(sv, "B::OP")) {
       OP *new = INT2PTR(OP *,SvIV((SV *)SvRV(sv)));
-      new->op_sibling = NULL;
+      new->op_sibparent = NULL;
 
       /* FIXME this is bullshit */
       if ( (PL_opargs[new->op_type] & OA_CLASS_MASK) != OA_SVOP ) {
Loading