diff options
| author | Craig A. Berry <craigberry@mac.com> | 2004-09-04 06:58:56 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2004-09-06 08:49:24 +0000 |
| commit | 4adb88450c3225313624769fdb5ae7f59c89d326 (patch) | |
| tree | d7d56e86d13bb4eeeaa86b262db6d605d52ee2db /configure.com | |
| parent | fdb3bdd059fbc95fa3b254744f5311a0d67b4208 (diff) | |
| download | perl-4adb88450c3225313624769fdb5ae7f59c89d326.tar.gz | |
-Dunlink_all_versions for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <4139F450.7040708@mac.com>
p4raw-id: //depot/perl@23274
Diffstat (limited to 'configure.com')
| -rw-r--r-- | configure.com | 31 |
1 files changed, 29 insertions, 2 deletions
diff --git a/configure.com b/configure.com index 844ba774fb..356015fee8 100644 --- a/configure.com +++ b/configure.com @@ -44,6 +44,7 @@ $ extra_flags = "" $ user_c_flags = "" $ use_ieee_math = "y" $ be_case_sensitive = "n" +$ unlink_all_versions = "n" $ use_vmsdebug_perl = "n" $ use64bitall = "n" $ use64bitint = "n" @@ -880,7 +881,7 @@ $ config_symbols0 ="|archlib|archlibexp|bin|binexp|builddir|cf_email|config_sh $ config_symbols1 ="|installprivlib|installscript|installsitearch|installsitelib|most|oldarchlib|oldarchlibexp|osname|pager|perl_symbol|perl_verb|" $ config_symbols2 ="|prefix|privlib|privlibexp|scriptdir|sitearch|sitearchexp|sitebin|sitelib|sitelib_stem|sitelibexp|try_cxx|use64bitall|use64bitint|" $ config_symbols3 ="|usecasesensitive|usedefaulttypes|usedevel|useieee|useithreads|usemultiplicity|usemymalloc|usedebugging_perl|useperlio|usesecurelog|" -$ config_symbols4 ="|usethreads|usevmsdebug|usefaststdio|usemallocwrap|" +$ config_symbols4 ="|usethreads|usevmsdebug|usefaststdio|usemallocwrap|unlink_all_versions|" $! $ open/read CONFIG 'config_sh' $ rd_conf_loop: @@ -2445,6 +2446,30 @@ $ useieee = "undef" $ usecasesensitive = "undef" $ if (use_ieee_math) then useieee = "define" $ if (be_case_sensitive) then usecasesensitive = "define" +$! Unlink all versions? +$ echo "" +$ echo "By default, Perl's unlink() provides VMS-like behavior and only" +$ echo "deletes the latest version of a file. Enabling this option builds" +$ echo "Perl so that unlink() deletes all versions of a file." +$ bool_dflt = unlink_all_versions +$ if f$type(unlink_all_versions) .nes. "" +$ then +$ if unlink_all_versions .or. unlink_all_versions .eqs. "define" +$ then +$ bool_dflt="y" +$ else +$ bool_dflt="n" +$ endif +$ endif +$ rp = "Make unlink() delete all versions of a file? [''bool_dflt'] " +$ GOSUB myread +$ unlink_all_versions = ans +$ IF unlink_all_versions +$ THEN +$ d_unlink_all_versions = "define" +$ ELSE +$ d_unlink_all_versions = "undef" +$ ENDIF $! CC Flags $ echo "" $ echo "Your compiler may want other flags. For this question you should include" @@ -5594,7 +5619,7 @@ $ WC "d_ualarm='" + d_ualarm + "'" $ WC "d_umask='define'" $ WC "d_uname='" + d_uname + "'" $ WC "d_union_semun='undef'" -$ WC "d_unlink_all_versions='undef'" +$ WC "d_unlink_all_versions='" + d_unlink_all_versions + "'" ! VMS-specific $ WC "d_unordered='undef'" $ WC "d_usleep='" + d_usleep + "'" $ WC "d_usleepproto='" + d_usleep + "'" @@ -6166,6 +6191,8 @@ $! Alas this does not help to build Fcntl $! WC "#define PERL_IGNORE_FPUSIG SIGFPE" $ ENDIF $ IF kill_by_sigprc .EQS. "define" then WC "#define KILL_BY_SIGPRC" +$ IF unlink_all_versions .OR. unlink_all_versions .EQS. "define" THEN - + WC "#define UNLINK_ALL_VERSIONS" $ CLOSE CONFIG $! $ echo4 "Doing variable substitutions on .SH files..." |