diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2006-08-23 03:07:05 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-08-24 12:23:15 +0000 |
| commit | d5adc3a12662acc8bc057d4ab07a88843ba10e31 (patch) | |
| tree | 398a4e527190bfad96bbdc8c6a039f3f063686a7 /xsutils.c | |
| parent | 9f9736a1d14b921862a1b77740b0ec694b25aac9 (diff) | |
| download | perl-d5adc3a12662acc8bc057d4ab07a88843ba10e31.tar.gz | |
Don't promulgate Perl attributes
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <20060823100705.fb30e530d17747c2b054d625b8945d88.87c0ee9326.wbe@email.secureserver.net>
p4raw-id: //depot/perl@28753
Diffstat (limited to 'xsutils.c')
| -rw-r--r-- | xsutils.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -85,8 +85,8 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs) #endif case 6: switch (name[3]) { - case 'l': #ifdef CVf_LVALUE + case 'l': if (memEQ(name, "lvalue", 6)) { if (negated) CvFLAGS((CV*)sv) &= ~CVf_LVALUE; @@ -95,8 +95,8 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs) continue; } break; +#endif case 'k': -#endif /* defined CVf_LVALUE */ if (memEQ(name, "locked", 6)) { if (negated) CvFLAGS((CV*)sv) &= ~CVf_LOCKED; |