At 05:10 PM 3/13/00 -0800, [EMAIL PROTECTED] wrote:
>Craig A. Berry wrote:
> > I'm still curious what directory it's not finding. If you ever have a
> > chance to do a debug build, an "EXAM/ASCIZ namdsc.dsc$a_pointer" just before
> > it calls sys$check_access could be informative.
>
>Thanks for the tip. Please don't hold your breathe waiting for me though
>I have a lot of other things to do unfortunately :-{
Well, I know how that goes, but in case those tuits start falling off trees,
this might help.
You can get a debug miniperl without reconfiguring by just doing:
$ mmk/macro=__debug__=1
Other things will break further on (like linking perlshr.exe) but this will
give you a dbgminiperl.exe. Actually if you have a directory with a build
already sitting there I'd be tempted to just delete VMS.OBJ and explicitly
ask for the DBGMINIPERL.EXE target on the command line.
The following debug script and the listing of the session that runs it show
what I get when executing the command that is giving you problems. You'll
have to find the line number in cando_by_name ($ search vms.lis
sys$check_access) since I'm sure your headers will be slightly different
from mine; otherwise the debug script should work for you.
I'm not sure this will nail it but will hopefully get us closer. It looks
like your failure may show up just locating Writemain.pl, before it even
tries to do anything with it. Good luck.
$ type script_for_pvp.dbg
set module vms
set break Perl_cando_by_name\%line 80727 do (exam/asciz *namdsc.dsc$a_pointer; go)
go
go
$ MCR Sys$Disk:[]dbgminiperl.exe "-I[.lib]" [.VMS]Writemain.pl "DynaLoader Socket"
OpenVMS Alpha DEBUG Version V7.1-000
%DEBUG-I-INITIAL, Language: C, Module: MINIPERLMAIN
%DEBUG-I-NOTATMAIN, Type GO to reach MAIN program
DBG> @script_for_pvp.dbg
break at routine MINIPERLMAIN\main
44319: PERL_SYS_INIT3(&argc,&argv,&env);
break at VMS\Perl_cando_by_name\%LINE 80727
80727: retsts = sys$check_access(&objtyp,&namdsc,&usrdsc,armlst);
*VMS\Perl_cando_by_name\namdsc.dsc$a_pointer:
"DISK8:[BERRYC.VMSPERL.VMS]WRITEMAIN.PL;1"
break at VMS\Perl_cando_by_name\%LINE 80727
80727: retsts = sys$check_access(&objtyp,&namdsc,&usrdsc,armlst);
*VMS\Perl_cando_by_name\namdsc.dsc$a_pointer:
"DISK8:[BERRYC.VMSPERL.VMS]WRITEMAIN.PL;1"
Adding DynaLoader . . .
Adding Socket . . .
%DEBUG-I-EXITSTATUS, is '%SYSTEM-S-NORMAL, normal successful completion'
DBG>
_______________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
