No longer need to use lextypes in CgOp foo_lex

sorear · Jul 21, 2010 · 1334694 · 1334694
1 parent f0c3f28
commit 1334694
Showing 1 changed file with 5 additions and 11 deletions.
diff --git a/CgOp.pm b/CgOp.pm
@@ -308,25 +308,19 @@ use warnings;
     }
 
     sub share_lex {
-        prog(
-          lextypes($_[0], 'Variable'),
-          lexput(0, $_[0], protolget($_[0])));
+        lexput(0, $_[0], protolget($_[0]));
     }
 
     # the handling of @var here is quite wrong, but works for now
     sub copy_lex {
         my ($n, $l) = @_;
-        prog(
-          lextypes($n, 'Variable'),
-          lexput(0, $n, $l ? newrwlistvar(fetch(protolget($_[0])))
-                           : newrwscalar(fetch(protolget($_[0])))));
+        lexput(0, $n, $l ? newrwlistvar(fetch(protolget($_[0])))
+                         : newrwscalar(fetch(protolget($_[0]))));
     }
 
     sub clone_lex {
-        prog(
-          lextypes($_[0], 'Variable'),
-          lexput(0, $_[0], methodcall(protolget($_[0]), "clone",
-            newscalar(callframe))));
+        lexput(0, $_[0], methodcall(protolget($_[0]), "clone",
+          newscalar(callframe)));
     }
 
     sub proto_var {