[svn:dbd-oracle] r2438 - dbd-oracle/trunk

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 inc
lude.\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;
}