On Tue, Sep 04, 2001 at 10:29:29AM -0700, Earl Hood wrote:
On September 4, 2001 at 10:10, John Poltorak wrote:
o The default value of DEFRCNAME is now ".mhonarc.mrc"
("mhonarc.mrc" for Win/DOS).
The default value is also "mhonarc.mrc" on OS/2.
Just wondered how the default name for a particular system is determined...
"mhonarc.mrc" is used if $MSDOS or $VMS is true. Look at the
file osinit.pl on how these variables get set. Here is the snippet
that causes $MSDOS to be set to 1:
} elsif (($^O !~ /cygwin/i) &&
(($^O =~ /mswin/i) ||
($^O =~ /\bdos\b/i) ||
(($tmp = $ENV{'COMSPEC'}) &&
($tmp =~ /^[a-zA-Z]:\\/) &&
(-e $tmp))) ) {
$MSDOS = 1; $MACOS = 0; $UNIX = 0; $VMS = 0;
$DIRSEP = '\\'; $CURDIR = '.';
$PATHSEP = ';';
I betting that $ENV{'COMSPEC'} is set under OS/2.
It's normally set to C:\OS2\CMD.EXE, although it isn't actually required
for OS/2 to run.
I am under the impression that OS/2 should be treated as "msdos" for
the purposes of MHonArc usage. If you believe this to be incorrect,
please follow-up on how OS/2 should be handled so I can make the
corrections in osinit.pl.
OS/2 is DOS-like in terms of dirsep, pathsep and use of drive letters,
although I like to try and create as Unix-like environment as I can when
using Unix programs, but that's just my personal preference.
One thing I would like is to explicitly check for OS/2. Can you
provide what the value of $^O is in Perl under OS/2?
Here's what I get:-
os2
Also perl -V show this:-
Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
Platform:
osname=os2, osvers=2.45, archname=os2
uname='os2 workpad 2 2.45 i386 unknown '
config_args='-des -D prefix=c:/usr/lib/perl'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
useperlio=undef d_sfio=undef uselargefiles=define
use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
Compiler:
cc='gcc', optimize='-O2 -fomit-frame-pointer -malign-loops=2
-malign-jumps=2 -malign-functions=2 -s', gccversion=2.8.1
cppflags='-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I. -D_EMX_CRT_REV_=63'
ccflags ='-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I. -D_EMX_CRT_REV_=63'
stdchar='char', d_stdstdio=define, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=4
alignbytes=4, usemymalloc=y, prototype=define
Linker and Libraries:
ld='gcc', ldflags ='-Zexe -Zomf -Zmt -Zcrtdll -Zstack 32000'
libpth=c:/emx/lib c:/emx/lib/mt
libs=-lsocket -lm -lbsd
libc=c:/emx/lib/mt/c_import.lib, so=dll, useshrplib=true,
libperl=libperl.lib
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
cccdlflags='-Zdll', lddlflags='-Zdll -Zomf -Zmt -Zcrtdll -s'
Characteristics of this binary (from libperl):
Compile-time options: USE_LARGE_FILES
Built under os2
Compiled at Mar 4 2001 16:32:30
@INC:
c:/usr/lib/perl/lib/5.6.0/os2
c:/usr/lib/perl/lib/5.6.0
c:/usr/lib/perl/lib/site_perl/5.6.0/os2
c:/usr/lib/perl/lib/site_perl/5.6.0
c:/usr/lib/perl/lib/site_perl
.
Thanks,
--ewh
--
John
