come new version related code in perl.c is not enabled -- explain why
authorYves Orton <demerphq@dromedary.booking.com>
Sat, 27 Dec 2008 10:30:17 +0000 (11:30 +0100)
committerDavid Mitchell <davem@iabyn.com>
Thu, 26 Feb 2009 01:58:10 +0000 (01:58 +0000)
(cherry picked from commit 6f6ff2420de036411e29eb74a1ae78ec86161ad8)

perl.c

diff --git a/perl.c b/perl.c
index d0ac835..397db74 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1909,6 +1909,8 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
                        for (i = 1; i <= LOCAL_PATCH_COUNT; i++) {
                            if (PL_localpatches[i])
 #ifdef X_PERL_PATCHNUM
+/* this is ifdef'ed out, we would enable this if we want to transform 
+   "DEVEL" registered patches into the git name */
                                if (strEQ(PL_localpatches[i],"DEVEL"))
                                    Perl_sv_catpvf(aTHX_ opts_prog,"q%c\t%s\n%c,",
                                               0, STRINGIFY(PERL_PATCHNUM), 0);