This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
B::Concise was failing an assertion on index "foo", "foo";
[perl5.git] / ext / B / B.xs
index 14af877..380e4ed 100644 (file)
@@ -1620,6 +1620,18 @@ is_empty(gv)
     OUTPUT:
         RETVAL
 
+bool
+isGV_with_GP(gv)
+       B::GV   gv
+    CODE:
+#if PERL_VERSION >= 9
+       RETVAL = isGV_with_GP(gv) ? TRUE : FALSE;
+#else
+       RETVAL = TRUE; /* In 5.8 and earlier they all are.  */
+#endif
+    OUTPUT:
+       RETVAL
+
 void*
 GvGP(gv)
        B::GV   gv