The following patch allows VMS to pass the "phantom" test # 19 under
`mms test`:

--- t/lib/exporter.t.orig       Sun Apr 15 15:40:12 2001
+++ t/lib/exporter.t    Wed Apr 18 15:36:00 2001
@@ -11,7 +11,7 @@
     my($test, $name) = @_;
     print "not " unless $test;
     print "ok $test_num";
-    print " - $name" if defined $name;
+    print " - $name" if (defined $name && ! $^O eq 'VMS');
     print "\n";
     $test_num++;
 }
End of Patch.

Peter Prymmer



Reply via email to