Re: 'use threads::shared' noisy with -w

Message-Id: <20020510235227.J12298@fdgroup.com>

p4raw-id: //depot/perl@16572

1 files changed, 8 insertions, 0 deletions

diff --git a/xsutils.c b/xsutils.c
index f044b6e068..b924c481c3 100644
--- a/xsutils.c
+++ b/xsutils.c
@@ -116,6 +116,14 @@ modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs)
 	    switch ((int)len) {
 	    case 6:
 		switch (*name) {
+		case 's':
+		    if (strEQ(name, "shared")) {
+			if (negated)
+			    Perl_croak(aTHX_ "A variable may not be unshared");
+			SvSHARE(sv);
+                        continue;
+                    }
+		    break;
 		case 'u':
 		    if (strEQ(name, "unique")) {
 			if (SvTYPE(sv) == SVt_PVGV) {