Description: Fix the build with Test-LongString >= 0.15
Forwarded: http://rt.cpan.org/Public/Display.html?id=65828
Bug-Debian: http://bugs.debian.org/613740
Author: Peter Pentchev <roam@ringlet.net>
Last-Update: 2011-02-17

--- a/t/05is.t
+++ b/t/05is.t
@@ -1,3 +1,5 @@
+use version 0.77;
+
 use Test::Builder::Tester;
 use Test::More tests=>6;
 use Test::XML::Simple;
@@ -32,24 +34,29 @@
 xml_is_long($xml, "/CATALOG/CD/ARTIST", 'Sting', "full path");
 test_test("long node match");
 
+my ($longline, $v1, $v2) = ('');
+$v1 = version->parse($Test::LongString::VERSION);
+$v2 = version->parse('0.15');
+$longline = ' (line 1 column 1)' if ($v1 >= $v2);
+
 test_out('not ok 1 - good node');
 test_err(qq(#   Failed test 'good node'
-#   at t/05is.t line 43.
+#   at t/05is.t line 50.
 #          got: "Sting"
 #       length: 5
 #     expected: "Weird Al"
 #       length: 8
-#     strings begin to differ at char 1) );
+#     strings begin to differ at char 1$longline) );
 xml_is($xml, "//ARTIST", 'Weird Al', "good node");
 test_test("node miss");
 
 test_out('not ok 1 - full path');
 test_err(qq(#   Failed test 'full path'
-#   at t/05is.t line 54.
+#   at t/05is.t line 61.
 #          got: "Sting"
 #       length: 5
 #     expected: "Weird Al"
 #       length: 8
-#     strings begin to differ at char 1) );
+#     strings begin to differ at char 1$longline) );
 xml_is($xml, "/CATALOG/CD/ARTIST", 'Weird Al', "full path");
 test_test("full path miss");
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -11,6 +11,7 @@
                              Test::More => 0,
                              Test::LongString => 0,
                              XML::LibXML => 0,
+                             version => 0.77,
                            }, # e.g., Module::Name => 1.1
     ($] >= 5.005 ?    ## Add these new keywords supported since 5.005
       (ABSTRACT_FROM => 'lib/Test/XML/Simple.pm', 
