Craig A. Berry <[EMAIL PROTECTED]> writes: > Displaying source in a caller of the current routine > 51605: if (PerlSIO_ungetc(ch, s) != ch) >DBG> show calls > module name routine name line rel PC abs PC > SHARE$DECC$SHR_CODE0 00000000000ABC50 FFFFFFFF80607C50 >----- the above appears to be a null frame in the same scope as the frame below >*PERLIO PerlIOStdio_unread > 51605 0000000000005950 00000000004408E0
Looks like VMS's oddities has found a PerlIO oddity. This call sequence looks very strange. >*PERLIO Perl_PerlIO_unread > 50367 0000000000002C78 000000000043DC08 > 000000000003285C 000000000099A85C >*PERLIO Perl_PerlIO_flush > 50414 0000000000002F30 000000000043DEC0 > 0000000000031394 0000000000999394 >*PERLIO Perl_PerlIO_fill > 50474 0000000000003160 000000000043E0F0 >*PERLIO PerlIOBase_read 50888 0000000000003F30 000000000043EEC0 >*PERLIO PerlIOBuf_read 52071 00000000000067AC 000000000044173C >*PERLIO Perl_PerlIO_read > 50356 0000000000002BC8 000000000043DB58 >*PERLIO PerlIO_getc 53151 0000000000008AA8 0000000000443A38 >*SV Perl_sv_gets 49572 000000000000D9A4 0000000000510B34 >*PP_HOT Perl_do_readline > 44556 0000000000006CBC 00000000004F587C >*PP_HOT Perl_pp_readline > 43241 0000000000001378 00000000004EFF38 >*DUMP Perl_runops_debug > 45160 0000000000006070 00000000004C6190 >*PERL S_run_body 44783 0000000000003C0C 0000000000433EDC >*PERL perl_run 44704 0000000000003844 0000000000433B14 > SHARE$DBGPERL 00000000000001E0 00000000000201E0 > SHARE$DBGPERL 00000000000000A0 00000000000200A0 > FFFFFFFF8370147C FFFFFFFF8370147C -- Nick Ing-Simmons http://www.ni-s.u-net.com/
