Hello,

according to the Changes file for DBI 1.37 VMS build support should be fixed as
of 1.36. Still I am running into serious problems and would appreciate 
some help very much.

Environment:

OpenVMS Alpha 7.3, DEC C 6.5, Perl 5.8.0 compiled from  sources.

$ dir

Directory DKA0:[TMP.DBI-1_37]

CHANGES.;1          DBD_XSH.H;1         DBI.PM;1            DBI.XS;1
DBIPPORT.H;1        DBIPROF.PL;1        DBIPROXY.PL;1       DBIXS.H;1
DBI_SQL.H;1         DRIVER.XST;1        DRIVER_XST.H;1      LIB.DIR;1
MAKEFILE.PL;1       MANIFEST.;1         PERL.XS;1           README.;1
T.DIR;1             TEST.PL;1           TODO.;1             TYPEMAP.;1

Total of 20 files.
$ perl makefile.pl
*** Note:
    The optional PlRPC-modules (RPC::PlServer etc) are not installed.
    If you want to use the DBD::Proxy driver and DBI::ProxyServer
    modules, then you'll need to install the RPC::PlServer, RPC::PlClient,
    Storable and Net::Daemon modules. The CPAN Bundle::DBI may help you.
    You can install them any time after installing the DBI.
    You do *not* need these modules for typical DBI usage.

Optional modules are available from any CPAN mirror, in particular
    http://www.perl.com/CPAN/modules/by-module
    http://www.perl.org/CPAN/modules/by-module
    ftp://ftp.funet.fi/pub/languages/perl/CPAN/modules/by-module

Creating extra DBI::PurePerl test: t/zz_01basics_pp.t
Creating extra DBI::PurePerl test: t/zz_02dbidrv_pp.t
Creating extra DBI::PurePerl test: t/zz_03handle_pp.t
Creating extra DBI::PurePerl test: t/zz_04mods_pp.t
Creating extra DBI::PurePerl test: t/zz_05thrclone_pp.t
Creating extra DBI::PurePerl test: t/zz_06attrs_pp.t
Creating extra DBI::PurePerl test: t/zz_07kids_pp.t
Creating extra DBI::PurePerl test: t/zz_08keeperr_pp.t
Creating extra DBI::PurePerl test: t/zz_10examp_pp.t
Creating extra DBI::PurePerl test: t/zz_15array_pp.t
Creating extra DBI::PurePerl test: t/zz_20meta_pp.t
Creating extra DBI::PurePerl test: t/zz_30subclass_pp.t
Creating extra DBI::PurePerl test: t/zz_40profile_pp.t
Creating extra DBI::PurePerl test: t/zz_41prof_dump_pp.t
Creating extra DBI::PurePerl test: t/zz_42prof_data_pp.t
Creating extra DBI::PurePerl test: t/zz_60preparse_pp.t
Creating extra DBI::PurePerl test: t/zz_80proxy_pp.t
Checking if your kit is complete...
Looks good
Can't cd to (perl_root:[lib]/) switch: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) stock: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) site_perl: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) search: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) scalar: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) pod: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) perlio: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) next: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) net: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) mime: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) memoize: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) math: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) locale: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) list: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) ipc: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) io: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) i18n: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) hash: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) getopt: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) filter: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) file: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) extutils: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) exporter: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) env: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) encode: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) digest: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) devel: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) data: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) cpan: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) class: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) cgi: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) carp: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) bignum: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) b: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) auto: invalid argument
 at makefile.pl line 240
Can't cd to (perl_root:[lib]/) attribute: invalid argument
 at makefile.pl line 240

Warning: I could not locate your pod2man program.  As a last choice,
         I will look for the file to which the logical name POD2MAN
         points when MMK is invoked.

Writing Descrip.MMS for DBI

    Remember to actually *read* the README file!
    Use  'make' to build the software (dmake or nmake on Windows).
    Then 'make test' to execute self tests.
    Then 'make install' to install the DBI and then delete this working
    directory before unpacking and building any DBD::* drivers.

As you would have expected perl_root is defined and available:

$ sh log perl_root
   "PERL_ROOT" = "DSA0:[PUBLIC.GNU.PERL.]" (LNM$PROCESS_TABLE)

$ dir perl_root:[lib]

Directory PERL_ROOT:[LIB]

