develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35162 - branches/rvar2/languages/perl6/src/builtins

From:
jonathan
Date:
January 7, 2009 10:30
Subject:
[svn:parrot] r35162 - branches/rvar2/languages/perl6/src/builtins
Message ID:
20090107182959.CF90DCB9F9@x12.develooper.com
Author: jonathan
Date: Wed Jan  7 10:29:59 2009
New Revision: 35162

Modified:
   branches/rvar2/languages/perl6/src/builtins/guts.pir

Log:
[rakudo] Remove now-unused twigil handling code - it's done in actions.pm now.

Modified: branches/rvar2/languages/perl6/src/builtins/guts.pir
==============================================================================
--- branches/rvar2/languages/perl6/src/builtins/guts.pir	(original)
+++ branches/rvar2/languages/perl6/src/builtins/guts.pir	Wed Jan  7 10:29:59 2009
@@ -491,17 +491,6 @@
     .param int has_itype       :opt_flag
     .param pmc attr            :slurpy :named
 
-    # twigil handling
-    .local string twigil
-    twigil = substr name, 1, 1
-    if twigil == '.' goto twigil_public
-    if twigil == '!' goto twigil_done
-    substr name, 1, 0, '!'
-    goto twigil_done
-  twigil_public:
-    substr name, 1, 1, '!'
-  twigil_done:
-
     $P0 = metaclass.'attributes'()
     $I0 = exists $P0[name]
     if $I0 goto attr_exists



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