"John E. Malmberg" <[EMAIL PROTECTED]> wrote on 01/27/2006 09:14:55 AM:
> Craig A. Berry wrote: > > At 5:31 PM -0500 1/26/06, John E. Malmberg wrote: > > > >> Martin Borgman of the Open Office on VMS team sent me this > >> information about a problem he had running Perl. > >> > >> Because he also needs to run Java, his session has the logical name > >> DECC$ARGV_PARSE_STYLE defined as "ENABLE". > >> > >> When this is set, the unquoted parameters are passed in exact case > >> to perl, and not converted to lower case. > >> > >> He found this problem and there may be some others, and it looks > >> like in this case it should not be too hard to patch the > >> configure.com to fix this. > >> > >> For PERLDOC, the resulting symbols need the -t to be in quotes in > >> one of these two ways: > >> > >>$ PERLDOC :== - > >> $PERL_ROOT:[000000]PERL.EXE PERL_ROOT:[LIB.POD]PERLDOC.COM "-t" > >> > >>$ PERLDOC == - > >> "$PERL_ROOT:[000000]PERL.EXE PERL_ROOT:[LIB.POD]PERLDOC.COM -t" > > > > I'm confused. The -t is already in lower case. Or is that DCL > > upcases it if you do not have extended parse enabled as well as > > DECC$ARGV_PARSE_STYLE enabled? > > DCL does not pay attention to the DECC$ARGV_PARSE_STYLE at all in this case. > > If the quotes are missing, the foreign command symbol PERLDOC will have > -T in it instead of -t per standard DCL rules. > > And then per the DECC$ARGV_PARSE_STYLE being enabled, the DECC RTL which > runs before main() is called in Perl will not lower case the parameter > as is the default behavior. > > Martin is reporting that the result is that the PERLDOC command stops > working. Does this patch to configure.com in perl @ 27105 help? I do not have DECC$ARGV_PARSE_STYLE defined and it did not hurt my use of things like `perldoc perlsync' or even `perldoc -f abs' when I had the "-t" in the symbol running against and installed perl 5.8.7: diff -ru perlat27105/configure.com perl/configure.com --- perlat27105/configure.com 2006-02-06 13:07:15.027099000 -0500 +++ perl/configure.com 2006-02-06 13:07:44.605491000 -0500 @@ -6950,7 +6950,7 @@ $ WRITE CONFIG "$ libnetcfg == """ + perl_setup_perl + " ''vms_prefix':[utils]libnetcfg.com""" $ WRITE CONFIG "$ perlbug == """ + perl_setup_perl + " ''vms_prefix':[lib]perlbug.com""" $ WRITE CONFIG "$!perlcc == """ + perl_setup_perl + " ''vms_prefix':[utils]perlcc.com""" -$ WRITE CONFIG "$ perldoc == """ + perl_setup_perl + " ''vms_prefix':[lib.pods]perldoc.com -t""" +$ WRITE CONFIG "$ perldoc == """ + perl_setup_perl + " ''vms_prefix':[lib.pods]perldoc.com """"-t""""""" $ WRITE CONFIG "$ perlivp == """ + perl_setup_perl + " ''vms_prefix':[utils]perlivp.com""" $ WRITE CONFIG "$ piconv == """ + perl_setup_perl + " ''vms_prefix':[utils]piconv.com""" $ WRITE CONFIG "$ pl2pm == """ + perl_setup_perl + " ''vms_prefix':[utils]pl2pm.com""" End of patch. Peter Prymmer I'll also include a MIME attached version to avoid possible line break problems in the above:
perldoc.patch
Description: Binary data