| Subject: | 60error_prev_chain.t assumes $@ will be an object |
Similar to case 69070. I've added a skip in the event I $@ is true but not a ref.
| Subject: | patch.txt |
diff --git a/t/60error_prev_chain.t b/t/60error_prev_chain.t
index 49d8b98..75fc4ca 100644
--- a/t/60error_prev_chain.t
+++ b/t/60error_prev_chain.t
@@ -10,7 +10,7 @@ use warnings;
no warnings 'recursion';
-use Test::More tests => 1;
+use Test::More;
use XML::LibXML;
@@ -28,6 +28,11 @@ use XML::LibXML;
my $err = $@;
my $count = 0;
+ if( $err && !ref($err) ) {
+ plan skip_all => 'The local libxml library does not support errors as objects to $@';
+ }
+ plan tests => 1;
+
while (defined($err) && $count < 200)
{
$err = $err->_prev();