work around Perl 5.42 bug - fix #551

mohawk2 · mohawk2 · commit ac7e9f10614e · 2026-02-18T11:09:37.000Z
diff --git a/Changes b/Changes
@@ -5,6 +5,7 @@
 - fixed $slice->inplace->*{lin,log}vals not updating $slice
 - magnover now always returns real (#546) - thanks @wlmb
 - fixes for rldseq, rldND, rldvec (#547 #548 #549 #550) - thanks @jo-37
+- work around Perl 5.42 bug (#551) - thanks @andk for report
 
 2.100 2025-03-27
 - fix Math function prototypes for GCC 15 (#528) - thanks @jplesnik for report
diff --git a/lib/PDL/Core/pdlperl.h b/lib/PDL/Core/pdlperl.h
@@ -54,7 +54,8 @@ static inline pdl *PDL_XS_pdlinit(pTHX_ char *objname, HV *bless_stash, SV *to_p
       clause1; \
       XSRETURN(nreturn); \
     } else { \
-      XSRETURN(0); \
+      if (GIMME_V == G_SCALAR) XSRETURN_UNDEF; /* GH#551 */ \
+      else XSRETURN(0); \
     }
 
 #define PDL_IS_INPLACE(in) ((in)->state & PDL_INPLACE)

Original file line number	Diff line number	Diff line change
`@@ -54,7 +54,8 @@ static inline pdl PDL_XS_pdlinit(pTHX_ char objname, HV bless_stash, SV to_p`
`54`	`54`	`clause1; \`
`55`	`55`	`XSRETURN(nreturn); \`
`56`	`56`	`} else { \`
`57`		`- XSRETURN(0); \`
	`57`	`+ if (GIMME_V == G_SCALAR) XSRETURN_UNDEF; /* GH#551 */ \`
	`58`	`+ else XSRETURN(0); \`
`58`	`59`	`}`
`59`	`60`
`60`	`61`	`#define PDL_IS_INPLACE(in) ((in)->state & PDL_INPLACE)`