Tidy up compiler warning spotted by Jerry Hedden.

p4raw-id: //depot/perl@33658

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 5d491b4..05ffcb2 100644 (file)
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -7,7 +7,7 @@
 #
 package B;
 
-our $VERSION = '1.20';
+our $VERSION = '1.21';
 
 use XSLoader ();
 require Exporter;

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 714ac4d..eca6f08 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1211,10 +1211,20 @@ LOOP_lastop(o)
 
 MODULE = B     PACKAGE = B::COP                PREFIX = COP_
 
+#if PERL_VERSION >= 11
+
+const char *
+COP_label(o)
+       B::COP  o
+
+#else
+
 char *
 COP_label(o)
        B::COP  o
 
+#endif
+
 char *
 COP_stashpv(o)
        B::COP  o