[PATCH] Work around a "Bizarre copy of ARRAY in sassign" with Perl 5.12.x

[Niko Tyni]

Test::Exception does nasty things with the stack, triggering
what seems to be a bug in newer Perl versions.

 http://rt.perl.org/rt3/Public/Bug/Display.html?id=52610
 https://rt.cpan.org/Ticket/Display.html?id=55179
 http://bugs.debian.org/582915

Simplify the test as a workaround.
---
 t/node.t |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/node.t b/t/node.t
index 5ccabcd..6a59654 100644
--- a/t/node.t
+++ b/t/node.t
@@ -121,8 +121,8 @@ is($b->get_element_property(property => 'experience',element => 'X'),
 
 is( $b->fetch_element_value('Z'), undef, "test Z value" );
 
-throws_ok {$b->fetch_element('Z','user')} 
-  qr/Unexpected experience/, "fetch_element with unexpected experience" ;
+eval {$b->fetch_element('Z','user')};
+like($@, qr/Unexpected experience/, "fetch_element with unexpected experience" );
 
 # translated into beginner
 throws_ok { $b->fetch_element('X','beginner'); } 
-- 
1.7.1


--/9DWx/yDrRhgMJTb--