diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-09 22:27:19 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-09 22:27:19 +0000 |
| commit | 273cf8d1f309172b4416e78e4a8e80c12d941254 (patch) | |
| tree | 641986755e0e9fcd423ac9000b67cb3688ec8cec /perl.c | |
| parent | 97404f98a6349e3129d8b12b25786316a12e66dc (diff) | |
| download | perl-273cf8d1f309172b4416e78e4a8e80c12d941254.tar.gz | |
more changes for new-style version numbers (versions numbers on
the filesystem look like 5.5.640, except on DOS-DJGPP and VMS where
they look like 5_5_640; delete @Config{pm_apiversion,xs_apiversion};
split $Config{apiversion} into three, @Config{apirevision,apiversion,
apisubversion} for CPP friendliness; $Config{sitelib} now defaults
to .../site_perl/$version, just like $Config{privlib}, making sitelib
completely independent across versions and substantially eliminating
chances of breaking older installations by overwriting newly built
extensions; all this means compatibility inclusions for @INC will need
to take into account older sitelib versions (this still TODO)
windows, vms, dos tweaks for the above
p4raw-id: //depot/perl@4773
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -2263,8 +2263,8 @@ sed %s -e \"/^[^#]/b\" \ { /* try again */ PerlProc_execv(Perl_form(aTHX_ "%s/sperl"PERL_FS_VER_FMT, BIN_EXP, - (UV)PERL_REVISION, (UV)PERL_VERSION, - (UV)PERL_SUBVERSION), PL_origargv); + (int)PERL_REVISION, (int)PERL_VERSION, + (int)PERL_SUBVERSION), PL_origargv); Perl_croak(aTHX_ "Can't do setuid\n"); } #endif @@ -2512,8 +2512,8 @@ FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n"); #ifndef IAMSUID /* try again */ PerlProc_execv(Perl_form(aTHX_ "%s/sperl"PERL_FS_VER_FMT, BIN_EXP, - (UV)PERL_REVISION, (UV)PERL_VERSION, - (UV)PERL_SUBVERSION), PL_origargv); + (int)PERL_REVISION, (int)PERL_VERSION, + (int)PERL_SUBVERSION), PL_origargv); #endif Perl_croak(aTHX_ "Can't do setuid\n"); } @@ -2596,8 +2596,8 @@ FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n"); fcntl(PerlIO_fileno(PL_rsfp),F_SETFD,0); /* ensure no close-on-exec */ #endif PerlProc_execv(Perl_form(aTHX_ "%s/perl"PERL_FS_VER_FMT, BIN_EXP, - (UV)PERL_REVISION, (UV)PERL_VERSION, - (UV)PERL_SUBVERSION), PL_origargv);/* try again */ + (int)PERL_REVISION, (int)PERL_VERSION, + (int)PERL_SUBVERSION), PL_origargv);/* try again */ Perl_croak(aTHX_ "Can't do setuid\n"); #endif /* IAMSUID */ #else /* !DOSUID */ @@ -3040,8 +3040,8 @@ S_incpush(pTHX_ char *p, int addsubdirs) #endif /* .../archname/version if -d .../archname/version/auto */ Perl_sv_setpvf(aTHX_ subdir, "%_/%s/"PERL_FS_VER_FMT"/auto", libdir, - ARCHNAME, (UV)PERL_REVISION, - (UV)PERL_VERSION, (UV)PERL_SUBVERSION); + ARCHNAME, (int)PERL_REVISION, + (int)PERL_VERSION, (int)PERL_SUBVERSION); if (PerlLIO_stat(SvPVX(subdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode)) av_push(GvAVn(PL_incgv), |