Change 34434 by [EMAIL PROTECTED] on 2008/09/27 15:18:37
Subject: [PATCH] Loading modules in test.pl
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Tue, 23 Sep 2008 09:40:27 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/test.pl#90 edit
Differences ...
==== //depot/perl/t/test.pl#90 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl#89~34337~ 2008-09-10 11:27:37.000000000 -0700
+++ perl/t/test.pl 2008-09-27 08:18:37.000000000 -0700
@@ -527,8 +527,7 @@
# run a fresh perl, so we'll brute force launder everything for you
my $sep;
- eval "require Config; Config->import";
- if ($@) {
+ if (! eval 'use Config; 1') {
warn "test.pl had problems loading Config: $@";
$sep = ':';
} else {
@@ -573,8 +572,7 @@
return $Perl if $^O eq 'VMS';
my $exe;
- eval "require Config; Config->import";
- if ($@) {
+ if (! eval 'use Config; 1') {
warn "test.pl had problems loading Config: $@";
$exe = '';
} else {
@@ -588,8 +586,7 @@
if ($Perl =~ /^perl\Q$exe\E$/i) {
my $perl = "perl$exe";
- eval "require File::Spec";
- if ($@) {
+ if (! eval 'use File::Spec; 1') {
warn "test.pl had problems loading File::Spec: $@";
$Perl = "./$perl";
} else {
@@ -903,7 +900,7 @@
# Use a watchdog thread because either 'threads' is loaded,
# or fork() failed
- if (eval { require threads; }) {
+ if (eval 'use threads; 1') {
threads->create(sub {
# Load POSIX if available
eval { require POSIX; };
End of Patch.
