diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-04-24 16:12:43 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 04:07:07 +0000 |
| commit | 3eeba6fb8b434fcb27f601771baa0ea98f44d487 (patch) | |
| tree | 0cdd318a0eb41e39117ecfe361e8c0b0088e2d3a /t/pragma/warn/mg | |
| parent | b295d1132eed0f33e5e8fda2cd65ee1297fdabdb (diff) | |
| download | perl-3eeba6fb8b434fcb27f601771baa0ea98f44d487.tar.gz | |
applied suggested patch, modulo already applied parts
Message-id: <01JAF9UAV9XG002O0W@mail.newman.upenn.edu>
Subject: [Patch 5.005_56] VMS consolidated patch #2
p4raw-id: //depot/perl@3357
Diffstat (limited to 't/pragma/warn/mg')
| -rw-r--r-- | t/pragma/warn/mg | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/pragma/warn/mg b/t/pragma/warn/mg index 44e7634952..14307e0de0 100644 --- a/t/pragma/warn/mg +++ b/t/pragma/warn/mg @@ -16,8 +16,8 @@ No such signal: SIGFRED at - line 3. ######## # mg.c use warning 'signal' ; -if ($^O eq 'MSWin32') { - print "SKIPPED\n# win32, can't kill() to raise()\n"; exit; +if ($^O eq 'MSWin32' || $^O eq 'VMS') { + print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit; } $|=1; $SIG{"INT"} = "fred"; kill "INT",$$; |