| Subject: | XML-Generator-0.99 PATCH for VMS to pass tests |
XML-Generator-0.99
Perl 5.87 on VMS
Please find attached a small patch to get one test case to pass on VMS.
A require had single quotes around a filename.
Thanks
Peter (Stig) Edwards
| Subject: | XML-Generator-0.99.diff |
--- XML-Generator-0.99/t/Generator.t 2006-04-09 13:25:53.1144589153 -0400
+++ XML-Generator-0.99/t/Generator.t 2006-04-09 13:45:43.1144590343 -0400
@@ -22,2 +22,2 @@
$xml = $x->bam({'bar'=>42},$x->foo(),"qux");
ok($xml, '<bam bar="42"><foo />qux</bam>');
+if ($^O ne 'VMS') {
eval { require 'Tie::IxHash'; };
+} else {
+ eval { require Tie::IxHash; };
+}
if ($@) {
- skip('Tie::IxHash not installed', 1);
+ skip("Tie::IxHash not installed.\n\$^X = '$^X'\n\$@ = '$@'", 1);
} else {
tie %h, 'Tie::IxHash';
@h{'a'..'z'} = 1..26;