Enforce XML::LibXML version requirements

diff --git a/lib/SQL/Translator/Parser/XML/SQLFairy.pm b/lib/SQL/Translator/Parser/XML/SQLFairy.pm
index 390a4ca..63f7b58 100644 (file)
--- a/lib/SQL/Translator/Parser/XML/SQLFairy.pm
+++ b/lib/SQL/Translator/Parser/XML/SQLFairy.pm
@@ -110,7 +110,7 @@ use base qw(Exporter);
 
 use base qw/SQL::Translator::Parser/;  # Doesnt do anything at the mo!
 use SQL::Translator::Utils 'debug';
-use XML::LibXML;
+use XML::LibXML 1.69;
 use XML::LibXML::XPathContext;
 
 sub parse {

diff --git a/t/60roundtrip.t b/t/60roundtrip.t
index 5c47b29..857226e 100644 (file)
--- a/t/60roundtrip.t
+++ b/t/60roundtrip.t
@@ -16,7 +16,7 @@ use SQL::Translator;
 my $plan = [
   {
     engine => 'XML',
-    req => 'XML::LibXML',
+    req => 'XML::LibXML 1.69',
   },
   {
     engine => 'YAML',
@@ -111,7 +111,7 @@ for my $args (@$plan) {
     my @req = ref $args->{req} ? @{$args->{req}} : $args->{req}||();
     my @missing;
     for (@req) {
-      eval "require $_";
+      eval "use $_ ()";
       push @missing, $_ if ($@);
     }
     if (@missing) {