diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-03-05 14:06:20 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-06 20:45:08 +0000 |
| commit | 842517601b969821600597cc5736114bee3b0c27 (patch) | |
| tree | 16a252ad5301ef7cd4422bca12280c0387913c5c /ext | |
| parent | e69880a56d80785fbe5600b4e7dabf583188c526 (diff) | |
| download | perl-842517601b969821600597cc5736114bee3b0c27.tar.gz | |
cleaning up tests of the 'eval { decl. } <=> runtime decl.' assumption
Message-ID: <20030305100620.GA909@ratsnest.hole>
p4raw-id: //depot/perl@18840
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/t/sigaction.t | 2 | ||||
| -rw-r--r-- | ext/POSIX/t/waitpid.t | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/POSIX/t/sigaction.t b/ext/POSIX/t/sigaction.t index d280d686b9..63ff17dae3 100644 --- a/ext/POSIX/t/sigaction.t +++ b/ext/POSIX/t/sigaction.t @@ -8,7 +8,7 @@ BEGIN { BEGIN{ # Don't do anything if POSIX is missing, or sigaction missing. use Config; - eval { use POSIX; }; + eval 'use POSIX'; if($@ || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'dos' || $^O eq 'MacOS' || ($^O eq 'VMS' && !$Config{'d_sigaction'})) { print "1..0\n"; diff --git a/ext/POSIX/t/waitpid.t b/ext/POSIX/t/waitpid.t index e1633712e6..c36a611bfc 100644 --- a/ext/POSIX/t/waitpid.t +++ b/ext/POSIX/t/waitpid.t @@ -9,12 +9,12 @@ BEGIN { print "1..0 # Skip: no fork\n"; exit 0; } - eval { use POSIX qw(sys_wait_h) }; + eval 'use POSIX qw(sys_wait_h)'; if ($@) { print "1..0 # Skip: no POSIX sys_wait_h\n"; exit 0; } - eval { use Time::HiRes qw(time) }; + eval 'use Time::HiRes qw(time)'; if ($@) { print "1..0 # Skip: no Time::HiRes\n"; exit 0; |