X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/2ee88f01016d2541e1f47423d3e348014e311bc8..fc15ae8fb67c31ee845fb33ce00b1c24c4c1a908:/ext/B/B.xs?ds=sidebyside

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 23034c1..d1a3d7a 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1057,7 +1057,7 @@ LOOP_lastop(o)
 #define COP_file(o)	CopFILE(o)
 #define COP_filegv(o)	CopFILEGV(o)
 #define COP_cop_seq(o)	o->cop_seq
-#define COP_arybase(o)	o->cop_arybase
+#define COP_arybase(o)	CopARYBASE_get(o)
 #define COP_line(o)	CopLINE(o)
 #define COP_warnings(o)	o->cop_warnings
 #define COP_io(o)	o->cop_io