(was Re: Why t/lib/extutils.t is failing ...

[p5sagit/p5-mst-13.2.git] / t / lib / exporter.t

diff --git a/t/lib/exporter.t b/t/lib/exporter.t
index d5c4073..a0028fe 100644 (file)
--- a/t/lib/exporter.t
+++ b/t/lib/exporter.t
@@ -11,7 +11,7 @@ sub ok ($;$) {
     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++;
 }