This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make SvIsCOW honest about globs
[perl5.git] / ext / XS-APItest / APItest.xs
index acd1b5e..68533da 100644 (file)
@@ -2858,6 +2858,13 @@ CODE:
        HeVAL(entry) = NULL;
     }
 
+bool
+SvIsCOW(SV *sv)
+CODE:
+    RETVAL = SvIsCOW(sv);
+OUTPUT:
+    RETVAL
+
 MODULE = XS::APItest           PACKAGE = XS::APItest::Magic
 
 PROTOTYPES: DISABLE