[svn:parrot] r47316 - branches/gsoc_past_optimization/t/library

[tcurtis at svn.parrot.org]

Author: tcurtis
Date: Wed Jun  2 23:02:51 2010
New Revision: 47316
URL: https://trac.parrot.org/parrot/changeset/47316

Log:
Fix node_with_attr_set so that setting "source"/"pos" doesn't crash Parrot.

Modified:
   branches/gsoc_past_optimization/t/library/pastpattern.t

Modified: branches/gsoc_past_optimization/t/library/pastpattern.t
==============================================================================
--- branches/gsoc_past_optimization/t/library/pastpattern.t	Wed Jun  2 22:59:28 2010	(r47315)
+++ branches/gsoc_past_optimization/t/library/pastpattern.t	Wed Jun  2 23:02:51 2010	(r47316)
@@ -86,7 +86,7 @@
 sub node_with_attr_set ($class, $attr, $val) {
     my $node := $class.new();
     if ($attr eq "source" || $attr eq "pos") {
-        pir::setattribute_p_s_p($node, $attr, $val);
+        $node{$attr} := $val;
     }
     else {
         $node.attr($attr, $val, 1);