summaryrefslogtreecommitdiff
path: root/xsutils.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-10-04 10:16:05 -0500
committerH.Merijn Brand <h.m.brand@xs4all.nl>2005-10-05 15:34:09 +0000
commit44f8325f4c9b3aaf24b47f4da7dce3e8170dcf42 (patch)
tree79ae96444551bc3a112d7601282f544236b6cdfb /xsutils.c
parent5f0135ebccd6cdb2441aabb64baa39aea87199d3 (diff)
downloadperl-44f8325f4c9b3aaf24b47f4da7dce3e8170dcf42.tar.gz
Re: [PATCH] Random constings and printf cleanup
Message-ID: <20051004201605.GA31682@petdance.com> p4raw-id: //depot/perl@25693
Diffstat (limited to 'xsutils.c')
-rw-r--r--xsutils.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/xsutils.c b/xsutils.c
index 848fc958d0..86620083af 100644
--- a/xsutils.c
+++ b/xsutils.c
@@ -132,10 +132,11 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs)
case 'e':
if (memEQ(name, "uniqu", 5)) {
if (SvTYPE(sv) == SVt_PVGV) {
- if (negated)
+ if (negated) {
GvUNIQUE_off(sv);
- else
+ } else {
GvUNIQUE_on(sv);
+ }
}
/* Hope this came from toke.c if not a GV. */
continue;