Index: CPlusPlus.xxs
===================================================================
--- a/lib/core/src/perl/CPlusPlus.xxs	(.../releases/2.12/lib/core/src/perl/CPlusPlus.xxs)	(revision 11043)
+++ b/lib/core/src/perl/CPlusPlus.xxs	(.../trunk/lib/core/src/perl/CPlusPlus.xxs)	(revision 11043)
@@ -479,7 +479,7 @@
 
 int canned_container_access(pTHX_ SV *sv, MAGIC* mg, SV *nsv, const char *dummy, PM_svt_copy_klen_arg index)
 {
-   OPCODE opc=PL_op->op_type;
+   const OPCODE opc=PL_op ? PL_op->op_type : OP_AELEM;   // assume a plain array access when called directly from the callable library
    const container_vtbl* const t=(const container_vtbl*)mg->mg_virtual;
    char *obj=mg->mg_ptr, *it;
    const container_access_vtbl *acct=t->acc+(mg->mg_flags & value_read_only);