| timbo@cvs.perl.org 2006-01-20, 7:24 am |
| Author: timbo
Date: Fri Jan 20 02:43:04 2006
New Revision: 2438
Modified:
dbd-oracle/trunk/Makefile.PL
Log:
Add WARNING prefix and sleep 5 to check_ldlibpthname()
Normalize other sleeps to 5 and add WARNING prefix to more.
Modified: dbd-oracle/trunk/Makefile.PL
====================
====================
====================
==================
--- dbd-oracle/trunk/Makefile.PL (original)
+++ dbd-oracle/trunk/Makefile.PL Fri Jan 20 02:43:04 2006
@@ -451,7 +451,7 @@ else { # --- trawl the guts of Oracle's
$linkwith = del_crtobj($linkwith
, 1) if $os eq 'solaris';
}
else {
- print "Unable to interpret Oracle build commands from $mkfile.\a\n";
+ print "WARNING: Unable to interpret Oracle build commands from $mkfile.\a\n";
print "(Will continue by using fallback approach.)\n";
print "Please report this to dbi-users\@perl.org. See README for what to include.\n";
sleep 2;
@@ -817,7 +817,7 @@ if ($os eq 'VMS') { # sanity check VMS l
Please read the Readme.VMS file for further information.
\a\n};
- sleep 3;
+ sleep 5;
}
else {
@@ -836,7 +836,7 @@ if ($os eq 'VMS') { # sanity check VMS l
\$ DEFINE PERL_ENV_TABLES LNM\$PROCESS, LNM\$JOB , CRTL_ENV
\a\n};
- sleep 3;
+ sleep 5;
}
} # end if
}
@@ -1510,7 +1510,7 @@ default to version $client_version_full
.
Oracle version based logic in Makefile.PL may produce erroneous results.
You can use "perl Makefile.PL -V X.Y.Z" to specify a your client version.\n
};
- sleep 2;
+ sleep 5;
}
# hack up a simple floating point form of the version: 8.1.6.2 => 8.1
@@ -1753,7 +1753,8 @@ sub check_ldlibpthname {
print "Your $ldlibpthname env var is set to '$val'\n";
my @val = split /\Q$Config{path_sep}/o, $val, -1;
return 1 if grep { s:[\\/]$::; $_ eq $libdir } @val;
- warn "Your $ldlibpthname env var doesn't include '$libdir' but probably needs to.\n";
+ warn "WARNING: Your $ldlibpthname env var doesn't include '$libdir' but probably needs to.$BELL\n";
+ sleep 5;
return;
}
|