.exists;1           abbrev.pl;1         AnyDBM_File.pm;1    AnyDBM_File.t;1
assert.pl;1         ATTRIBUTE.DIR;1     attributes.pm;1     attrs.pm;1
AUTO.DIR;1          AutoLoader.pm;1     AutoLoader.t;1      AutoSplit.pm;1
AutoSplit.t;1       autouse.pm;1        autouse.t;1         B.DIR;1
b.pm;1              base.pm;1           Benchmark.pm;1      Benchmark.t;1

... (Rest of dir listing omitted to save electrons ;-)

I anyhow did attempt to build: 

$ mmk
Copy/NoConfirm Changes [.blib.lib.DBI]Changes.pm
%CREATE-I-EXISTS, [.blib.lib] already exists
MCR perl_root:[000000]miniperl.exe "-MExtUtils::Install" -e "pm_to_blib({split(' 
',<STDIN>)},'[.blib.lib.auto]','')" <.MM_tmp
cp dbiproxy.pl [.blib.lib]dbiproxy.pl
cp [.lib.win32]dbiodbc.pm [.blib.lib.win32]dbiodbc.pm
cp dbd_xsh.h [.blib.arch.auto.DBI]dbd_xsh.h
cp [.lib.dbi]profiledumper.pm [.blib.lib.dbi]profiledumper.pm
cp [.lib.dbd]proxy.pm [.blib.lib.dbd]proxy.pm
cp [.lib.dbi]w32odbc.pm [.blib.lib.dbi]w32odbc.pm
cp [.lib.dbi]faq.pm [.blib.lib.dbi]faq.pm
cp [.lib.dbi.dbd]metadata.pm [.blib.lib.dbi.dbd]metadata.pm
cp [.lib.bundle]dbi.pm [.blib.lib.bundle]dbi.pm
cp [.lib.dbi]proxyserver.pm [.blib.lib.dbi]proxyserver.pm
cp [.lib.dbi]profiledata.pm [.blib.lib.dbi]profiledata.pm
cp dbi.pm [.blib.lib]dbi.pm
cp [.lib.dbd]nullp.pm [.blib.lib.dbd]nullp.pm
cp [.lib.dbi]profile.pm [.blib.lib.dbi]profile.pm
cp dbixs.h [.blib.arch.auto.DBI]dbixs.h
cp driver.xst [.blib.arch.auto.DBI]driver.xst
cp driver_xst.h [.blib.arch.auto.DBI]driver_xst.h
cp dbiprof.pl [.blib.lib]dbiprof.pl
cp [.lib.dbi.const]getinfotype.pm [.blib.lib.dbi.const]getinfotype.pm
cp [.lib.dbi.const]getinforeturn.pm [.blib.lib.dbi.const]getinforeturn.pm
cp [.lib.dbi.const.getinfo]odbc.pm [.blib.lib.dbi.const.getinfo]odbc.pm
cp [.lib.dbi.const.getinfo]ansi.pm [.blib.lib.dbi.const.getinfo]ansi.pm
cp [.lib.dbi]dbd.pm [.blib.lib.dbi]dbd.pm
cp dbipport.h [.blib.arch.auto.DBI]dbipport.h
cp [.lib.dbd]sponge.pm [.blib.lib.dbd]sponge.pm
cp [.lib.dbi]pureperl.pm [.blib.lib.dbi]pureperl.pm
cp dbi_sql.h [.blib.arch.auto.DBI]dbi_sql.h
cp [.lib.dbi.profiledumper]apache.pm [.blib.lib.dbi.profiledumper]apache.pm
cp [.lib.dbd]examplep.pm [.blib.lib.dbd]examplep.pm
MCR perl_root:[000000]miniperl.exe -e "use ExtUtils::Mksymlists;"       -e 
"Mksymlists('NAME' => 'DBI', 'DL_FUNCS' => {  }, 'DL_VARS
' => [], 'FUNCLIST' => [])"
MCR perl_root:[000000]miniperl.exe -e "print 
""[.blib.arch.auto.DBI]DBI.olb/Include=DBI\n[.blib.arch.auto.DBI]DBI.olb/Library\n"";"
>>DBI.OPT
MCR perl_root:[000000]miniperl.exe -e "print qq{PerlShr/Share\n}" >>DBI.OPT
Copy/NoConfirm DBI.OPT [.BLIB.ARCH.AUTO.DBI]DBI.OPT
%MMK-I-ACTNOUPD, action did not update target [.BLIB.ARCH.AUTO.DBI]DRIVER.XST
%MMK-I-ACTNOUPD, action did not update target [.BLIB.ARCH.AUTO.DBI]DRIVER_XST.H
MCR perl_root:[000000]miniperl.exe -p -e "s/~DRIVER~/Perl/g" < 
[.blib.arch.auto.DBI]Driver.xst > Perl.xsi
MCR perl_root:[000000]miniperl.exe perl_root:[lib.ExtUtils]xsubpp  -typemap 
perl_root:[lib.ExtUtils]typemap -typemap typemap PERL.xs
 >PERL.C
