diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2003-08-18 10:07:30 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-19 13:13:26 +0000 |
| commit | 380d553221a7b6b303e3e865f5f1192c35badf06 (patch) | |
| tree | d1291745a77285191dbc8189de7022118406191e /lib/ExtUtils | |
| parent | 46aa9bac46a412aee3375d600b0915242a05b059 (diff) | |
| download | perl-380d553221a7b6b303e3e865f5f1192c35badf06.tar.gz | |
Replace #20763 with
Subject: Re: [PATCH: perl@20760] VMS specific fix for lib/ExtUtils/t/Manifest.t
Message-ID: <20030819000729.GG14782@windhund.schwern.org>
p4raw-id: //depot/perl@20772
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/t/Manifest.t | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/lib/ExtUtils/t/Manifest.t b/lib/ExtUtils/t/Manifest.t index 253abf63cb..24c849b8bb 100644 --- a/lib/ExtUtils/t/Manifest.t +++ b/lib/ExtUtils/t/Manifest.t @@ -200,20 +200,16 @@ my %expect = ( 'makefile.pl' => '', ); is_deeply( $files, \%expect, 'maniadd() vs MANIFEST without trailing newline'); +add_file('MANIFEST' => 'Makefile.PL'); +maniadd({ foo => 'bar' }); + SKIP: { chmod( 0400, 'MANIFEST' ); skip "Can't make MANIFEST read-only", 2 if -w 'MANIFEST'; - if ( $^O eq 'VMS' ) { - eval { - maniadd({ 'meta.yml' => 'hock' }); - }; - } - else { - eval { - maniadd({ 'META.yml' => 'hock' }); - }; - } + eval { + maniadd({ 'foo' => 'bar' }); + }; is( $@, '', "maniadd() won't open MANIFEST if it doesn't need to" ); eval { |