develooper Front page | perl.perl5.porters | Postings from June 2001

[PATH] shared -> unique;

Thread Next
From:
Artur Bergman
Date:
June 26, 2001 07:14
Subject:
[PATH] shared -> unique;
Message ID:
002001c0fe4a$e623ba30$21000a0a@vogw2kdev
This patch changes shared to unique after Dougs suggestion. (Sorry I had lost that email and couldn't remeber if it was my
imaginiation or real).

Is this documented anywhere? On another note, how the heck are we refcounting these? It doesn't seem to be atomic refcounts.

Artur

diff -ur perl-current-copy/toke.c perl-current/toke.c
--- perl-current-copy/toke.c Sun Jun 24 21:27:12 2001
+++ perl-current/toke.c Sun Jun 24 21:35:43 2001
@@ -3091,7 +3091,7 @@
       else if (!PL_in_my && len == 6 && strnEQ(s, "method", len))
    CvMETHOD_on(PL_compcv);
 #ifdef USE_ITHREADS
-      else if (PL_in_my == KEY_our && len == 6 && strnEQ(s, "shared", len))
+      else if (PL_in_my == KEY_our && len == 6 && strnEQ(s, "unique", len))
    GvSHARED_on(cGVOPx_gv(yylval.opval));
 #endif
       /* After we've set the flags, it could be argued that
diff -ur perl-current-copy/xsutils.c perl-current/xsutils.c
--- perl-current-copy/xsutils.c Sun Jun 24 21:27:12 2001
+++ perl-current/xsutils.c Sun Jun 24 21:32:44 2001
@@ -85,7 +85,7 @@
       }
       break;
   case 's':
-      if (strEQ(name, "shared")) {
+      if (strEQ(name, "unique")) {
    if (negated)
        GvSHARED_off(CvGV((CV*)sv));
    else
@@ -102,7 +102,7 @@
               case 6:
   switch (*name) {
                   case 's':
-      if (strEQ(name, "shared")) {
+      if (strEQ(name, "unique")) {
                         /* toke.c has already marked as GvSHARED */
                         continue;
                     }
@@ -190,7 +190,7 @@
  if (cvflags & CVf_METHOD)
      XPUSHs(sv_2mortal(newSVpvn("method", 6)));
         if (GvSHARED(CvGV((CV*)sv)))
-     XPUSHs(sv_2mortal(newSVpvn("shared", 6)));
+     XPUSHs(sv_2mortal(newSVpvn("unique", 6)));
  break;
     default:
  break;



Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About