Commits

Shlomi Fish committed 6dde8df

Fix building against libxml2 from git.

Comments (0)

Files changed (2)

     - Documentation: moved away from Indirect-object-notation and added
     some missing "my"s:
         - http://www.modernperlbooks.com/mt/2009/08/the-problems-with-indirect-object-notation.html
+    - Fix failing t/01basic.t when compiling against libxml2 that comes from
+    git.
+        - https://rt.cpan.org/Public/Bug/Display.html?id=54951
+        - Thanks to Evan Carroll ( http://www.evancarroll.com/ ) for the 
+        report.
 
 1.73            Sat Jun 18 10:53:44 IDT 2011
     - Calculating $err->column() properly, so it won't be maxed out at
 # TEST
 ok ($p, 'Can initialize a new XML::LibXML instance');
 
+my ($runtime_version) = (XML::LibXML::LIBXML_RUNTIME_VERSION() =~ /\A(\d+)/);
+
 # TEST
 if (!is (
-    XML::LibXML::LIBXML_VERSION, XML::LibXML::LIBXML_RUNTIME_VERSION,
+    XML::LibXML::LIBXML_VERSION, $runtime_version,
     'LIBXML__VERSION == LIBXML_RUNTIME_VERSION',
 ))
 {
 }
 
 diag( "\n\nCompiled against libxml2 version: ",XML::LibXML::LIBXML_VERSION,
-     "\nRunning libxml2 version:          ",XML::LibXML::LIBXML_RUNTIME_VERSION,
+     "\nRunning libxml2 version:          ",$runtime_version,
      "\n\n");