Warning: long symbol DBD__Perl__db_selectall_arrayref
        trimmed to DBD_Perl_db_selectal_arayref
         at perl_root:[lib.extutils]xsubpp line 1095
Warning: long symbol DBD__Perl__db_selectrow_arrayref
        trimmed to DBD_Pl_db_ser_arayref
         at perl_root:[lib.extutils]xsubpp line 1095
Warning: long symbol DBD__Perl__db_dbd_take_imp_data
        trimmed to DBD_Pl_db_d_te_i_data
         at perl_root:[lib.extutils]xsubpp line 1095
Warning: long symbol DBD__Perl__st_bind_param_inout
        trimmed to DBD_Perl_st_bind_param_inout
         at perl_root:[lib.extutils]xsubpp line 1095
Warning: long symbol DBD__Perl__st_fetchrow_arrayref
        trimmed to DBD_Perl_st_fetchrow_arayref
         at perl_root:[lib.extutils]xsubpp line 1095
Warning: long symbol DBD__Perl__st_fetchall_arrayref
        trimmed to DBD_Perl_st_fetchal_arayref
         at perl_root:[lib.extutils]xsubpp line 1095

These should be harmless...

MCR perl_root:[000000]miniperl.exe -p -e "s/~DRIVER~/Perl/g" < 
[.blib.arch.auto.DBI]Driver.xst > Perl.xsi
CC/DECC /Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj 
/NOANSI_ALIAS/float=ieee/ieee=denorm_results/Define=(DBI_NO_THREADS,"V
ERSION=""1.37""","XS_VERSION=""1.37""")/Include=(perl_root:[lib.VMS_AXP.5_8_0.CORE])/NoList
  PERL.c
MCR perl_root:[000000]miniperl.exe perl_root:[lib.ExtUtils]xsubpp  -typemap 
perl_root:[lib.ExtUtils]typemap -typemap typemap DBI.xs
>DBI.C
CC/DECC /Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj 
/NOANSI_ALIAS/float=ieee/ieee=denorm_results/Define=(DBI_NO_THREADS,"V
ERSION=""1.37""","XS_VERSION=""1.37""")/Include=(perl_root:[lib.VMS_AXP.5_8_0.CORE])/NoList
  DBI.c
If F$Search("[.BLIB.ARCH.AUTO.DBI]DBI.OLB").eqs."" Then Library/Object/Create 
[.BLIB.ARCH.AUTO.DBI]DBI.OLB
Library/Object/Replace [.BLIB.ARCH.AUTO.DBI]DBI.OLB DBI.OBJ
%CREATE-I-EXISTS, [.blib.arch.auto.DBI] already exists
If F$TrnLNm("PerlShr").eqs."" Then Define/NoLog/User PerlShr Sys$Share:PerlShr.exe
Link /NoTrace/NoMap /Shareable=[.BLIB.ARCH.AUTO.DBI]PL_DBI.EXE 
DBI.opt/Option,perl_root:[lib.VMS_AXP.5_8_0.CORE]perlshr_attr.opt/Opt
ion
Running mkbootstrap for DBI ()
Copy/NoConfirm DBI.bs [.blib.arch.auto.DBI]DBI.bs
Can't open [.blib.man1]dbiprof.pl.rno for writing: i/o error
 at -e line 2
%SYSTEM-F-ABORT, abort
Can't open [.blib.man1]dbiproxy.pl.rno for writing: i/o error
 at -e line 2
%SYSTEM-F-ABORT, abort

This on the other hand looks not so good...

Any advise?

Thanks a lot, Martin
 
Dr. Martin P.J. Zinser                       [EMAIL PROTECTED]
Deutsche Boerse Systems Inc.                        
Suite 1580                                   Tel: +1-312-408-3085 
141 West Jackson Blvd.                       FAX: +1-312-408-3071
Chicago, IL, 60604                           
USA                                          Private:  [EMAIL PROTECTED]

Reply via email to