fix new exporter test to work OK on VMS

Message-ID: <Pine.OSF.4.10.10104181536440.272477-100000@aspara.forte.com>

p4raw-id: //depot/perl@9744

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++;
 }