remove vestigal threadsv/threadsv_named
authorDavid Mitchell <davem@iabyn.com>
Fri, 19 Sep 2014 16:12:02 +0000 (17:12 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 19 Sep 2014 16:12:02 +0000 (17:12 +0100)
the threadsv op and the PL_threadsv_names var were part of the 5.005
threads model, long since removed. Remove some remaining references to
them.

dist/Safe/t/safeops.t
ext/B/B.pm
lib/B/Deparse.pm
lib/B/Deparse.t

index cc25bcb..cb37445 100644 (file)
@@ -446,7 +446,6 @@ egrent              endgrent
 getlogin       getlogin
 syscall                syscall
 lock           SKIP
-threadsv       SKIP
 setstate       SKIP
 method_named   $x->y()
 dor            $x // $y
index edeab59..d50a9d6 100644 (file)
@@ -556,8 +556,8 @@ C<"UNOP"> for example.
 
 =item threadsv_names
 
-In a perl compiled for threads, this returns a list of the special
-per-thread threadsv variables.
+This used to provide support for the old 5.005 threading module. It now
+does nothing.
 
 =back
 
index 0e7fa57..ab85acf 100644 (file)
@@ -3168,12 +3168,7 @@ sub loop_common {
            $ary = $self->deparse($ary, 1);
        }
        if (null $var) {
-           if (($enter->flags & OPf_SPECIAL) && ($] < 5.009)) {
-               # thread special var, under 5005threads
-               $var = $self->pp_threadsv($enter, 1);
-           } else { # regular my() variable
-               $var = $self->pp_padsv($enter, 1, 1);
-           }
+            $var = $self->pp_padsv($enter, 1, 1);
        } elsif ($var->name eq "rv2gv") {
            $var = $self->pp_rv2sv($var, 1);
            if ($enter->private & OPpOUR_INTRO) {
@@ -3342,13 +3337,6 @@ sub pp_padsv {
 sub pp_padav { pp_padsv(@_) }
 sub pp_padhv { pp_padsv(@_) }
 
-my @threadsv_names = B::threadsv_names;
-sub pp_threadsv {
-    my $self = shift;
-    my($op, $cx) = @_;
-    return $self->maybe_local($op, $cx, "\$" .  $threadsv_names[$op->targ]);
-}
-
 sub gv_or_padgv {
     my $self = shift;
     my $op = shift;
index 81f0f37..620d430 100644 (file)
@@ -982,11 +982,6 @@ print /a/u, s/b/c/u;
 # [perl #119807] s//\(3)/ge should not warn when deparsed (\3 warns)
 s/foo/\(3);/eg;
 ####
-# Test @threadsv_names under 5005threads
-foreach $' (1, 2) {
-    sleep $';
-}
-####
 # y///r
 tr/a/b/r;
 ####