Perl Cwd

<Perl Lang>
* Perl Cwd is used only internally in the bootstrap; see ::Perl::Cwd::bootstrap::$2
for command line version (perl bootloaders) of the Perl bootloaders.)
* The Perl bootloader also calls ::Parse::FromOptions();

So, this code is now used mostly by other programs:

my $bdb = perl @Load
system("$bdb --oldpath Cwd");
system("$bdb --oldpath perlpath:Cwd");
system('perl --version');

In the end, the list of pre-requisite data is extracted from the Cwd (it's a hash table) that contains:

one or more of the three array elements (or their indexes) which indicates the kind of Cwd under the covers: CWD_OBJ_INDEX, CWD_COMMON_INDEX, CWD_DIR_INDEX, CWD_FILE_INDEX

and one or more of the files (or their names) that describe the contents of that Cwd in detail: CWD_FILE_NAME, CWD_FILE_DESC, CWD_FILE_SIZE, CWD_FILE_OK, CWD_FILE_SET, CWD_SYMLINKS, CWD_VERSION, CWD_STYLE, CWD_TARGET_OS

There's an example bellow. This program invokes the Perl bootloader with the data of the Cwd from the perl command line on the system.