On Thu, Mar 24, 2005 at 01:17:40PM +0800, Autrijus Tang wrote: : As of r1079, there is $?EXECUTABLE_NAME (that is, $^X in perl5) and : $?PROGRAM_NAME (that is, $0 in perl5). Note that those two things : are unspecced -- I just pulled them out from perlvar.
I'd also note the $*EXECUTABLE_NAME might be different from $?EXECUTABLE_NAME. In fact $*EXECUTABLE_NAME might not be known till run time, while $?EXECUTABLE_NAME is required to be known at compile time, as are pretty much all $? variables. : With a compiled binary, $?EXECUTABLE_NAME may not even make sense, : nor does $?PROGRAM_NAME for many of its uses, though. That was a : classic problem with PAR -- I end up just setting the former to "perl" : and the latter to a temp file that contains the original source code. : Not sure Perl 6 wants to go that route... We do at least need to be able somehow to keep the source code around for debugging when people want that. Perhaps the source code is just the top-level pod structure though, whatever pod turns out to be. Anyway, the source code might well be in some %=pod kind of substructure. People who want to obscure the source code could presumably wipe out that part of the structure in a CHECK block or some such. Larry
