Some signals are more real than others

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index c541fd1..ac1311d 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4630,7 +4630,7 @@ Used by C<xsubpp> to hook up XSUBs as Perl subs.
 CV *
 Perl_newXS(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename)
 {
-    GV *gv = gv_fetchpv(name ? name :
+    GV * const gv = gv_fetchpv(name ? name :
                        (PL_curstash ? "__ANON__" : "__ANON__::__ANON__"),
                        GV_ADDMULTI, SVt_PVCV);
     register CV *cv;