Make __SUB__ work in special blocks

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index 34b1097c11..b33aed946a 100644
--- a/op.c
+++ b/op.c
@@ -10404,7 +10404,7 @@ Perl_rpeep(pTHX_ register OP *o)
 	case OP_RUNCV:
 	    if (!(o->op_private & OPpOFFBYONE) && !CvCLONE(PL_compcv)) {
 		SV *sv;
-		if (CvUNIQUE(PL_compcv)) sv = &PL_sv_undef;
+		if (CvEVAL(PL_compcv)) sv = &PL_sv_undef;
 		else {
 		    sv = newRV((SV *)PL_compcv);
 		    sv_rvweaken(sv);