This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
VMS specific fix for lib/ExtUtils/t/Manifest.t
authorPeter Prymmer <PPrymmer@factset.com>
Mon, 18 Aug 2003 15:57:12 +0000 (11:57 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 18 Aug 2003 19:01:33 +0000 (19:01 +0000)
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 {