This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A couple of (COP*)s that can actually be (const COP *)s.
authorNicholas Clark <nick@ccl4.org>
Tue, 28 Oct 2008 19:51:07 +0000 (19:51 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 28 Oct 2008 19:51:07 +0000 (19:51 +0000)
p4raw-id: //depot/perl@34621

cop.h

diff --git a/cop.h b/cop.h
index e64bb76..dae356d 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -298,8 +298,8 @@ struct block_format {
 
 #define PUSHSUB_BASE(cx)                                               \
        ENTRY_PROBE(GvENAME(CvGV(cv)),                                  \
-               CopFILE((COP*)CvSTART(cv)),                             \
-               CopLINE((COP*)CvSTART(cv)));                            \
+               CopFILE((const COP *)CvSTART(cv)),                      \
+               CopLINE((const COP *)CvSTART(cv)));                     \
                                                                        \
        cx->blk_sub.cv = cv;                                            \
        cx->blk_sub.olddepth = CvDEPTH(cv);                             \