VMS specific fix for lib/ExtUtils/t/Manifest.t
Peter Prymmer [Mon, 18 Aug 2003 15:57:12 +0000 (11:57 -0400)]
Message-ID: <OF314202D4.49371ADF-ON85256D86.006CEBE2-85256D86.006D9AA7@factset.com>

p4raw-id: //depot/perl@20763

lib/ExtUtils/t/Manifest.t

index 50cf869..253abf6 100644 (file)
@@ -204,9 +204,16 @@ SKIP: {
     chmod( 0400, 'MANIFEST' );
     skip "Can't make MANIFEST read-only", 2 if -w 'MANIFEST';
 
-    eval {
-        maniadd({ 'META.yml' => 'hock' });
-    };
+    if ( $^O eq 'VMS' ) {
+        eval {
+            maniadd({ 'meta.yml' => 'hock' });
+        };
+    }
+    else {
+        eval {
+            maniadd({ 'META.yml' => 'hock' });
+        };
+    }
     is( $@, '',  "maniadd() won't open MANIFEST if it doesn't need to" );
 
     eval {