diff options
| author | Paul Green <Paul.Green@stratus.com> | 2008-02-08 07:36:03 -0500 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2008-02-08 19:11:19 +0000 |
| commit | 3722f0dc40a30b6ceedaf8704b690b384a8adb00 (patch) | |
| tree | 58727ce9196f343d0c92a4f894f5fee186d168c7 /lib/ExtUtils/t | |
| parent | 7b0f711abd55488cc790ac95f935f46d630a87bb (diff) | |
| download | perl-3722f0dc40a30b6ceedaf8704b690b384a8adb00.tar.gz | |
RE: Perl @ 33218 (Stratus VOS patches)
From: "Green, Paul" <Paul.Green@stratus.com>
Message-ID: <F5F42E77A43DD944B6D664B00A5401CB037149FF@EXNA.corp.stratus.com>
Includes a fix to the patch to ext/Time/HiRes/Makefile.PL
p4raw-id: //depot/perl@33259
Diffstat (limited to 'lib/ExtUtils/t')
| -rw-r--r-- | lib/ExtUtils/t/MM_Unix.t | 4 | ||||
| -rw-r--r-- | lib/ExtUtils/t/eu_command.t | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lib/ExtUtils/t/MM_Unix.t b/lib/ExtUtils/t/MM_Unix.t index 75af156542..1f2762ec83 100644 --- a/lib/ExtUtils/t/MM_Unix.t +++ b/lib/ExtUtils/t/MM_Unix.t @@ -171,7 +171,11 @@ is ($t->libscan('Fatty'), 'Fatty', 'libscan on something not a VC file' ); # maybe_command open(FILE, ">command"); print FILE "foo"; close FILE; +SKIP: { +skip ("no separate execute mode", 1) if ($^O eq "vos"); ok (!$t->maybe_command('command') ,"non executable file isn't a command"); +} + chmod 0755, "command"; ok ($t->maybe_command('command'), "executable file is a command"); unlink "command"; diff --git a/lib/ExtUtils/t/eu_command.t b/lib/ExtUtils/t/eu_command.t index 2d2fdbae22..30fb38e933 100644 --- a/lib/ExtUtils/t/eu_command.t +++ b/lib/ExtUtils/t/eu_command.t @@ -146,7 +146,7 @@ BEGIN { SKIP: { if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'dos' || $^O eq 'cygwin' || - $^O eq 'MacOS' + $^O eq 'MacOS' || $^O eq 'vos' ) { skip( "different file permission semantics on $^O", 5); } |