From: Peter Rabbitson <ribasushi@cpan.org>
Date: Thu, 24 Sep 2009 21:36:12 +0000 (+0000)
Subject: Enforce XML::LibXML version requirements
X-Git-Tag: v0.11008~84
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=89e19730168d5c04041cfbef132b6d40cb4c8a51;p=dbsrgits%2FSQL-Translator.git

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
--- 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
--- 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) {