| timbo@cvs.perl.org 2005-06-03, 8:27 pm |
| Author: timbo
Date: Mon Nov 1 09:30:32 2004
New Revision: 552
Modified:
dbd-oracle/trunk/Makefile.PL
Log:
More VMS support from Jakob Snoer
Modified: dbd-oracle/trunk/Makefile.PL
====================
====================
====================
==================
--- dbd-oracle/trunk/Makefile.PL (original)
+++ dbd-oracle/trunk/Makefile.PL Mon Nov 1 09:30:32 2004
@@ -725,6 +725,57 @@
exit 0;
+if ($os eq 'VMS') { # sanity check VMS logical names
+
+ sub search_in_search_lis
t {
+ # subroutine that searches list arg1 for item arg2
+ my ($search_list_name , $logical) = @_ ;
+ $search_list_name =~ s/;// ;
+ $search_list_name = $search_list_name . ';';
+ my $i = 0;
+ my @s;
+ while ( defined( $s[$i] = $ENV& #123;$search_list_na
me.$i} ) ) {
+ print "logical : $logical - fromlist : $s[$i] \n" if $::opt_v;
+ return 1 if $s[$i++] eq $logical;
+ }
+ return 0
+ }
+
+ if ( !$ENV& #123;PERL_ENV_TABLES
} ) { # perl_env_tables not set report
+ print qq{
+
+ The logical PERL_ENV_TABLES is not set.
+
+ This means that any logical names set when testing the package
+ will be set in the first logical name table that occurs in the
+ LNM\$FILE_DEV list.
+
+ Please read the Readme.VMS file for further information.
+ \a\n};
+ sleep 3;
+ }
+ else {
+
+ # perl_env_tables set but the element we want is missing
+ if ( !search_in_search_li
st('PERL_ENV_TABLES;
', 'LNM$JOB') ) {
+ print qq{
+
+ The logical PERL_ENV_TABLES is set, but without LNM\$JOB.
+
+ Testing the package can fail because of inability to correctly
+ translate SYS\$SCRATCH for temporary storage, as SYS\$SCRATCH is
+ set at the JOB level.
+
+ To ensure that testing the package correctly translates SYS\$SCRATCH,
+ please ensure that LNM\$JOB is part of PERL_ENV_TABLES like this:
+
+ \$ DEFINE PERL_ENV_TABLES LNM\$PROCESS, LNM\$JOB , CRTL_ENV
+ \a\n};
+ sleep 3;
+ }
+ } # end if
+}
+
# ====================
====================
====================
=========
@@ -844,6 +895,7 @@
}
+
sub read_sysliblist {
my $syslibs = (-f "$OH/lib/sysliblist")
? read_file("$OH/lib/sysliblist")
|