From 1f0e1261cb2bc64896c9eb6b2c0a89d5bd6e6a62 Mon Sep 17 00:00:00 2001 From: Gianni Ceccarelli Date: Wed, 25 Mar 2009 15:56:13 +0100 Subject: now @_ is not clobbered (more tests needed) --- t/02-xslt.t | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 't') diff --git a/t/02-xslt.t b/t/02-xslt.t index 0870716..2778586 100644 --- a/t/02-xslt.t +++ b/t/02-xslt.t @@ -7,18 +7,16 @@ use strict; use warnings; tree_rule match => '/', action => sub { - my $t=$_[0]; tree { - $t->apply_rules; + $_[0]->apply_rules; }; }; tree_rule match => '*', priority => 0, action => sub { - my $t=$_[0]; node { - name $t->it->name; - attribs %{$t->it->attributes}; - $t->apply_rules; + name $_[0]->it->name; + attribs %{$_[0]->it->attributes}; + $_[0]->apply_rules; }; }; -- cgit v1.2.3