diff options
Diffstat (limited to 'gnu/usr.bin/perl')
37 files changed, 14570 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/Changes5.000 b/gnu/usr.bin/perl/Changes5.000 new file mode 100644 index 00000000000..78cab26f14c --- /dev/null +++ b/gnu/usr.bin/perl/Changes5.000 @@ -0,0 +1,185 @@ +------------- +Version 5.000 +------------- + +New things +---------- + The -w switch is much more informative. + + References. See t/op/ref.t for examples. All entities in Perl 5 are + reference counted so that it knows when each item should be destroyed. + + Objects. See t/op/ref.t for examples. + + => is now a synonym for comma. This is useful as documentation for + arguments that come in pairs, such as initializers for associative arrays, + or named arguments to a subroutine. + + All functions have been turned into list operators or unary operators, + meaning the parens are optional. Even subroutines may be called as + list operators if they've already been declared. + + More embeddible. See main.c and embed_h.sh. Multiple interpreters + in the same process are supported (though not with interleaved + execution yet). + + The interpreter is now flattened out. Compare Perl 4's eval.c with + the perl 5's pp.c. Compare Perl 4's 900 line interpreter loop in cmd.c + with Perl 5's 1 line interpreter loop in run.c. Eventually we'll make + everything non-blocking so we can interface nicely with a scheduler. + + eval is now treated more like a subroutine call. Among other things, + this means you can return from it. + + Format value lists may be spread over multiple lines by enclosing in + a do {} block. + + You may now define BEGIN and END subroutines for each package. The BEGIN + subroutine executes the moment it's parsed. The END subroutine executes + just before exiting. + + Flags on the #! line are interpreted even if the script wasn't + executed directly. (And even if the script was located by "perl -x"!) + + The ?: operator is now legal as an lvalue. + + List context now propagates to the right side of && and ||, as well + as the 2nd and 3rd arguments to ?:. + + The "defined" function can now take a general expression. + + Lexical scoping available via "my". eval can see the current lexical + variables. + + The preferred package delimiter is now :: rather than '. + + tie/untie are now preferred to dbmopen/dbmclose. Multiple DBM + implementations are allowed in the same executable, so you can + write scripts to interchange data among different formats. + + New "and" and "or" operators work just like && and || but with + a precedence lower than comma, so they work better with list operators. + + New functions include: abs(), chr(), uc(), ucfirst(), lc(), lcfirst(), + chomp(), glob() + + require with a number checks to see that the version of Perl that is + currently running is at least that number. + + Dynamic loading of external modules is now supported. + + There is a new quote form qw//, which is equivalent to split(' ', q//). + + Assignment of a reference to a glob value now just replaces the + single element of the glob corresponding to the reference type: + *foo = \$bar, *foo = \&bletch; + + Filehandle methods are now supported: + output_autoflush STDOUT 1; + + There is now an "English" module that provides human readable translations + for cryptic variable names. + + Autoload stubs can now call the replacement subroutine with goto &realsub. + + Subroutines can be defined lazily in any package by declaring an AUTOLOAD + routine, which will be called if a non-existent subroutine is called in + that package. + + Several previously added features have been subsumed under the new + keywords "use" and "no". Saying "use Module LIST" is short for + BEGIN { require Module; import Module LIST; } + The "no" keyword is identical except that it calls "unimport" instead. + The earlier pragma mechanism now uses this mechanism, and two new + modules have been added to the library to implement "use integer" + and variations of "use strict vars, refs, subs". + + Variables may now be interpolated literally into a pattern by prefixing + them with \Q, which works just like \U, but backwhacks non-alphanumerics + instead. There is also a corresponding quotemeta function. + + Any quantifier in a regular expression may now be followed by a ? to + indicate that the pattern is supposed to match as little as possible. + + Pattern matches may now be followed by an m or s modifier to explicitly + request multiline or singleline semantics. An s modifier makes . match + newline. + + Patterns may now contain \A to match only at the beginning of the string, + and \Z to match only at the end. These differ from ^ and $ in that + they ignore multiline semantics. In addition, \G matches where the + last interation of m//g or s///g left off. + + Non-backreference-producing parens of various sorts may now be + indicated by placing a ? directly after the opening parenthesis, + followed by a character that indicates the purpose of the parens. + An :, for instance, indicates simple grouping. (?:a|b|c) will + match any of a, b or c without producing a backreference. It does + "eat" the input. There are also assertions which do not eat the + input but do lookahead for you. (?=stuff) indicates that the next + thing must be "stuff". (?!nonsense) indicates that the next thing + must not be "nonsense". + + The negation operator now treats non-numeric strings specially. + A -"text" is turned into "-text", so that -bareword is the same + as "-bareword". If the string already begins with a + or -, it + is flipped to the other sign. + +Incompatibilities +----------------- + @ now always interpolates an array in double-quotish strings. Some programs + may now need to use backslash to protect any @ that shouldn't interpolate. + + Ordinary variables starting with underscore are no longer forced into + package main. + + s'$lhs'$rhs' now does no interpolation on either side. It used to + interplolate $lhs but not $rhs. + + The second and third arguments of splice are now evaluated in scalar + context (like the book says) rather than list context. + + Saying "shift @foo + 20" is now a semantic error because of precedence. + + "open FOO || die" is now incorrect. You need parens around the filehandle. + + The elements of argument lists for formats are now evaluated in list + context. This means you can interpolate list values now. + + You can't do a goto into a block that is optimized away. Darn. + + It is no longer syntactically legal to use whitespace as the name + of a variable, or as a delimiter for any kind of quote construct. + + Some error messages will be different. + + The caller function now returns a false value in a scalar context if there + is no caller. This lets library files determine if they're being required. + + m//g now attaches its state to the searched string rather than the + regular expression. + + "reverse" is no longer allowed as the name of a sort subroutine. + + taintperl is no longer a separate executable. There is now a -T + switch to turn on tainting when it isn't turned on automatically. + + Symbols starting with _ are no longer forced into package main, except + for $_ itself (and @_, etc.). + + Double-quoted strings may no longer end with an unescaped $ or @. + + Negative array subscripts now count from the end of the array. + + The comma operator in a scalar context is now guaranteed to give a + scalar context to its arguments. + + The ** operator now binds more tightly than unary minus. + + Setting $#array lower now discards array elements so that destructors + work reasonably. + + delete is not guaranteed to return the old value for tied arrays, + since this capability may be onerous for some modules to implement. + + Attempts to set $1 through $9 now result in a run-time error. diff --git a/gnu/usr.bin/perl/Changes5.001 b/gnu/usr.bin/perl/Changes5.001 new file mode 100644 index 00000000000..c26134a79aa --- /dev/null +++ b/gnu/usr.bin/perl/Changes5.001 @@ -0,0 +1,1299 @@ +------------- +Version 5.001 +------------- + +Nearly all the changes for 5.001 were bug fixes of one variety or another, +so here's the bug list, along with the "resolution" for each of them. If +you wish to correspond about any of them, please include the bug number. + +There were a few that can be construed as enhancements: + NETaa13059: now warns of use of \1 where $1 is necessary. + NETaa13512: added $SIG{__WARN__} and $SIG{__DIE__} hooks + NETaa13520: added closures + NETaa13530: scalar keys now resets hash iterator + NETaa13641: added Tim's fancy new import whizbangers + NETaa13710: cryptswitch needed to be more "useable" + NETaa13716: Carp now allows multiple packages to be skipped out of + NETaa13716: now counts imported routines as "defined" for redef warnings + (and, of course, much of the stuff from the perl5-porters) + +NETaa12974: README incorrectly said it was a pre-release. +Files patched: README + +NETaa13033: goto pushed a bogus scope on the context stack. +From: Steve Vinoski +Files patched: pp_ctl.c + The goto operator pushed an extra bogus scope onto the context stack. (This + often didn't matter, since many things pop extra unrecognized scopes off.) + +NETaa13034: tried to get valid pointer from undef. +From: Castor Fu +Also: Achille Hui, the Day Dreamer +Also: Eric Arnold +Files patched: pp_sys.c + Now treats undef specially, and calls SvPV_force on any non-numeric scalar + value to get a real pointer to somewhere. + +NETaa13035: included package info with filehandles. +From: Jack Shirazi - BIU +Files patched: pp_hot.c pp_sys.c + Now passes a glob to filehandle methods to keep the package info intact. + +NETaa13048: didn't give strict vars message on every occurrence. +From: Doug Campbell +Files patched: gv.c + It now complains about every occurrence. (The bug resulted from an + ill-conceived attempt to suppress a duplicate error message in a + suboptimal fashion.) + +NETaa13052: test for numeric sort sub return value fooled by taint magic. +From: Peter Jaspers-Fayer +Files patched: pp_ctl.c sv.h + The test to see if the sort sub return value was numeric looked at the + public flags rather than the private flags of the SV, so taint magic + hid that info from the sort. + +NETaa13053: forced a2p to use byacc +From: Andy Dougherty +Files patched: MANIFEST x2p/Makefile.SH x2p/a2p.c + a2p.c is now pre-byacced and shipped with the kit. + +NETaa13055: misnamed constant in previous patch. +From: Conrad Augustin +Files patched: op.c op.h toke.c + The tokener translates $[ to a constant, but with a special marking in case + the constant gets assigned to or localized. Unfortunately, the marking + was done with a combination of OPf_SPECIAL and OPf_MOD that was easily + spoofed. There is now a private OPpCONST_ARYLEN flag for this purpose. + +NETaa13055: use of OPf_SPECIAL for $[ lvaluehood was too fragile. +Files patched: op.c op.h toke.c + (same) + +NETaa13056: convert needs to throw away any number info on its list. +From: Jack Shirazi - BIU +Files patched: op.c + The listiness of the argument list leaked out to the subroutine call because + of how prepend_elem and append_elem reuse an existing list. The convert() + routine just needs to discard any listiness it finds on its argument. + +NETaa13058: AUTOLOAD shouldn't assume size of @_ is meaningful. +From: Florent Guillaume +Files patched: ext/DB_File/DB_File.pm ext/Fcntl/Fcntl.pm ext/GDBM_File/GDBM_File.pm ext/Socket/Socket.pm h2xs.SH + I just deleted the optimization, which is silly anyway since the eventual + subroutine definition is cached. + +NETaa13059: now warns of use of \1 where $1 is necessary. +From: Gustaf Neumann +Files patched: toke.c + Now says + + Can't use \1 to mean $1 in expression at foo line 2 + + along with an explanation in perldiag. + +NETaa13060: no longer warns on attempt to read <> operator's transition state. +From: Chaim Frenkel +Files patched: pp_hot.c + No longer warns on <> operator's transitional state. + +NETaa13140: warning said $ when @ would be more appropriate. +From: David J. MacKenzie +Files patched: op.c pod/perldiag.pod + Now says + + (Did you mean $ or @ instead of %?) + + and added more explanation to perldiag. + +NETaa13149: was reading freed memory to make incorrect error message. +Files patched: pp_ctl.c + It was reading freed memory to make an error message that would be + incorrect in any event because it had the inner filename rather than + the outer. + +NETaa13149: confess was sometimes less informative than croak +From: Jack Shirazi +Files patched: lib/Carp.pm + (same) + +NETaa13150: stderr needs to be STDERR in package +From: Jack Shirazi +Files patched: lib/File/CheckTree.pm + Also fixed pl2pm to translate the filehandles to uppercase. + +NETaa13150: uppercases stdin, stdout and stderr +Files patched: pl2pm + (same) + +NETaa13154: array assignment didn't notice package magic. +From: Brian Reichert +Files patched: pp_hot.c + The list assignment operator looked for only set magic, but set magic is + only on the elements of a magical hash, not on the hash as a whole. I made + the operator look for any magic at all on the target array or hash. + +NETaa13155: &DB::DB left trash on the stack. +From: Thomas Koenig +Files patched: lib/perl5db.pl pp_ctl.c + The call by pp_dbstate() to &DB::DB left trash on the stack. It now + calls DB in list context, and DB returns (). + +NETaa13156: lexical variables didn't show up in debugger evals. +From: Joergen Haegg +Files patched: op.c + The code that searched back up the context stack for the lexical scope + outside the eval only partially took into consideration that there + might be extra debugger subroutine frames that shouldn't be used, and + ended up comparing the wrong statement sequence number to the range of + valid sequence numbers for the scope of the lexical variable. (There + was also a bug fixed in passing that caused the scope of lexical to go + clear to the end of the subroutine even if it was within an inner block.) + +NETaa13157: any request for autoloaded DESTROY should create a null one. +From: Tom Christiansen +Files patched: lib/AutoLoader.pm + If DESTROY.al is not located, it now creates sub DESTROY {} automatically. + +NETaa13158: now preserves $@ around destructors while leaving eval. +From: Tim Bunce +Files patched: pp_ctl.c + Applied supplied patch, except the whole second hunk can be replaced with + + sv_insert(errsv, 0, 0, message, strlen(message)); + +NETaa13160: clarified behavior of split without arguments +From: Harry Edmon +Files patched: pod/perlfunc.pod + Clarified the behavior of split without arguments. + +NETaa13162: eval {} lost list/scalar context +From: Dov Grobgeld +Files patched: op.c + LEAVETRY didn't propagate number to ENTERTRY. + +NETaa13163: clarified documentation of foreach using my variable +From: Tom Christiansen +Files patched: pod/perlsyn.pod + Explained that foreach using a lexical is still localized. + +NETaa13164: the dot detector for the end of formats was over-rambunctious. +From: John Stoffel +Files patched: toke.c + The dot detector for the end of formats was over-rambunctious. It would + pick up any dot that didn't have a space in front of it. + +NETaa13165: do {} while 1 never linked outer block into next chain. +From: Gisle Aas +Files patched: op.c + When the conditional of do {} while 1; was optimized away, it confused the + postfix order construction so that the block that ordinarily sits around the + whole loop was never executed. So when the loop tried to unstack between + iterations, it got the wrong context, and blew away the lexical variables + of the outer scope. Fixed it by introducing a NULL opcode that will be + optimized away later. + +NETaa13167: coercion was looking at public bits rather than private bits. +From: Randal L. Schwartz +Also: Thomas Riechmann +Also: Shane Castle +Files patched: sv.c + There were some bad ifdefs around the various varieties of set*id(). In + addition, tainting was interacting badly with assignment to $> because + sv_2iv() was examining SvPOK rather than SvPOKp, and so couldn't coerce + a string uid to an integer one. + +NETaa13167: had some ifdefs wrong on set*id. +Files patched: mg.c pp_hot.c + (same) + +NETaa13168: relaxed test for comparison of new and old fds +From: Casper H.S. Dik +Files patched: t/lib/posix.t + I relaxed the comparison to just check that the new fd is greater. + +NETaa13169: autoincrement can corrupt scalar value state. +From: Gisle Aas +Also: Tom Christiansen +Files patched: sv.c + It assumed a PV didn't need to be upgraded to become an NV. + +NETaa13169: previous patch could leak a string pointer. +Files patched: sv.c + (same) + +NETaa13170: symbols missing from global.sym +From: Tim Bunce +Files patched: global.sym + Applied suggested patch. + +NETaa13171: \\ in <<'END' shouldn't reduce to \. +From: Randal L. Schwartz +Files patched: toke.c + <<'END' needed to bypass ordinary single-quote processing. + +NETaa13172: 'use integer' turned off magical autoincrement. +From: Erich Rickheit KSC +Files patched: pp.c pp_hot.c + The integer versions of the increment and decrement operators were trying too + hard to be efficient. + +NETaa13172: deleted duplicate increment and decrement code +Files patched: opcode.h opcode.pl pp.c + (same) + +NETaa13173: install should make shared libraries executable. +From: Brian Grossman +Also: Dave Nadler +Also: Eero Pajarre +Files patched: installperl + Now gives permission 555 to any file ending with extension specified by $dlext. + +NETaa13176: ck_rvconst didn't free the const it used up. +From: Nick Duffek +Files patched: op.c + I checked in many random memory leaks under this bug number, since it + was an eval that brought many of them out. + +NETaa13176: didn't delete XRV for temp ref of destructor. +Files patched: sv.c + (same) + +NETaa13176: didn't delete op_pmshort in matching operators. +Files patched: op.c + (same) + +NETaa13176: eval leaked the name of the eval. +Files patched: scope.c + (same) + +NETaa13176: gp_free didn't free the format. +Files patched: gv.c + (same) + +NETaa13176: minor leaks in loop exits and constant subscript optimization. +Files patched: op.c + (same) + +NETaa13176: plugged some duplicate struct allocation memory leaks. +Files patched: perl.c + (same) + +NETaa13176: sv_clear of an FM didn't clear anything. +Files patched: sv.c + (same) + +NETaa13176: tr/// didn't mortalize its return value. +Files patched: pp.c + (same) + +NETaa13177: SCOPE optimization hid line number info +From: David J. MacKenzie +Also: Hallvard B Furuseth +Files patched: op.c + Every pass on the syntax tree has to keep track of the current statement. + Unfortunately, the single-statement block was optimized into a single + statement between the time the variable was parsed and the time the + void code scan was done, so that pass didn't see the OP_NEXTSTATE + operator, because it has been optimized to an OP_NULL. + + Fortunately, null operands remember what they were, so it was pretty easy + to make it set the correct line number anyway. + +NETaa13178: some linux doesn't handle nm well +From: Alan Modra +Files patched: hints/linux.sh + Applied supplied patch. + +NETaa13180: localized slice now pre-extends array +From: Larry Schuler +Files patched: pp.c + A localized slice now pre-extends its array to avoid reallocation during + the scope of the local. + +NETaa13181: m//g didn't keep track of whether previous match matched null. +From: "philippe.verdret" +Files patched: mg.h pp_hot.c + A pattern isn't allowed to match a null string in the same place twice in + a row. m//g wasn't keeping track of whether the previous match matched + the null string. + +NETaa13182: now includes whitespace as a regexp metacharacter. +From: Larry Wall +Files patched: toke.c + scan_const() now counts " \t\n\r\f\v" as metacharacters when scanning a pattern. + +NETaa13183: sv_setsv shouldn't try to clone an object. +From: Peter Gordon +Files patched: sv.c + The sv_mortalcopy() done by the return in STORE called sv_setsv(), + which cloned the object. sv_setsv() shouldn't be in the business of + cloning objects. + +NETaa13184: bogus warning on quoted signal handler name removed. +From: Dan Carson +Files patched: toke.c + Now doesn't complain unless the first non-whitespace character after the = + is an alphabetic character. + +NETaa13186: now croaks on chop($') +From: Casper H.S. Dik +Files patched: doop.c + Now croaks on chop($') and such. + +NETaa13187: "${foo::bar}" now counts as mere delimitation, not as a bareword. +From: Jay Rogers +Files patched: toke.c + "${foo::bar}" now counts as mere delimitation, not as a bareword inside a + reference block. + +NETaa13188: for backward compatibility, looks for "perl -" before "perl". +From: Russell Mosemann +Files patched: toke.c + Now allows non-whitespace characters on the #! line between the "perl" + and the "-". + +NETaa13188: now allows non-whitespace after #!...perl before switches. +Files patched: toke.c + (same) + +NETaa13189: derivative files need to be removed before recreation +From: Simon Leinen +Also: Dick Middleton +Also: David J. MacKenzie +Files patched: embed_h.sh x2p/Makefile.SH + Fixed various little nits as suggested in several messages. + +NETaa13190: certain assignments can spoof pod directive recognizer +From: Ilya Zakharevich +Files patched: toke.c + The lexer now only recognizes pod directives where a statement is expected. + +NETaa13194: now returns undef when there is no curpm. +From: lusol@Dillon.CC.Lehigh.EDU +Files patched: mg.c + Since there was no regexp prior to the "use", it was returning whatever the + last successful match was within the "use", because there was no current + regexp, so it treated it as a normal variable. It now returns undef. + +NETaa13195: semop had one S too many. +From: Joachim Huober +Files patched: opcode.pl + The entry in opcode.pl had one too many S's. + +NETaa13196: always assumes it's a Perl script if -c is used. +From: Dan Carson +Files patched: toke.c + It now will assume it's a Perl script if the -c switch is used. + +NETaa13197: changed implicit -> message to be more understandable. +From: Bruce Barnett +Files patched: op.c pod/perldiag.pod + I changed the error message to be more understandable. It now says + + Can't use subscript on sort... + + +NETaa13201: added OPpCONST_ENTERED flag to properly enter filehandle symbols. +From: E. Jay Berkenbilt +Also: Tom Christiansen +Files patched: op.c op.h toke.c + The grammatical reduction of a print statement didn't properly count + the filehandle as a symbol reference because it couldn't distinguish + between a symbol entered earlier in the program and a symbol entered + for the first time down in the lexer. + +NETaa13203: README shouldn't mention uperl.o any more. +From: Anno Siegel +Files patched: README + +NETaa13204: .= shouldn't warn on uninitialized target. +From: Pete Peterson +Files patched: pp_hot.c + No longer warns on uninitialized target of .= operator. + +NETaa13206: handy macros in XSUB.h +From: Tim Bunce +Files patched: XSUB.h + Added suggested macros. + +NETaa13228: commonality checker didn't treat lexicals as variables. +From: mcook@cognex.com +Files patched: op.c opcode.pl + The list assignment operator tries to avoid unnecessary copies by doing the + assignment directly if there are no common variables on either side of the + equals. Unfortunately, the code that decided that only recognized references + to dynamic variables, not lexical variables. + +NETaa13229: fixed sign stuff for complement, integer coercion. +From: Larry Wall +Files patched: perl.h pp.c sv.c + Fixed ~0 and integer coercions. + +NETaa13230: no longer tries to reuse scratchpad temps if tainting in effect. +From: Luca Fini +Files patched: op.c + I haven't reproduced it, but I believe the problem is the reuse of scratchpad + temporaries between statements. I've made it not try to reuse them if + tainting is in effect. + +NETaa13231: *foo = *bar now prevents typo warnings on "foo" +From: Robin Barker +Files patched: sv.c + Aliasing of the form *foo = *bar is now protected from the typo warnings. + Previously only the *foo = \$bar form was. + +NETaa13235: require BAREWORD now introduces package name immediately. +From: Larry Wall +Files patched: toke.c + require BAREWORD now introduces package name immediately. This lets the + method intuit code work right even though the require hasn't actually run + yet. + +NETaa13289: didn't calculate correctly using arybase. +From: Jared Rhine +Files patched: pp.c pp_hot.c + The runtime code didn't use curcop->cop_arybase correctly. + +NETaa13301: store now throws exception on error +From: Barry Friedman +Files patched: ext/GDBM_File/GDBM_File.xs ext/NDBM_File/NDBM_File.xs ext/ODBM_File/ODBM_File.xs ext/SDBM_File/SDBM_File.xs + Changed warn to croak in ext/*DBM_File/*.xs. + +NETaa13302: ctime now takes Time_t rather than Time_t*. +From: Rodger Anderson +Files patched: ext/POSIX/POSIX.xs + Now declares a Time_t and takes the address of that in CODE. + +NETaa13302: shorter way to do this patch +Files patched: ext/POSIX/POSIX.xs + (same) + +NETaa13304: could feed too large $@ back into croak, whereupon it croaked. +From: Larry Wall +Files patched: perl.c + callist() could feed $@ back into croak with more than a bare %s. (croak() + handles long strings with a bare %s okay.) + +NETaa13305: compiler misoptimized RHS to outside of s/a/print/e +From: Brian S. Cashman <bsc@umich.edu> +Files patched: op.c + The syntax tree was being misconstructed because the compiler felt that + the RHS was invariant, so it did it outside the s///. + +NETaa13314: assigning mortal to lexical leaks +From: Larry Wall +Files patched: sv.c + In stealing strings, sv_setsv was checking SvPOK to see if it should free + the destination string. It should have been checking SvPVX. + +NETaa13316: wait4pid now recalled when errno == EINTR +From: Robert J. Pankratz +Files patched: pp_sys.c util.c + system() and the close() of a piped open now recall wait4pid if it returned + prematurely with errno == EINTR. + +NETaa13329: needed to localize taint magic +From: Brian Katzung +Files patched: sv.c doio.c mg.c pp_hot.c pp_sys.c scope.c taint.c + Taint magic is now localized better, though I had to resort to a kludge + to allow a value to be both tainted and untainted simultaneously during + the assignment of + + local $foo = $_[0]; + + when $_[0] is a reference to the variable $foo already. + +NETaa13341: clarified interaction of AnyDBM_File::ISA and "use" +From: Ian Phillipps +Files patched: pod/modpods/AnyDBMFile.pod + The doc was misleading. + +NETaa13342: grep and map with block would enter block but never leave it. +From: Ian Phillipps +Files patched: op.c + The compiler use some sort-checking code to handle the arguments of + grep and map. Unfortunately, this wiped out the block exit opcode while + leaving the block entry opcode. This doesn't matter to sort, but did + matter to grep and map. It now leave the block entry intact. + + The reason it worked without the my is because the block entry and exit + were optimized away to an OP_SCOPE, which it doesn't matter if it's there + or not. + +NETaa13343: goto needed to longjmp when in a signal handler. +From: Robert Partington +Files patched: pp_ctl.c + goto needed to longjmp() when in a signal handler to get back into the + right run() context. + + +NETaa13344: strict vars shouldn't apply to globs or filehandles. +From: Andrew Wilcox +Files patched: gv.c + Filehandles and globs will be excepted from "strict vars", so that you can + do the standard Perl 4 trick of + + use strict; + sub foo { + local(*IN); + open(IN,"file"); + } + + +NETaa13345: assert.pl didn't use package DB +From: Hans Mulder +Files patched: lib/assert.pl + Now it does. + +NETaa13348: av_undef didn't free scalar representing $#foo. +From: David Filo +Files patched: av.c + av_undef didn't free scalar representing $#foo. + +NETaa13349: sort sub accumulated save stack entries +From: David Filo +Files patched: pp_ctl.c + COMMON only gets set if assigning to @_, which is reasonable. Most of the + problem was a memory leak. + +NETaa13351: didn't treat indirect filehandles as references. +From: Andy Dougherty +Files patched: op.c + Now produces + + Can't use an undefined value as a symbol reference at ./foo line 3. + + +NETaa13352: OP_SCOPE allocated as UNOP rather than LISTOP. +From: Andy Dougherty +Files patched: op.c + +NETaa13353: scope() didn't release filegv on OP_SCOPE optimization. +From: Larry Wall +Files patched: op.c + When scope() nulled out a NEXTSTATE, it didn't release its filegv reference. + +NETaa13355: hv_delete now avoids useless mortalcopy +From: Larry Wall +Files patched: hv.c op.c pp.c pp_ctl.c proto.h scope.c util.c + hv_delete now avoids useless mortalcopy. + + +NETaa13359: comma operator section missing its heading +From: Larry Wall +Files patched: pod/perlop.pod + +NETaa13359: random typo +Files patched: pod/perldiag.pod + +NETaa13360: code to handle partial vec values was bogus. +From: Conrad Augustin +Files patched: pp.c + The code that Mark J. added a long time ago to handle values that were partially + off the end of the string was incorrect. + +NETaa13361: made it not interpolate inside regexp comments +From: Martin Jost +Files patched: toke.c + To avoid surprising people, it no longer interpolates inside regexp + comments. + +NETaa13362: ${q[1]} should be interpreted like it used to +From: Hans Mulder +Files patched: toke.c + Now resolves ${keyword[1]} to $keyword[1] and warns if -w. Likewise for {}. + +NETaa13363: meaning of repeated search chars undocumented in tr/// +From: Stephen P. Potter +Files patched: pod/perlop.pod + Documented that repeated characters use the first translation given. + +NETaa13365: if closedir fails, don't try it again. +From: Frank Crawford +Files patched: pp_sys.c + Now does not attempt to closedir a second time. + +NETaa13366: can't do block scope optimization on $1 et al when tainting. +From: Andrew Vignaux +Files patched: toke.c + The tainting mechanism assumes that every statement starts out + untainted. Unfortunately, the scope removal optimization for very + short blocks removed the statementhood of statements that were + attempting to read $1 as an untainted value, with the effect that $1 + appeared to be tainted anyway. The optimization is now disabled when + tainting and the block contains $1 (or equivalent). + +NETaa13366: fixed this a better way in toke.c. +Files patched: op.c + (same) + +NETaa13366: need to disable scope optimization when tainting. +Files patched: op.c + (same) + +NETaa13367: Did a SvCUR_set without nulling out final char. +From: "Rob Henderson" <robh@cs.indiana.edu> +Files patched: doop.c pp.c pp_sys.c + When do_vop set the length on its result string it neglected to null-terminate + it. + +NETaa13368: bigrat::norm sometimes chucked sign +From: Greg Kuperberg +Files patched: lib/bigrat.pl + The normalization routine was assuming that the gcd of two numbers was + never negative, and based on that assumption managed to move the sign + to the denominator, where it was deleted on the assumption that the + denominator is always positive. + +NETaa13368: botched previous patch +Files patched: lib/bigrat.pl + (same) + +NETaa13369: # is now a comment character, and \# should be left for regcomp. +From: Simon Parsons +Files patched: toke.c + It was not skipping the comment when it skipped the white space, and constructed + an opcode that tried to match a null string. Unfortunately, the previous + star tried to use the first character of the null string to optimize where + to recurse, so it never matched. + +NETaa13369: comment after regexp quantifier induced non-match. +Files patched: regcomp.c + (same) + +NETaa13370: some code assumed SvCUR was of type int. +From: Spider Boardman +Files patched: pp_sys.c + Did something similar to the proposed patch. I also fixed the problem that + it assumed the type of SvCUR was int. And fixed get{peer,sock}name the + same way. + +NETaa13375: sometimes dontbother wasn't added back into strend. +From: Jamshid Afshar +Files patched: regexec.c + When the /g modifier was used, the regular expression code would calculate + the end of $' too short by the minimum number of characters the pattern could + match. + +NETaa13375: sv_setpvn now disallows negative length. +Files patched: sv.c + (same) + +NETaa13376: suspected indirect objecthood prevented recognition of lexical. +From: Gisle.Aas@nr.no +Files patched: toke.c + When $data[0] is used in a spot that might be an indirect object, the lexer + was getting confused over the rule that says the $data in $$data[0] isn't + an array element. (The lexer uses XREF state for both indirect objects + and for variables used as names.) + +NETaa13377: -I processesing ate remainder of #! line. +From: Darrell Schiebel +Files patched: perl.c + I made the -I processing in moreswitches look for the end of the string, + delimited by whitespace. + +NETaa13379: ${foo} now treated the same outside quotes as inside +From: Hans Mulder +Files patched: toke.c + ${bareword} is now treated the same outside quotes as inside. + +NETaa13379: previous fix for this bug was botched +Files patched: toke.c + (same) + +NETaa13381: TEST should check for perl link +From: Andy Dougherty +Files patched: t/TEST + die "You need to run \"make test\" first to set things up.\n" unless -e 'perl'; + + +NETaa13384: fixed version 0.000 botch. +From: Larry Wall +Files patched: installperl + +NETaa13385: return 0 from required file loses message +From: Malcolm Beattie +Files patched: pp_ctl.c + Works right now. + +NETaa13387: added pod2latex +From: Taro KAWAGISHI +Files patched: MANIFEST pod/pod2latex + Added most recent copy to pod directory. + +NETaa13388: constant folding now prefers integer results over double +From: Ilya Zakharevich +Files patched: op.c + Constant folding now prefers integer results over double. + +NETaa13389: now treats . and exec as shell metathingies +From: Hans Mulder +Files patched: doio.c + Now treats . and exec as shell metathingies. + +NETaa13395: eval didn't check taintedness. +From: Larry Wall +Files patched: pp_ctl.c + +NETaa13396: $^ coredumps at end of string +From: Paul Rogers +Files patched: toke.c + The scan_ident() didn't check for a null following $^. + +NETaa13397: improved error messages when operator expected +From: Larry Wall +Files patched: toke.c + Added message (Do you need to predeclare BAR?). Also fixed the missing + semicolon message. + +NETaa13399: cleanup by Andy +From: Larry Wall +Files patched: Changes Configure Makefile.SH README cflags.SH config.H config_h.SH deb.c doop.c dump.c ext/DB_File/DB_File.pm ext/DB_File/DB_File.xs ext/DynaLoader/DynaLoader.pm ext/Fcntl/Fcntl.pm ext/GDBM_File/GDBM_File.pm ext/POSIX/POSIX.pm ext/SDBM_File/sdbm/sdbm.h ext/Socket/Socket.pm ext/util/make_ext h2xs.SH hints/aix.sh hints/bsd386.sh hints/dec_osf.sh hints/esix4.sh hints/freebsd.sh hints/irix_5.sh hints/next_3_2.sh hints/sunos_4_1.sh hints/svr4.sh hints/ultrix_4.sh installperl lib/AutoSplit.pm lib/Cwd.pm lib/ExtUtils/MakeMaker.pm lib/ExtUtils/xsubpp lib/Term/Cap.pm mg.c miniperlmain.c perl.c perl.h perl_exp.SH pod/Makefile pod/perldiag.pod pod/pod2html pp.c pp_ctl.c pp_hot.c pp_sys.c proto.h sv.h t/re_tests util.c x2p/Makefile.SH x2p/a2p.h x2p/a2py.c x2p/handy.h x2p/hash.c x2p/hash.h x2p/str.c x2p/str.h x2p/util.c x2p/util.h x2p/walk.c + +NETaa13399: cleanup from Andy +Files patched: MANIFEST + +NETaa13399: configuration cleanup +Files patched: Configure Configure MANIFEST MANIFEST Makefile.SH Makefile.SH README config.H config.H config_h.SH config_h.SH configpm ext/DynaLoader/DynaLoader.pm ext/DynaLoader/dl_hpux.xs ext/NDBM_File/Makefile.PL ext/ODBM_File/Makefile.PL ext/util/make_ext handy.h hints/aix.sh hints/hpux_9.sh hints/hpux_9.sh hints/irix_4.sh hints/linux.sh hints/mpeix.sh hints/next_3_2.sh hints/solaris_2.sh hints/svr4.sh installperl installperl lib/AutoSplit.pm lib/ExtUtils/MakeMaker.pm lib/ExtUtils/MakeMaker.pm lib/ExtUtils/xsubpp lib/Getopt/Long.pm lib/Text/Tabs.pm makedepend.SH makedepend.SH mg.c op.c perl.h perl_exp.SH pod/perl.pod pod/perldiag.pod pod/perlsyn.pod pod/pod2man pp_sys.c proto.h proto.h unixish.h util.c util.c vms/config.vms writemain.SH x2p/a2p.h x2p/a2p.h x2p/a2py.c x2p/a2py.c x2p/handy.h x2p/util.c x2p/walk.c x2p/walk.c + +NETaa13399: new files from Andy +Files patched: ext/DB_File/Makefile.PL ext/DynaLoader/Makefile.PL ext/Fcntl/Makefile.PL ext/GDBM_File/Makefile.PL ext/NDBM_File/Makefile.PL ext/ODBM_File/Makefile.PL ext/POSIX/Makefile.PL ext/SDBM_File/Makefile.PL ext/SDBM_File/sdbm/Makefile.PL ext/Socket/Makefile.PL globals.c hints/convexos.sh hints/irix_6.sh + +NETaa13399: patch0l from Andy +Files patched: Configure MANIFEST Makefile.SH config.H config_h.SH ext/DB_File/Makefile.PL ext/GDBM_File/Makefile.PL ext/NDBM_File/Makefile.PL ext/POSIX/POSIX.xs ext/SDBM_File/sdbm/Makefile.PL ext/util/make_ext h2xs.SH hints/next_3_2.sh hints/solaris_2.sh hints/unicos.sh installperl lib/Cwd.pm lib/ExtUtils/MakeMaker.pm makeaperl.SH vms/config.vms x2p/util.c x2p/util.h + +NETaa13399: stuff from Andy +Files patched: Configure MANIFEST Makefile.SH configpm hints/dec_osf.sh hints/linux.sh hints/machten.sh lib/ExtUtils/MakeMaker.pm util.c + +NETaa13399: Patch 0k from Andy +Files patched: Configure MANIFEST Makefile.SH config.H config_h.SH hints/dec_osf.sh hints/mpeix.sh hints/next_3_0.sh hints/ultrix_4.sh installperl lib/ExtUtils/MakeMaker.pm lib/File/Path.pm makeaperl.SH minimod.PL perl.c proto.h vms/config.vms vms/ext/MM_VMS.pm x2p/a2p.h + +NETaa13399: Patch 0m from Andy +Files patched: Configure MANIFEST Makefile.SH README config.H config_h.SH ext/DynaLoader/README ext/POSIX/POSIX.xs ext/SDBM_File/sdbm/sdbm.h ext/util/extliblist hints/cxux.sh hints/linux.sh hints/powerunix.sh lib/ExtUtils/MakeMaker.pm malloc.c perl.h pp_sys.c util.c + +NETaa13400: pod2html update from Bill Middleton +From: Larry Wall +Files patched: pod/pod2html + +NETaa13401: Boyer-Moore code attempts to compile string longer than 255. +From: Kyriakos Georgiou +Files patched: util.c + The Boyer-Moore table uses unsigned char offsets, but the BM compiler wasn't + rejecting strings longer than 255 chars, and was miscompiling them. + +NETaa13403: missing a $ on variable name +From: Wayne Scott +Files patched: installperl + Yup, it was missing. + +NETaa13406: didn't wipe out dead match when proceeding to next BRANCH +From: Michael P. Clemens +Files patched: regexec.c + The code to check alternatives didn't invalidate backreferences matched by the + failed branch. + +NETaa13407: overload upgrade +From: owner-perl5-porters@nicoh.com +Also: Ilya Zakharevich +Files patched: MANIFEST gv.c lib/Math/BigInt.pm perl.h pod/perlovl.pod pp.c pp.h pp_hot.c sv.c t/lib/bigintpm.t t/op/overload.t + Applied supplied patch, and fixed bug induced by use of sv_setsv to do + a deep copy, since sv_setsv no longer copies objecthood. + +NETaa13409: sv_gets tries to grow string at EOF +From: Harold O Morris +Files patched: sv.c + Applied suggested patch, only two statements earlier, since the end code + also does SvCUR_set. + +NETaa13410: delaymagic did =~ instead of &= ~ +From: Andreas Schwab +Files patched: pp_hot.c + Applied supplied patch. + +NETaa13411: POSIX didn't compile under -DLEAKTEST +From: Frederic Chauveau +Files patched: ext/POSIX/POSIX.xs + Used NEWSV instead of newSV. + +NETaa13412: new version from Tony Sanders +From: Tony Sanders +Files patched: lib/Term/Cap.pm + Installed as Term::Cap.pm + +NETaa13413: regmust extractor needed to restart loop on BRANCH for (?:) to work +From: DESARMENIEN +Files patched: regcomp.c + The BRANCH skipper should have restarted the loop from the top. + +NETaa13414: the check for accidental list context was done after pm_short check +From: Michael H. Coen +Files patched: pp_hot.c + Moved check for accidental list context to before the pm_short optimization. + +NETaa13418: perlre.pod babbled nonsense about | in character classes +From: Philip Hazel +Files patched: pod/perlre.pod + Removed bogus brackets. Now reads: + Note however that "|" is interpreted as a literal with square brackets, + so if you write C<[fee|fie|foe]> you're really only matching C<[feio|]>. + +NETaa13419: need to document introduction of lexical variables +From: "Heading, Anthony" +Files patched: pod/perlfunc.pod + Now mentions that lexicals aren't introduced till after the current statement. + +NETaa13420: formats that overflowed a page caused endless top of forms +From: Hildo@CONSUL.NL +Files patched: pp_sys.c + If a record is too large to fit on a page, it now prints whatever will + fit and then calls top of form again on the remainder. + +NETaa13423: the code to do negative list subscript in scalar context was missing +From: Steve McDougall +Files patched: pp.c + The negative subscript code worked right in list context but not in scalar + context. In fact, there wasn't code to do it in the scalar context. + +NETaa13424: existing but undefined CV blocked inheritance +From: Spider Boardman +Files patched: gv.c + Applied supplied patch. + +NETaa13425: removed extra argument to croak +From: "R. Bernstein" +Files patched: regcomp.c + Removed extra argument. + +NETaa13427: added return types +From: "R. Bernstein" +Files patched: x2p/a2py.c + Applied suggested patch. + +NETaa13427: added static declarations +Files patched: x2p/walk.c + (same) + +NETaa13428: split was assuming that all backreferences were defined +From: Dave Schweisguth +Files patched: pp.c + split was assuming that all backreferences were defined. + +NETaa13430: hoistmust wasn't hoisting anchored shortcircuit's length +From: Tom Christiansen +Also: Rob Hooft +Files patched: toke.c + +NETaa13432: couldn't call code ref under debugger +From: Mike Fletcher +Files patched: op.c pp_hot.c sv.h + The debugging code assumed it could remember a name to represent a subroutine, + but anonymous subroutines don't have a name. It now remembers a CV reference + in that case. + +NETaa13435: 1' dumped core +From: Larry Wall +Files patched: toke.c + Didn't check a pointer for nullness. + +NETaa13436: print foo(123) didn't treat foo as subroutine +From: mcook@cognex.com +Files patched: toke.c + Now treats it as a subroutine rather than a filehandle. + +NETaa13437: &$::foo didn't think $::foo was a variable name +From: mcook@cognex.com +Files patched: toke.c + Now treats $::foo as a global variable. + +NETaa13439: referred to old package name +From: Tom Christiansen +Files patched: lib/Sys/Syslog.pm + Wasn't a strict refs problem after all. It was simply referring to package + syslog, which had been renamed to Sys::Syslog. + +NETaa13440: stat operations didn't know what to do with glob or ref to glob +From: mcook@cognex.com +Files patched: doio.c pp_sys.c + Now knows about the kinds of filehandles returned by FileHandle constructors + and such. + +NETaa13442: couldn't find name of copy of deleted symbol table entry +From: Spider Boardman +Files patched: gv.c gv.h + I did a much simpler fix. When gp_free notices that it's freeing the + master GV, it nulls out gp_egv. The GvENAME and GvESTASH macros know + to revert to gv if egv is null. + + This has the advantage of not creating a reference loop. + +NETaa13443: couldn't override an XSUB +From: William Setzer +Files patched: op.c + When the newSUB and newXS routines checked for whether the old sub was + defined, they only looked at CvROOT(cv), not CvXSUB(cv). + +NETaa13443: needed to do same thing in newXS +Files patched: op.c + (same) + +NETaa13444: -foo now doesn't warn unless sub foo is defined +From: Larry Wall +Files patched: toke.c + Made it not warn on -foo, unless there is a sub foo defined. + +NETaa13451: in scalar context, pp_entersub now guarantees one item from XSUB +From: Nick Gianniotis +Files patched: pp_hot.c + The pp_entersub routine now guarantees that an XSUB in scalar context + returns one and only one value. If there are fewer, it pushes undef, + and if there are more, it returns the last one. + +NETaa13457: now explicitly disallows printf format with 'n' or '*'. +From: lees@cps.msu.edu +Files patched: doop.c + Now says + + Use of n in printf format not supported at ./foo line 3. + + +NETaa13458: needed to call SvPOK_only() in pp_substr +From: Wayne Scott +Files patched: pp.c + Needed to call SvPOK_only() in pp_substr. + +NETaa13459: umask and chmod now warn about missing initial 0 even with paren +From: Andreas Koenig +Files patched: toke.c + Now skips parens as well as whitespace looking for argument. + +NETaa13460: backtracking didn't work on .*? because reginput got clobbered +From: Andreas Koenig +Files patched: regexec.c + When .*? did a probe of the rest of the string, it clobbered reginput, + so the next call to match a . tried to match the newline and failed. + +NETaa13475: \(@ary) now treats array as list of scalars +From: Tim Bunce +Files patched: op.c + The mod() routine now refrains from marking @ary as an lvalue if it's in parens + and is the subject of an OP_REFGEN. + +NETaa13481: accept buffer wasn't aligned good enough +From: Holger Bechtold +Also: Christian Murphy +Files patched: pp_sys.c + Applied suggested patch. + +NETaa13486: while (<>) now means while (defined($_ = <>)) +From: Jim Balter +Files patched: op.c pod/perlop.pod + while (<HANDLE>) now means while (defined($_ = <HANDLE>)). + +NETaa13500: needed DESTROY in FileHandle +From: Tim Bunce +Files patched: ext/POSIX/POSIX.pm + Added DESTROY method. Also fixed ungensym to use POSIX:: instead of _POSIX. + Removed ungensym from close method, since DESTROY should do that now. + +NETaa13502: now complains if you use local on a lexical variable +From: Larry Wall +Files patched: op.c + Now says something like + + Can't localize lexical variable $var at ./try line 6. + +NETaa13512: added $SIG{__WARN__} and $SIG{__DIE__} hooks +From: Larry Wall +Files patched: embed.h gv.c interp.sym mg.c perl.h pod/perlvar.pod pp_ctl.c util.c Todo pod/perldiag.pod + +NETaa13514: statements before intro of lex var could see lex var +From: William Setzer +Files patched: op.c + When a lexical variable is declared, introduction is delayed until + the start of the next statement, so that any initialization code runs + outside the scope of the new variable. Thus, + + my $y = 3; + my $y = $y; + print $y; + + should print 3. Unfortunately, the declaration was marked with the + beginning location at the time that "my $y" was processed instead of + when the variable was introduced, so any embedded statements within + an anonymous subroutine picked up the wrong "my". The declaration + is now labelled correctly when the variable is actually introduced. + +NETaa13520: added closures +From: Larry Wall +Files patched: Todo cv.h embed.h global.sym gv.c interp.sym op.c perl.c perl.h pod/perlform.pod pp.c pp_ctl.c pp_hot.c sv.c sv.h toke.c + +NETaa13520: test to see if lexical works in a format now +Files patched: t/op/write.t + +NETaa13522: substitution couldn't be used on a substr() +From: Hans Mulder +Files patched: pp_ctl.c pp_hot.c + Changed pp_subst not to use sv_replace() anymore, which didn't handle lvalues + and was overkill anyway. Should be slightly faster this way too. + +NETaa13525: G_EVAL mode in perl_call_sv didn't return values right. +Files patched: perl.c + +NETaa13525: consolidated error message +From: Larry Wall +Files patched: perl.h toke.c + +NETaa13525: derived it +Files patched: perly.h + +NETaa13525: missing some values from embed.h +Files patched: embed.h + +NETaa13525: random cleanup +Files patched: MANIFEST Todo cop.h lib/TieHash.pm lib/perl5db.pl opcode.h patchlevel.h pod/perldata.pod pod/perlsub.pod t/op/ref.t toke.c + +NETaa13525: random cleanup +Files patched: pp_ctl.c util.c + +NETaa13527: File::Find needed to export $name and $dir +From: Chaim Frenkel +Files patched: lib/File/Find.pm + They are now exported. + +NETaa13528: cv_undef left unaccounted-for GV pointer in CV +From: Tye McQueen +Also: Spider Boardman +Files patched: op.c + +NETaa13530: scalar keys now resets hash iterator +From: Tim Bunce +Files patched: doop.c + scalar keys() now resets the hash iterator. + +NETaa13531: h2ph doesn't check defined right +From: Casper H.S. Dik +Files patched: h2ph.SH + +NETaa13540: VMS update +From: Larry Wall +Files patched: MANIFEST README.vms doio.c embed.h ext/DynaLoader/dl_vms.xs interp.sym lib/Cwd.pm lib/ExtUtils/xsubpp lib/File/Basename.pm lib/File/Find.pm lib/File/Path.pm mg.c miniperlmain.c perl.c perl.h perly.c perly.c.diff pod/perldiag.pod pp_ctl.c pp_hot.c pp_sys.c proto.h util.c vms/Makefile vms/config.vms vms/descrip.mms vms/ext/Filespec.pm vms/ext/MM_VMS.pm vms/ext/VMS/stdio/Makefile.PL vms/ext/VMS/stdio/stdio.pm vms/ext/VMS/stdio/stdio.xs vms/genconfig.pl vms/perlvms.pod vms/sockadapt.c vms/sockadapt.h vms/vms.c vms/vmsish.h vms/writemain.pl + +NETaa13540: got some duplicate code +Files patched: lib/File/Path.pm + +NETaa13540: stuff from Charles +Files patched: MANIFEST README.vms lib/ExtUtils/MakeMaker.pm lib/ExtUtils/MakeMaker.pm lib/ExtUtils/xsubpp lib/File/Basename.pm lib/File/Path.pm perl.c perl.h pod/perldiag.pod pod/perldiag.pod vms/Makefile vms/Makefile vms/config.vms vms/config.vms vms/descrip.mms vms/descrip.mms vms/ext/Filespec.pm vms/ext/Filespec.pm vms/ext/MM_VMS.pm vms/ext/MM_VMS.pm vms/ext/VMS/stdio/stdio.pm vms/ext/VMS/stdio/stdio.xs vms/gen_shrfls.pl vms/gen_shrfls.pl vms/genconfig.pl vms/genconfig.pl vms/mms2make.pl vms/perlvms.pod vms/sockadapt.h vms/test.com vms/vms.c vms/vms.c vms/vmsish.h vms/vmsish.h vms/writemain.pl + +NETaa13540: tweak from Charles +Files patched: lib/File/Path.pm + +NETaa13552: scalar unpack("P4",...) ignored the 4 +From: Eric Arnold +Files patched: pp.c + The optimization that tried to do only one item in a scalar context didn't + realize that the argument to P was not a repeat count. + +NETaa13553: now warns about 8 or 9 in octal escapes +From: Mike Rogers +Files patched: util.c + Now warns if it finds 8 or 9 before the end of the octal escape sequence. + So \039 produces a warning, but \0339 does not. + +NETaa13554: now allows foreach ${"name"} +From: Johan Holtman +Files patched: op.c + Instead of trying to remove OP_RV2SV, the compiler now just transmutes it into an + OP_RV2GV, which is a no-op for ordinary variables and does the right + thing for ${"name"}. + +NETaa13559: substitution now always checks for readonly +From: Rodger Anderson +Files patched: pp_hot.c + Substitution now always checks for readonly. + +NETaa13561: added explanations of closures and curly-quotes +From: Larry Wall +Files patched: pod/perlref.pod + +NETaa13562: null components in path cause indigestion +From: Ambrose Kofi Laing +Files patched: lib/Cwd.pm lib/pwd.pl + +NETaa13575: documented semantics of negative substr length +From: Jeff Bouis +Files patched: pod/perlfunc.pod + Documented the fact that negative length now leaves characters off the end, + and while I was at it, made it work right even if offset wasn't 0. + +NETaa13575: negative length to substr didn't work when offset non-zero +Files patched: pp.c + (same) + +NETaa13575: random cleanup +Files patched: pod/perlfunc.pod + (same) + +NETaa13580: couldn't localize $ACCUMULATOR +From: Larry Wall +Files patched: gv.c lib/English.pm mg.c perl.c sv.c + Needed to make $^A a real magical variable. Also lib/English.pm wasn't + exporting good. + +NETaa13583: doc mods from Tom +From: Larry Wall +Files patched: pod/modpods/AnyDBMFile.pod pod/modpods/Basename.pod pod/modpods/Benchmark.pod pod/modpods/Cwd.pod pod/modpods/Dynaloader.pod pod/modpods/Exporter.pod pod/modpods/Find.pod pod/modpods/Finddepth.pod pod/modpods/Getopt.pod pod/modpods/MakeMaker.pod pod/modpods/Open2.pod pod/modpods/POSIX.pod pod/modpods/Ping.pod pod/modpods/less.pod pod/modpods/strict.pod pod/perlapi.pod pod/perlbook.pod pod/perldata.pod pod/perlform.pod pod/perlfunc.pod pod/perlipc.pod pod/perlmod.pod pod/perlobj.pod pod/perlref.pod pod/perlrun.pod pod/perlsec.pod pod/perlsub.pod pod/perltrap.pod pod/perlvar.pod + +NETaa13589: return was enforcing list context on its arguments +From: Tim Freeman +Files patched: opcode.pl + A return was being treated like a normal list operator, in that it was + setting list context on its arguments. This was bogus. + +NETaa13591: POSIX::creat used wrong argument +From: Paul Marquess +Files patched: ext/POSIX/POSIX.pm + Applied suggested patch. + +NETaa13605: use strict refs error message now displays bad ref +From: Peter Gordon +Files patched: perl.h pod/perldiag.pod pp.c pp_hot.c + Now says + + Can't use string ("2") as a HASH ref while "strict refs" in use at ./foo line 12. + +NETaa13630: eof docs were unclear +From: Hallvard B Furuseth +Files patched: pod/perlfunc.pod + Applied suggested patch. + +NETaa13636: $< and $> weren't refetched on undump restart +From: Steve Pearlmutter +Files patched: perl.c + The code in main() bypassed perl_construct on an undump restart, which bypassed + the code that set $< and $>. + +NETaa13641: added Tim's fancy new import whizbangers +From: Tim Bunce +Files patched: lib/Exporter.pm + Applied suggested patch. + +NETaa13649: couldn't AUTOLOAD a symbol reference +From: Larry Wall +Files patched: pp_hot.c + pp_entersub needed to guarantee a CV so it would get to the AUTOLOAD code. + +NETaa13651: renamed file had wrong package name +From: Andreas Koenig +Files patched: lib/File/Path.pm + Applied suggested patch. + +NETaa13660: now that we're testing distribution we can diagnose RANDBITS errors +From: Karl Glazebrook +Files patched: t/op/rand.t + Changed to suggested algorithm. Also duplicated it to test rand(100) too. + +NETaa13660: rand.t didn't test for proper distribution within range +Files patched: t/op/rand.t + (same) + +NETaa13671: array slice misbehaved in a scalar context +From: Tye McQueen +Files patched: pp.c + A spurious else prevented the scalar-context-handling code from running. + +NETaa13672: filehandle constructors in POSIX don't return failure successfully +From: Ian Phillipps +Files patched: ext/POSIX/POSIX.pm + Applied suggested patch. + + +NETaa13678: forced $1 to always be untainted +From: Ka-Ping Yee +Files patched: mg.c + I believe the bug that triggered this was fixed elsewhere, but just in case, + I put in explicit code to force $1 et al not to be tainted regardless. + +NETaa13682: formline doc need to discuss ~ and ~~ policy +From: Peter Gordon +Files patched: pod/perlfunc.pod + +NETaa13686: POSIX::open and POSIX::mkfifo didn't check tainting +From: Larry Wall +Files patched: ext/POSIX/POSIX.xs + open() and mkfifo() now check tainting. + +NETaa13687: new Exporter.pm +From: Tim Bunce +Files patched: lib/Exporter.pm + Added suggested changes, except for @EXPORTABLE, because it looks too much + like @EXPORTTABLE. Decided to stick with @EXPORT_OK because it looks more + like an adjunct. Also added an export_tags routine. The keys in the + %EXPORT_TAGS hash no longer use colons, to make the initializers prettier. + +NETaa13687: new Exporter.pm +Files patched: ext/POSIX/POSIX.pm + (same) + +NETaa13694: add sockaddr_in to Socket.pm +From: Tim Bunce +Files patched: ext/Socket/Socket.pm + Applied suggested patch. + +NETaa13695: library routines should use qw() as good example +From: Dean Roehrich +Files patched: ext/DB_File/DB_File.pm ext/DynaLoader/DynaLoader.pm ext/Fcntl/Fcntl.pm ext/GDBM_File/GDBM_File.pm ext/POSIX/POSIX.pm ext/Socket/Socket.pm + Applied suggested patch. + +NETaa13696: myconfig should be a routine in Config.pm +From: Kenneth Albanowski +Files patched: configpm + Applied suggested patch. + +NETaa13704: fdopen closed fd on failure +From: Hallvard B Furuseth +Files patched: doio.c + Applied suggested patch. + +NETaa13706: Term::Cap doesn't work +From: Dean Roehrich +Files patched: lib/Term/Cap.pm + Applied suggested patch. + +NETaa13710: cryptswitch needed to be more "useable" +From: Tim Bunce +Files patched: embed.h global.sym perl.h toke.c + The cryptswitch_fp function now can operate in two modes. It can + modify the global rsfp to redirect input as before, or it can modify + linestr and return true, indicating that it is not necessary for yylex + to read another line since cryptswitch_fp has just done it. + +NETaa13712: new_tmpfile() can't be called as constructor +From: Hans Mulder +Files patched: ext/POSIX/POSIX.xs + Now allows new_tmpfile() to be called as a constructor. + +NETaa13714: variable method call not documented +From: "Randal L. Schwartz" +Files patched: pod/perlobj.pod + Now indicates that OBJECT->$method() works. + +NETaa13715: PACK->$method produces spurious warning +From: Larry Wall +Files patched: toke.c + The -> operator was telling the lexer to expect an operator when the + next thing was a variable. + +NETaa13716: Carp now allows multiple packages to be skipped out of +From: Larry Wall +Files patched: lib/Carp.pm + The subroutine redefinition warnings now warn on import collisions. + +NETaa13716: Exporter catches warnings and gives a better line number +Files patched: lib/Exporter.pm + (same) + +NETaa13716: now counts imported routines as "defined" for redef warnings +Files patched: op.c sv.c + (same) diff --git a/gnu/usr.bin/perl/Changes5.002 b/gnu/usr.bin/perl/Changes5.002 new file mode 100644 index 00000000000..6382d529175 --- /dev/null +++ b/gnu/usr.bin/perl/Changes5.002 @@ -0,0 +1,4003 @@ +------------- +Version 5.002 +------------- + +The main enhancement to the Perl core was the addition of prototypes. +Many of the modules that come with Perl have been extensively upgraded. + +Other than that, nearly all the changes for 5.002 were bug fixes of one +variety or another, so here's the bug list, along with the "resolution" +for each of them. If you wish to correspond about any of them, please +include the bug number (if any). + +Changes specific to the Configure and build process are described +at the bottom. + +Added APPLLIB_EXP for embedded perl library support. +Files patched: perl.c + +Couldn't define autoloaded routine by assignment to typeglob. +Files patched: pp_hot.c sv.c + +NETaa13525: Tiny patch to fix installman -n +From: Larry Wall +Files patched: installman + +NETaa13525: de-documented \v +Files patched: pod/perlop.pod pod/perlre.pod + +NETaa13525: doc changes +Files patched: pod/perlop.pod pod/perltrap.pod + +NETaa13525: perlxs update from Dean Roehrich +Files patched: pod/perlxs.pod + +NETaa13525: rename powerunix to powerux +Files patched: MANIFEST hints/powerux.sh + +NETaa13540: VMS uses CLK_TCK for HZ +Files patched: pp_sys.c + +NETaa13721: pad_findlex core dumps on bad CvOUTSIDE() +From: Carl Witty +Files patched: op.c sv.c toke.c + Each CV has a reference to the CV containing it lexically. Unfortunately, + it didn't reference-count this reference, so when the outer CV was freed, + we ended up with a pointer to memory that got reused later as some other kind + of SV. + +NETaa13721: warning suppression +Files patched: toke.c + (same) + +NETaa13722: walk.c had inconsistent static declarations +From: Tim Bunce +Files patched: x2p/walk.c + Consolidated the various declarations and made them consistent with + the actual definitions. + +NETaa13724: -MPackage=args patch +From: Tim Bunce +Files patched: perl.c pod/perlrun.pod + Added in the -MPackage=args patch too. + +NETaa13729: order-of-evaluation dependency in scope.c on leaving REGCONTEXT +From: "Jason Shirk" +Files patched: scope.c + Did + + I32 delta = SSPOPINT; + savestack_ix -= delta; /* regexp must have croaked */ + + instead. + +NETaa13731: couldn't assign external lexical array to itself +From: oneill@cs.sfu.ca +Files patched: op.c + The pad_findmy routine was only checking previous statements for previous + mention of external lexicals, so the fact that the current statement + already mentioned @list was not noted. It therefore allocated another + reference to the outside lexical, and this didn't compare equal when + the assigment parsing code was trying to determine whether there was a + common variable on either side of the equals. Since it didn't see the + same variable, it thought it could avoid making copies of the values on + the stack during list assignment. Unfortunately, before using those + values, the list assignment has to zero out the target array, which + destroys the values. + + The fix was to make pad_findmy search the current statement as well. This + was actually a holdover from some old code that was trying to delay + introduction of "my" variables until the next statement. This is now + done with a different mechanism, so the fix should not adversely affect + that. + +NETaa13733: s/// doesn't free old string when using copy mode +From: Larry Wall +Files patched: pp_ctl.c pp_hot.c + When I removed the use of sv_replace(), I simply forgot to free the old char*. + +NETaa13736: closures leaked memory +From: Carl Witty +Files patched: op.c pp.c + This is a specific example of a more general bug, fixed as NETaa13760, having + to do with reference counts on comppads. + +NETaa13739: XSUB interface caches gimme in case XSUB clobbers it +From: Dean Roehrich +Files patched: pp_hot.c + Applied suggest patch. Also deleted second gimme declaration as redundant. + +NETaa13760: comppad reference counts were inconsistent +From: Larry Wall +Files patched: op.c perl.c pp_ctl.c toke.c + All official references to comppads are supposed to be through compcv now, + but the transformation was not complete, resulting in memory leakage. + +NETaa13761: sv_2pv() wrongly preferred IV to NV when SV was readonly +From: "Jack R. Lawler" +Files patched: sv.c + Okay, I understand how this one happened. This is a case where a + beneficial fix uncovered a bug elsewhere. I changed the constant + folder to prefer integer results over double if the numbers are the + same. In this case, they aren't, but it leaves the integer value there + anyway because the storage is already allocated for it, and it *might* + be used in an integer context. And since it's producing a constant, it + sets READONLY. Unfortunately, sv_2pv() bogusly preferred the integer + value to the double when READONLY was set. This never showed up if you + just said + + print 1.4142135623731; + + because in that case, there was already a string value. + + +NETaa13772: shmwrite core dumps consistently +From: Gabe Schaffer +Files patched: opcode.h opcode.pl + The shmwrite operator is a list operator but neglected to push a stack + mark beforehand, because an 'm' was missing from opcode.pl. + +NETaa13773: $. was misdocumented as read-only. +From: Inaba Hiroto +Files patched: pod/perlvar.pod + <1.array-element-read-only> + % perl -le '$,=", "; $#w=5; for (@w) { $_=1; } print @w' + Modification of a read-only value attempted at -e line 1. + % perl4 -le '$,=", "; $#w=5; for (@w) { $_=1; } print @w' + 1, 1, 1, 1, 1, 1 + + This one may stay the way it is for performance reasons. + + <2.begin-local-RS> + % cat abc + a + b + c + % perl -e 'BEGIN { local $/ = ""; } print "$.:$_" while <>;' abc + 1:a + b + c + % perl -e '{ local $/ = ""; } print "$.:$_" while <>;' abc + 1:a + 2:b + 3:c + + $/ wasn't initialized early enough, so local set it back to permanently + undefined on exit from the block. + + <3.grep-x0-bug> + % perl -le 'print grep(/^-/ ? ($x=$_) x 0 : 1, "a", "-b", "c");' + a + + % perl4 -le 'print grep(/^-/ ? ($x=$_) x 0 : 1, "a", "-b", "c");' + ac + + An extra mark was left on the stack if (('x') x $repeat) was used in a scalar + context. + + <4.input-lineno-assign> + # perl -w does not complain about assignment to $. (Is this just a feature?) + # perlvar.pod says "This variable should be considered read-only." + % cat abc + a + b + c + % perl -wnle '$. = 10 if $. == 2; print "$.:$_"' abc + 1:a + 10:b + 11:c + + Fixed doc. + + <5.local-soft-ref.bug> + % perl -e 'local ${"a"}=1;' + zsh: 529 segmentation fault perl -e 'local ${"a"}=1;' + + Now says + Can't localize a reference at -e line 1. + + <6.package-readline> + % perl -e 'package foo; sub foo { 1; } package main; $_ = foo::foo(); print' + 1 + % perl -e ' + package readline; sub foo { 1; } package main; $_ = readline::foo(); print' + Undefined subroutine &main::foo called at -e line 1. + % perl -e ' + package readline; sub foo { 1; } package main; $_ = &readline::foo(); print' + 1 + + Now treats foo::bar correctly even if foo is a keyword. + + <7.page-head-set-to-null-string> + % cat page-head + #From: russell@ccu1.auckland.ac.nz (Russell Fulton) + #Newsgroups: comp.lang.perl + #Subject: This script causes Perl 5.00 to sementation fault + #Date: 15 Nov 1994 00:11:37 GMT + #Message-ID: <3a8ubp$jrj@net.auckland.ac.nz> + + select((select(STDOUT), $^='')[0]); #this is the critical line + $a = 'a'; + write ; + exit; + + format STDOUT = + @<<<<<< + $a + . + + % perl page-head + zsh: 1799 segmentation fault perl /tmp/page-head + + Now says + Undefined top format "main::" called at ./try line 11. + + <8.sub-as-index> + # parser bug? + % perl -le 'sub foo {0}; $x[0]=0;$x[foo]<=0' + Unterminated <> operator at -e line 1. + % perl -le 'sub foo {0}; $x[0]=0;$x[foo()]<=0' + + A right square bracket now forces expectation of an operator. + + <9.unary-minus-to-regexp-var> + % cat minus-reg + #From: Michael Cook <mcook@cognex.com> + #Newsgroups: comp.lang.perl + #Subject: bug: print -$1 + #Date: 01 Feb 1995 15:31:25 GMT + #Message-ID: <MCOOK.95Feb1103125@erawan.cognex.com> + + $_ = "123"; + /\d+/; + print $&, "\n"; + print -$&, "\n"; + print 0-$&, "\n"; + + % perl minus-reg + 123 + 123 + -123 + + Apparently already fixed in my copy. + + <10.vec-segv> + % cat vec-bug + ## Offset values are changed for my machine. + + #From: augustin@gdstech.grumman.com (Conrad Augustin) + #Subject: perl5 vec() bug? + #Message-ID: <1994Nov22.193728.25762@gdstech.grumman.com> + #Date: Tue, 22 Nov 1994 19:37:28 GMT + + #The following two statements each produce a segmentation fault in perl5: + + #vec($a, 21406, 32) = 1; # seg fault + vec($a, 42813, 16) = 1; # seg fault + + #When the offset values are one less, all's well: + #vec($a, 21405, 32) = 1; # ok + #vec($a, 42812, 16) = 1; # ok + + #Interestingly, this is ok for all high values of N: + #$N=1000000; vec($a, $N, 8) = 1; + + % perl vec-bug + zsh: 1806 segmentation fault perl vec-bug + + Can't reproduce this one. + + +NETaa13773: $/ not correctly localized in BEGIN +Files patched: perl.c + (same) + +NETaa13773: foo::bar was misparsed if foo was a reserved word +Files patched: toke.c toke.c + (same) + +NETaa13773: right square bracket didn't force expectation of operator +Files patched: toke.c + (same) + +NETaa13773: scalar ((x) x $repeat) left stack mark +Files patched: op.c + (same) + +NETaa13778: -w coredumps on <$> +From: Hans Mulder +Files patched: pp_hot.c toke.c + Now produces suggested error message. Also installed guard in warning code + that coredumped. + +NETaa13779: foreach didn't use savestack mechanism +From: Hans Mulder +Files patched: cop.h pp_ctl.c + The foreach mechanism saved the old scalar value on the context stack + rather than the savestack. It could consequently get out of sync if + unexpectedly unwound. + +NETaa13785: GIMME sometimes used wrong context frame +From: Greg Earle +Files patched: embed.h global.sym op.h pp_ctl.c proto.h + The expression inside the return was taking its context from the immediately + surrounding block rather than the innermost surrounding subroutine call. + +NETaa13797: could modify sv_undef through auto-vivification +From: Ilya Zakharevich +Files patched: pp.c + Inserted the missing check for readonly values on auto-vivification. + +NETaa13798: if (...) {print} treats print as quoted +From: Larry Wall +Files patched: toke.c + The trailing paren of the condition was setting expectations to XOPERATOR + rather than XBLOCK, so it was being treated like ${print}. + +NETaa13926: commonality was not detected in assignments using COND_EXPR +From: Mark Hanson +Files patched: opcode.h opcode.pl + The assignment compiler didn't check the 2nd and 3rd args of a ?: + for commonality. It still doesn't, but I made ?: into a "dangerous" + operator so it is forced to treat it as common. + +NETaa13957: was marking the PUSHMARK as modifiable rather than the arg +From: David Couture +Files patched: op.c sv.c + It was marking the PUSHMARK as modifiable rather than the arg. + +NETaa13962: documentation of behavior of scalar <*> was unclear +From: Tom Christiansen +Files patched: pod/perlop.pod + Added the following to perlop: + + A glob only evaluates its (embedded) argument when it is starting a new + list. All values must be read before it will start over. In a list + context this isn't important, because you automatically get them all + anyway. In a scalar context, however, the operator returns the next value + each time it is called, or a FALSE value if you've just run out. Again, + FALSE is returned only once. So if you're expecting a single value from + a glob, it is much better to say + + ($file) = <blurch*>; + + than + + $file = <blurch*>; + + because the latter will alternate between returning a filename and + returning FALSE. + + +NETaa13986: split ignored /m pattern modifier +From: Winfried Koenig +Files patched: pp.c + Fixed to work like m// and s///. + +NETaa13992: regexp comments not seen after + in non-extended regexp +From: Mark Knutsen +Files patched: regcomp.c + The code to skip regexp comments was guarded by a conditional that only + let it work when /x was in effect. + +NETaa14014: use subs should not count as definition, only as declaration +From: Keith Thompson +Files patched: sv.c + On *foo = \&bar, doesn't set GVf_IMPORTED if foo and bar are in same package. + +NETaa14021: sv_inc and sv_dec "upgraded" magical SV to non-magical +From: Paul A Sand +Also: Andreas Koenig +Files patched: sv.c + The sv_inc() and sv_dec() routines "upgraded" null magical SVs to non-magical. + +NETaa14086: require should check tainting +From: Karl Simon Berg +Files patched: pp_ctl.c + Since we shouldn't allow tainted requires anyway, it now says: + + Insecure dependency in require while running with -T switch at tst.pl line 1. + +NETaa14104: negation fails on magical variables like $1 +From: tim +Files patched: pp.c + Negation was failing on magical values like $1. It was testing the wrong + bits and also failed to provide a final "else" if none of the bits matched. + +NETaa14107: deep sort return leaked contexts +From: Quentin Fennessy +Files patched: pp_ctl.c + Needed to call dounwind() appropriately. + +NETaa14129: attempt to localize via a reference core dumps +From: Michele Sardo +Files patched: op.c pod/perldiag.pod + Now produces an error "Can't localize a reference", with explanation in + perldiag. + +NETaa14138: substr() and s/// can cause core dump +From: Andrew Vignaux +Files patched: pp_hot.c + Forgot to call SvOOK_off() on the SV before freeing its string. + +NETaa14145: ${@INC}[0] dumped core in debugger +From: Hans Mulder +Files patched: sv.c + Now croaks "Bizarre copy of ARRAY in block exit", which is better than + a core dump. The fact that ${@INC}[0] means $INC[0] outside the debugger + is a different bug. + +NETaa14147: bitwise assignment ops wipe out byte of target string +From: Jim Richardson +Files patched: doop.c + The code was assuming that the target was not either of the two operands, + which is false for an assignment operator. + +NETaa14153: lexing of lexicals in patterns fooled by character class +From: Dave Bianchi +Files patched: toke.c + It never called the dwimmer, which is how it fooled it. + +NETaa14154: allowed autoloaded methods by recognizing sub method; declaration +From: Larry Wall +Files patched: gv.c + Made sub method declaration sufficient for autoloader to stop searching on. + +NETaa14156: shouldn't optimize block scope on tainting +From: Pete Peterson +Files patched: op.c toke.c + I totally disabled the block scope optimization when running tainted. + +NETaa14157: -T and -B only allowed 1/30 "odd" characters--changed to 1/3 +From: Tor Lillqvist +Files patched: pp_sys.c + Applied suggested patch. + +NETaa14160: deref of null symbol should produce null list +From: Jared Rhine +Files patched: pp_hot.c + It didn't check for list context before returning undef. + +NETaa14162: POSIX::gensym now returns a symbol reference +From: Josh N. Pritikin +Also: Tim Bunce +Files patched: ext/POSIX/POSIX.pm + Applied suggested patch. + +NETaa14164: POSIX autoloader now distinguishes non-constant "constants" +From: Tim Bunce <Tim.Bunce@ig.co.uk> +Files patched: ext/POSIX/POSIX.pm ext/POSIX/POSIX.xs + The .xs file now distinguishes non-constant "constants" by setting EAGAIN. + This will also let us use #ifdef within the .xs file to de-constantify + any other macros that happen not to be constants even if they don't use + an argument. + +NETaa14166: missing semicolon after "my" induces core dump +From: Thomas Kofler +Files patched: toke.c + The parser was left thinking it was still processing a "my", and flubbed. + I made it wipe out the "in_my" variable on a syntax error. + +NETaa14166: missing semicolon after "my" induces core dump" +Files patched: toke.c + (same) + +NETaa14206: can now use English and strict at the same time +From: Andrew Wilcox +Files patched: sv.c + It now counts imported symbols as okay under "use strict". + +NETaa14206: can now use English and strict at the same time +Files patched: gv.c pod/perldiag.pod + (same) + +NETaa14265: elseif now produces severe warning +From: Yutao Feng +Files patched: pod/perldiag.pod toke.c + Now complains explicitly about "elseif". + +NETaa14279: list assignment propagated taintedness to independent scalars +From: Tim Freeman +Files patched: pp_hot.c + List assignment needed to be modified so that tainting didn't propagate + between independent scalar values. + +NETaa14312: undef in @EXPORTS core dumps +From: William Setzer +Files patched: lib/Exporter.pm + Now says: + + Unable to create sub named "t::" at lib/Exporter.pm line 159. + Illegal null symbol in @t::EXPORT at -e line 1 + BEGIN failed--compilation aborted at -e line 1. + + +NETaa14312: undef in @EXPORTS core dumps +Files patched: pod/perldiag.pod sv.c + (same) + +NETaa14321: literal @array check shouldn't happen inside embedded expressions +From: Mark H. Nodine +Files patched: toke.c + The general solution to this is to disable the literal @array check within + any embedded expression. For instance, this also failed bogusly: + + print "$foo{@foo}"; + + The reason fixing this also fixes the s///e problem is that the lexer + effectively puts the RHS into a do {} block, making the expression + embedded within curlies, as far as the error message is concerned. + +NETaa14322: now localizes $! during POSIX::AUTOLOAD +From: Larry Wall +Files patched: ext/POSIX/POSIX.pm + Added local $! = 0. + +NETaa14324: defined() causes spurious sub existence +From: "Andreas Koenig" +Files patched: op.c pp.c + It called pp_rv2cv which wrongly assumed it could add any sub it referenced. + +NETaa14336: use Module () forces import of nothing +From: Tim Bunce +Files patched: op.c + use Module () now refrains from calling import at all. + +NETaa14353: added special HE allocator +From: Larry Wall +Files patched: global.sym + +NETaa14353: added special HE allocator +Files patched: hv.c perl.h + +NETaa14353: array extension now converts old memory to SV storage. +Files patched: av.c av.h sv.c + +NETaa14353: hashes now convert old storage into SV arenas. +Files patched: global.sym + +NETaa14353: hashes now convert old storage into SV arenas. +Files patched: hv.c perl.h + +NETaa14353: upgraded SV arena allocation +Files patched: proto.h + +NETaa14353: upgraded SV arena allocation +Files patched: perl.c sv.c + +NETaa14422: added rudimentary prototypes +From: Gisle Aas +Files patched: Makefile.SH op.c op.c perly.c perly.c.diff perly.h perly.y proto.h sv.c toke.c + Message-Id: <9509290018.AA21548@scalpel.netlabs.com> + To: doughera@lafcol.lafayette.edu (Andy Dougherty) + Cc: perl5-porters@africa.nicoh.com + Subject: Re: Jumbo Configure patch vs. 1m. + Date: Thu, 28 Sep 95 17:18:54 -0700 + From: lwall@scalpel.netlabs.com (Larry Wall) + + : No. Larry's currently got the patch pumpkin for all such core perl topics. + + I dunno whether you should let me have the patch pumpkin or not. To fix + a Sev 2 I just hacked in rudimentary prototypes. :-) + + We can now define true unary subroutines, as well as argumentless + subroutines: + + sub baz () { 12; } # Must not have argument + sub bar ($) { $_[0] * 7 } # Must have exactly one argument + sub foo ($@) { print "@_\n" } # Must have at least one argument + foo bar baz / 2 || "oops", "is the answer"; + + This prints "42 is the answer" on my machine. That is, it's the same as + + foo( bar( baz() / 2) || "oops", "is the answer"); + + Attempting to compile + + foo; + + results in + + Too few arguments for main::foo at ./try line 8, near "foo;" + + Compiling + + bar 1,2,3; + + results in + + Too many arguments for main::bar at ./try line 8, near "foo;" + + But + + @array = ('a','b','c'); + foo @array, @array; + + prints "3 a b c" because the $ puts the first arg of foo into scalar context. + + The main win at this point is that we can say + + sub AAA () { 1; } + sub BBB () { 2; } + + and the user can say AAA + BBB and get 3. + + I'm not quite sure how this interacts with autoloading though. I fear + POSIX.pm will need to say + + sub E2BIG (); + sub EACCES (); + sub EAGAIN (); + sub EBADF (); + sub EBUSY (); + ... + sub _SC_STREAM_MAX (); + sub _SC_TZNAME_MAX (); + sub _SC_VERSION (); + + unless we can figure out how to efficiently declare a default prototype + at import time. Meaning, not using eval. Currently + + *foo = \&bar; + + (the ordinary import mechanism) implicitly stubs &bar with no prototype if + &bar is not yet declared. It's almost like you want an AUTOPROTO to + go with your AUTOLOAD. + + Another thing to rub one's 5 o'clock shadow over is that there's no way + to apply a prototype to a method call at compile time. + + And no, I don't want to have the + + sub howabout ($formal, @arguments) { ... } + + argument right now. + + Larry + +NETaa14422: couldn't take reference of a prototyped function +Files patched: op.c + (same) + +NETaa14423: use didn't allow expressions involving the scratch pad +From: Graham Barr +Files patched: op.c perly.c perly.c.diff perly.y proto.h vms/perly_c.vms + Applied suggested patch. + +NETaa14444: lexical scalar didn't autovivify +From: Gurusamy Sarathy +Files patched: op.c pp_hot.c + It didn't have code in pp_padsv to do the right thing. + +NETaa14448: caller could dump core when used within an eval or require +From: Danny R. Faught +Files patched: pp_ctl.c + caller() was incorrectly assuming the context stack contained a subroutine + context when it in fact contained an eval context. + +NETaa14451: improved error message on bad pipe filehandle +From: Danny R. Faught +Files patched: pp_sys.c + Now says the slightly more informative + + Can't use an undefined value as filehandle reference at ./try line 3. + +NETaa14462: pp_dbstate had a scope leakage on recursion suppression +From: Tim Bunce +Files patched: pp_ctl.c + Swapped the code in question around. + +NETaa14482: sv_unref freed ref prematurely at times +From: Gurusamy Sarathy +Files patched: sv.c + Made sv_unref() mortalize rather than free the old reference. + +NETaa14484: appending string to array produced bizarre results +From: Greg Ward +Also: Malcolm Beattie +Files patched: pp_hot.c + Will now say, "Can't coerce ARRAY to string". + +NETaa14525: assignment to globs didn't reset them correctly +From: Gurusamy Sarathy +Files patched: sv.c + Applied parts of patch not overridden by subsequent patch. + +NETaa14529: a partially matching subpattern could spoof infinity detector +From: Wayne Berke +Files patched: regexec.c + A partial match on a subpattern could fool the infinite regress detector + into thinking progress had been made. + The previous workaround prevented another bug (NETaa14529) from being fixed, + so I've backed it out. I'll need to think more about how to detect failure + to progress. I'm still hopeful it's not equivalent to the halting problem. + +NETaa14535: patches from Gurusamy Sarathy +From: Gurusamy Sarathy +Files patched: op.c pp.c pp_hot.c regexec.c sv.c toke.c + Applied most recent suggested patches. + +NETaa14537: select() can return too soon +From: Matt Kimball +Also: Andreas Gustafsson +Files patched: pp_sys.c + +NETaa14538: method calls were treated like do {} under loop modifiers +From: Ilya Zakharevich +Files patched: perly.c perly.y + Needed to take the OPf_SPECIAL flag off of entersubs from method reductions. + (It was probably a cut-and-paste error from long ago.) + +NETaa14540: foreach (@array) no longer does extra stack copy +From: darrinm@lmc.com +Files patched: Todo op.c pp_ctl.c pp_hot.c + Fixed by doing the foreach(@array) optimization, so it iterates + directly through the array, and can detect the implicit shift from + referencing <>. + +NETaa14541: new version of perlbug +From: Kenneth Albanowski +Files patched: README pod/perl.pod utils/perlbug.PL + Brought it up to version 1.09. + +NETaa14541: perlbug 1.11 +Files patched: utils/perlbug.PL + (same) + +NETaa14548: magic sets didn't check private OK bits +From: W. Bradley Rubenstein +Files patched: mg.c + The magic code was getting mixed up between private and public POK bits. + +NETaa14550: made ~ magic magical +From: Tim Bunce +Files patched: sv.c + Applied suggested patch. + +NETaa14551: humongous header causes infinite loop in format +From: Grace Lee +Files patched: pp_sys.c + Needed to check for page exhaustion after doing top-of-form. + +NETaa14558: attempt to call undefined top format core dumped +From: Hallvard B Furuseth +Files patched: pod/perldiag.pod pp_sys.c + Now issues an error on attempts to call a non-existent top format. + +NETaa14561: Gurusamy Sarathy's G_KEEPERR patch +From: Andreas Koenig +Also: Gurusamy Sarathy +Also: Tim Bunce +Files patched: cop.h interp.sym perl.c perl.h pp_ctl.c pp_sys.c sv.c toke.c + Applied latest patch. + +NETaa14581: shouldn't execute BEGIN when there are compilation errors +From: Rickard Westman +Files patched: op.c + Perl should not try to execute BEGIN and END blocks if there's been a + compilation error. + +NETaa14582: got SEGV sorting sparse array +From: Rick Pluta +Files patched: pp_ctl.c + Now weeds out undefined values much like Perl 4 did. + Now sorts undefined values to the front. + +NETaa14582: sort was letting unsortable values through to comparison routine +Files patched: pp_ctl.c + (same) + +NETaa14585: globs in pad space weren't properly cleaned up +From: Gurusamy Sarathy +Files patched: op.c pp.c pp_hot.c sv.c + Applied suggested patch. + +NETaa14614: now does dbmopen with perl_eval_sv() +From: The Man +Files patched: perl.c pp_sys.c proto.h + dbmopen now invokes perl_eval_sv(), which should handle error conditions + better. + +NETaa14618: exists doesn't work in GDBM_File +From: Andrew Wilcox +Files patched: ext/GDBM_File/GDBM_File.xs + Applied suggested patch. + +NETaa14619: tied() +From: Larry Wall +Also: Paul Marquess +Files patched: embed.h global.sym keywords.h keywords.pl opcode.h opcode.pl pp_sys.c toke.c + Applied suggested patch. + +NETaa14636: Jumbo Dynaloader patch +From: Tim Bunce +Files patched: ext/DynaLoader/DynaLoader.pm ext/DynaLoader/dl_dld.xs ext/DynaLoader/dl_dlopen.xs ext/DynaLoader/dl_hpux.xs ext/DynaLoader/dl_next.xs ext/DynaLoader/dl_vms.xs ext/DynaLoader/dlutils.c + Applied suggested patches. + +NETaa14637: checkcomma routine was stupid about bareword sub calls +From: Tim Bunce <Tim.Bunce@ig.co.uk> +Files patched: toke.c + The checkcomma routine was stupid about bareword sub calls. + +NETaa14639: (?i) didn't reset on runtime patterns +From: Mark A. Scheel +Files patched: op.h pp_ctl.c toke.c + It didn't distinguish between permanent flags outside the pattern and + temporary flags within the pattern. + +NETaa14649: selecting anonymous globs dumps core +From: Chip Salzenberg +Files patched: cop.h doio.c embed.h global.sym perl.c pp_sys.c proto.h + Applied suggested patch, but reversed the increment and decrement to avoid + decrementing and freeing what we're going to increment. + +NETaa14655: $? returned negative value on AIX +From: Kim Frutiger +Also: Stephen D. Lee +Files patched: pp_sys.c + Applied suggested patch. + +NETaa14668: {2,} could match once +From: Hugo van der Sanden +Files patched: regexec.c + When an internal pattern failed a conjecture, it didn't back off on the + number of times it thought it had matched. + +NETaa14673: open $undefined dumped core +From: Samuli K{rkk{inen +Files patched: pp_sys.c + pp_open() didn't check its argument for globness. + +NETaa14683: stringifies were running pad out of space +From: Robin Barker +Files patched: op.h toke.c + Increased PADOFFSET to a U32, and made lexer not put double-quoted strings + inside OP_STRINGIFY unless they really needed it. + +NETaa14689: shouldn't have . in @INC when tainting +From: William R. Somsky +Files patched: perl.c + Now does not put . into @INC when tainting. It may still be added with a + + use lib "."; + + or, to put it at the end, + + BEGIN { push(@INC, ".") } + + but this is not recommended unless a chdir to a known location has been done + first. + +NETaa14690: values inside tainted SVs were ignored +From: "James M. Stern" +Files patched: pp.c pp_ctl.c + It was assuming that a tainted value was a string. + +NETaa14692: format name required qualification under use strict +From: Tom Christiansen +Files patched: gv.c + Now treats format names the same as subroutine names. + +NETaa14695: added simple regexp caching +From: John Rowe +Files patched: pp_ctl.c + Applied suggested patch. + +NETaa14697: regexp comments were sometimes wrongly treated as literal text +From: Tom Christiansen +Files patched: regcomp.c + The literal-character grabber didn't know about extended comments. + N.B. '#' is treated as a comment character whenever the /x option is + used now, so you can't include '#' as a simple literal in /x regexps. + + (By the way, Tom, the boxed form of quoting in the previous enclosure is + exceeding antisocial when you want to extract the code from it.) + +NETaa14704: closure got wrong outer scope if outer sub was predeclared +From: Marc Paquette +Files patched: op.c + The outer scope of the anonymous sub was set to the stub rather than to + the actual subroutine. I kludged it by making the outer scope of the + stub be the actual subroutine, if anything is depending on the stub. + +NETaa14705: $foo .= $foo did free memory read +From: Gerd Knops +Files patched: sv.c + Now modifies address to copy if it was reallocated. + +NETaa14709: Chip's FileHandle stuff +From: Larry Wall +Also: Chip Salzenberg +Files patched: MANIFEST ext/FileHandle/FileHandle.pm ext/FileHandle/FileHandle.xs ext/FileHandle/Makefile.PL ext/POSIX/POSIX.pm ext/POSIX/POSIX.pod ext/POSIX/POSIX.xs lib/FileCache.pm lib/Symbol.pm t/lib/filehand.t t/lib/posix.t + Applied suggested patches. + +NETaa14711: added (&) and (*) prototypes for blocks and symbols +From: Kenneth Albanowski +Files patched: Makefile.SH op.c perly.c perly.h perly.y toke.c + & now means that it must have an anonymous sub as that argument. If + it's the first argument, the sub may be specified as a block in the + indirect object slot, much like grep or sort, which have prototypes of (&@). + + Also added * so you can do things like + + sub myopen (*;$); + + myopen(FOO, $filename); + +NETaa14713: setuid FROM root now defaults to not do tainting +From: Tony Camas +Files patched: mg.c perl.c pp_hot.c + Applied suggested patch. + +NETaa14714: duplicate magics could be added to an SV +From: Yary Hluchan +Files patched: sv.c sv.c + The sv_magic() routine didn't properly check to see if it already had a + magic of that type. Ordinarily it would have, but it was called during + mg_get(), which forces the magic flags off temporarily. + +NETaa14721: sub defined during erroneous do-FILE caused core dump +From: David Campbell +Files patched: op.c + Fixed the seg fault. I couldn't reproduce the return problem. + +NETaa14734: ref should never return undef +From: Dale Amon +Files patched: pp.c t/op/overload.t + Now returns null string. + +NETaa14751: slice of undefs now returns null list +From: Tim Bunce +Files patched: pp.c pp_hot.c + Null list clobberation is now done in lslice, not aassign. + +NETaa14789: select coredumped on Linux +From: Ulrich Kunitz +Files patched: pp_sys.c + Applied suggested patches, more or less. + +NETaa14789: straightened out ins and out of duping +Files patched: lib/IPC/Open3.pm + (same) + +NETaa14791: implemented internal SUPER class +From: Nick Ing-Simmons +Also: Dean Roehrich +Files patched: gv.c + Applied suggested patch. + +NETaa14845: s/// didn't handle offset strings +From: Ken MacLeod +Files patched: pp_ctl.c + Needed a call to SvOOK_off(targ) in pp_substcont(). + +NETaa14851: Use of << to mean <<"" is deprecated +From: Larry Wall +Files patched: toke.c + +NETaa14865: added HINT_BLOCK_SCOPE to "elsif" +From: Jim Avera +Files patched: perly.y + Needed to set HINT_BLOCK_SCOPE on "elsif" to prevent the do block from + being optimized away, which caused the statement transition in elsif + to reset the stack too far back. + +NETaa14876: couldn't delete localized GV safely +From: John Hughes +Files patched: pp.c scope.c + The reference count of the "borrowed" GV needed to be incremented while + there was a reference to it in the savestack. + +NETaa14887: couldn't negate magical scalars +From: ian +Also: Gurusamy Sarathy +Files patched: pp.c + Applied suggested patch, more or less. (It's not necessary to test both + SvNIOK and SvNIOKp, since the private bits are always set if the public + bits are set.) + +NETaa14893: /m modifier was sticky +From: Jim Avera +Files patched: pp_ctl.c + pp_match() and pp_subst() were using an improperly scoped SAVEINT to restore + the value of the internal variable multiline. + +NETaa14893: /m modifier was sticky +Files patched: cop.h pp_hot.c + (same) + +NETaa14916: complete.pl retained old return value +From: Martyn Pearce +Files patched: lib/complete.pl + Applied suggested patch. + +NETaa14928: non-const 3rd arg to split assigned to list could coredump +From: Hans de Graaff +Files patched: op.c + The optimizer was assuming the OP was an OP_CONST. + +NETaa14942: substr as lvalue could disable magic +From: Darrell Kindred <dkindred+@cmu.edu> +Files patched: pp.c + The substr was disabling the magic of $1. + +NETaa14990: "not" not parseable when expecting term +From: "Randal L. Schwartz" +Files patched: perly.c perly.c.diff perly.y vms/perly_c.vms + The NOTOP production needed to be moved down into the terms. + +NETaa14993: Bizarre copy of formline +From: Tom Christiansen +Also: Charles Bailey +Files patched: sv.c + Applied suggested patch. + +NETaa14998: sv_add_arena() no longer leaks memory +From: Andreas Koenig +Files patched: av.c hv.c perl.h sv.c + Now keeps one potential arena "on tap", but doesn't use it unless there's + demand for SV headers. When an AV or HV is extended, its old memory + becomes the next potential arena unless there already is one, in which + case it is simply freed. This will have the desired property of not + stranding medium-sized chunks of memory when extending a single array + repeatedly, but will not degrade when there's no SV demand beyond keeping + one chunk of memory on tap, which generally will be about 250 bytes big, + since it prefers the earlier freed chunk over the later. See the nice_chunk + variable. + +NETaa14999: $a and $b now protected from use strict and lexical declaration +From: Tom Christiansen +Files patched: gv.c pod/perldiag.pod toke.c + Bare $a and $b are now allowed during "use strict". In addition, + the following diag was added: + + =item Can't use "my %s" in sort comparison + + (F) The global variables $a and $b are reserved for sort comparisons. + You mentioned $a or $b in the same line as the <=> or cmp operator, + and the variable had earlier been declared as a lexical variable. + Either qualify the sort variable with the package name, or rename the + lexical variable. + + +NETaa15034: use strict refs should allow calls to prototyped functions +From: Roderick Schertler +Files patched: perly.c perly.c.diff perly.y toke.c vms/perly_c.vms + Applied patch suggested by Chip. + +NETaa15083: forced $AUTOLOAD to be untainted +From: Tim Bunce +Files patched: gv.c pp_hot.c + Stripped any taintmagic from $AUTOLOAD after setting it. + +NETaa15084: patch for Term::Cap +From: Mark Kaehny +Also: Hugo van der Sanden +Files patched: lib/Term/Cap.pm + Applied suggested patch. + +NETaa15086: null pattern could cause coredump in s//_$1_/ +From: "Paul E. Maisano" +Files patched: cop.h pp_ctl.c + If the replacement pattern was complicated enough to cause pp_substcont + to be called, then it lost track of which REGEXP* it was supposed to + be using. + +NETaa15087: t/io/pipe.t didn't work on AIX +From: Andy Dougherty +Files patched: t/io/pipe.t + Applied suggested patch. + +NETaa15088: study was busted +From: Hugo van der Sanden +Files patched: opcode.h opcode.pl pp.c + It was studying its scratch pad target rather than the argument supplied. + +NETaa15090: MSTATS patch +From: Tim Bunce +Files patched: global.sym malloc.c perl.c perl.h proto.h + Applied suggested patch. + +NETaa15098: longjmp out of magic leaks memory +From: Chip Salzenberg +Files patched: mg.c sv.c + Applied suggested patch. + +NETaa15102: getpgrp() is broken if getpgrp2() is available +From: Roderick Schertler +Files patched: perl.h pp_sys.c + Applied suggested patch. + +NETaa15103: prototypes leaked opcodes +From: Chip Salzenberg +Files patched: op.c + Applied suggested patch. + +NETaa15107: quotameta memory bug on all metacharacters +From: Chip Salzenberg +Files patched: pp.c + Applied suggested patch. + +NETaa15108: Fix for incomplete string leak +From: Chip Salzenberg +Files patched: toke.c + Applied suggested patch. + +NETaa15110: couldn't use $/ with 8th bit set on some architectures +From: Chip Salzenberg +Files patched: doop.c interp.sym mg.c op.c perl.c perl.h pp_ctl.c pp_hot.c pp_sys.c sv.c toke.c util.c + Applied suggested patches. + +NETaa15112: { a_1 => 2 } didn't parse as expected +From: Stuart M. Weinstein +Files patched: toke.c + The little dwimmer was only skipping ALPHA rather than ALNUM chars. + +NETaa15123: bitwise ops produce spurious warnings +From: Hugo van der Sanden +Also: Chip Salzenberg +Also: Andreas Gustafsson +Files patched: sv.c + Decided to suppress the warning in the conversion routines if merely converting + a temporary, which can never be a user-supplied value anyway. + +NETaa15129: #if defined (foo) misparsed in h2ph +From: Roderick Schertler <roderick@gate.net> +Files patched: utils/h2ph.PL + Applied suggested patch. + +NETaa15131: some POSIX functions assumed valid filehandles +From: Chip Salzenberg +Files patched: ext/POSIX/POSIX.xs + Applied suggested patch. + +NETaa15151: don't optimize split on OPpASSIGN_COMMON +From: Huw Rogers +Files patched: op.c + Had to swap the optimization down to after the assignment op is generated + and COMMON is calculated, and then clean up the resultant tree differently. + +NETaa15154: MakeMaker-5.18 +From: Andreas Koenig +Files patched: MANIFEST lib/ExtUtils/Liblist.pm lib/ExtUtils/MM_VMS.pm lib/ExtUtils/MakeMaker.pm lib/ExtUtils/Mksymlists.pm + Brought it up to 5.18. + +NETaa15156: some Exporter tweaks +From: Roderick Schertler +Also: Tim Bunce +Files patched: lib/Exporter.pm + Also did Tim's Tiny Trivial patch. + +NETaa15157: new version of Test::Harness +From: Andreas Koenig +Files patched: lib/Test/Harness.pm + Applied suggested patch. + +NETaa15175: overloaded nomethod has garbage 4th op +From: Ilya Zakharevich +Files patched: gv.c + Applied suggested patch. + +NETaa15179: SvPOK_only shouldn't back off on offset pointer +From: Gutorm.Hogasen@oslo.teamco.telenor.no +Files patched: sv.h + SvPOK_only() was calling SvOOK_off(), which adjusted the string pointer + after tr/// has already acquired it. It shouldn't really be necessary + for SvPOK_only() to undo an offset string pointer, since there's no + conflict with a possible integer value where the offset is stored. + +NETaa15193: & now always bypasses prototype checking +From: Larry Wall +Files patched: dump.c op.c op.h perly.c perly.c.diff perly.y pod/perlsub.pod pp_hot.c proto.h toke.c vms/perly_c.vms vms/perly_h.vms + Turned out to be a big hairy deal because the lexer turns foo() into &foo(). + But it works consistently now. Also fixed pod. + +NETaa15197: 5.002b2 is 'appending' to $@ +From: Gurusamy Sarathy +Files patched: pp_ctl.c + Applied suggested patch. + +NETaa15201: working around Linux DBL_DIG problems +From: Kenneth Albanowski +Files patched: hints/linux.sh sv.c + Applied suggested patch. + +NETaa15208: SelectSaver +From: Chip Salzenberg +Files patched: MANIFEST lib/SelectSaver.pm + Applied suggested patch. + +NETaa15209: DirHandle +From: Chip Salzenberg +Files patched: MANIFEST lib/DirHandle.pm t/lib/dirhand.t + +NETaa15210: sysopen() +From: Chip Salzenberg +Files patched: doio.c keywords.pl lib/ExtUtils/typemap opcode.pl pod/perlfunc.pod pp_hot.c pp_sys.c proto.h toke.c + Applied suggested patch. Hope it works... + +NETaa15211: use mnemonic names in Safe setup +From: Chip Salzenberg +Files patched: ext/Safe/Safe.pm + Applied suggested patch, more or less. + +NETaa15214: prototype() +From: Chip Salzenberg +Files patched: ext/Safe/Safe.pm global.sym keywords.pl opcode.pl pp.c toke.c + Applied suggested patch. + +NETaa15217: -w problem with -d:foo +From: Tim Bunce +Files patched: perl.c + Applied suggested patch. + +NETaa15218: *GLOB{ELEMENT} +From: Larry Wall +Files patched: Makefile.SH embed.h ext/Safe/Safe.pm keywords.h opcode.h opcode.h opcode.pl perly.c perly.c.diff perly.y pp_hot.c t/lib/safe.t vms/perly_c.vms + +NETaa15219: Make *x=\*y do like *x=*y +From: Chip Salzenberg +Files patched: sv.c + Applied suggested patch. + +NETaa15221: Indigestion with Carp::longmess and big eval '...'s +From: Tim Bunce +Files patched: lib/Carp.pm + Applied suggested patch. + +NETaa15222: VERSION patch for standard extensions +From: Paul Marquess +Files patched: ext/DB_File/Makefile.PL ext/DynaLoader/DynaLoader.pm ext/DynaLoader/Makefile.PL ext/Fcntl/Fcntl.pm ext/Fcntl/Makefile.PL ext/GDBM_File/GDBM_File.pm ext/GDBM_File/Makefile.PL ext/NDBM_File/Makefile.PL ext/NDBM_File/NDBM_File.pm ext/ODBM_File/Makefile.PL ext/ODBM_File/ODBM_File.pm ext/POSIX/Makefile.PL ext/POSIX/POSIX.pm ext/SDBM_File/Makefile.PL ext/SDBM_File/SDBM_File.pm ext/Safe/Makefile.PL ext/Safe/Safe.pm ext/Socket/Makefile.PL + Applied suggested patch. + +NETaa15222: VERSION patch for standard extensions (reprise) +Files patched: ext/DB_File/DB_File.pm ext/DynaLoader/DynaLoader.pm ext/Fcntl/Fcntl.pm ext/GDBM_File/GDBM_File.pm ext/NDBM_File/NDBM_File.pm ext/ODBM_File/ODBM_File.pm ext/POSIX/POSIX.pm ext/SDBM_File/SDBM_File.pm ext/Safe/Safe.pm ext/Socket/Socket.pm + (same) + +NETaa15227: $i < 10000 should optimize to integer op +From: Larry Wall +Files patched: op.c op.c + The program + + for ($i = 0; $i < 100000; $i++) { + push @foo, $i; + } + + takes about one quarter the memory if the optimizer decides that it can + use an integer < comparison rather than floating point. It now does so + if one side is an integer constant and the other side a simple variable. + This should really help some of our benchmarks. You can still force a + floating point comparison by using 100000.0 instead. + +NETaa15228: CPerl-mode patch +From: Ilya Zakharevich +Files patched: emacs/cperl-mode.el + Applied suggested patch. + +NETaa15231: Symbol::qualify() +From: Chip Salzenberg +Files patched: ext/FileHandle/FileHandle.pm gv.c lib/SelectSaver.pm lib/Symbol.pm pp_hot.c + Applied suggested patch. + +NETaa15236: select select broke under use strict +From: Chip Salzenberg +Files patched: op.c + Instead of inventing a new bit, I just turned off the HINT_STRICT_REFS bit. + I don't think it's worthwhile distinguishing between qualified or unqualified + names to select. + +NETaa15237: use vars +From: Larry Wall +Files patched: MANIFEST gv.c lib/subs.pm lib/vars.pm sv.c + +NETaa15240: keep op names _and_ descriptions +From: Chip Salzenberg +Files patched: doio.c embed.h ext/Safe/Safe.pm ext/Safe/Safe.xs global.sym op.c opcode.h opcode.pl scope.c sv.c + Applied suggested patch. + +NETaa15259: study doesn't unset on string modification +From: Larry Wall +Files patched: mg.c pp.c + Piggybacked on m//g unset magic to unset the study too. + +NETaa15276: pick a better initial cxstack_max +From: Chip Salzenberg +Files patched: perl.c + Added fudge in, and made it calculate how many it could fit into (most of) 8K, + to avoid getting 16K of Kingsley malloc. + +NETaa15287: numeric comparison optimization adjustments +From: Clark Cooper +Files patched: op.c + Applied patch suggested by Chip, with liberalization to >= and <=. + +NETaa15299: couldn't eval string containing pod or __DATA__ +From: Andreas Koenig +Also: Gisle Aas +Files patched: toke.c + Basically, eval didn't know how to bypass pods correctly. + +NETaa15300: sv_backoff problems +From: Paul Marquess +Also: mtr +Also: Chip Salzenberg +Files patched: op.c sv.c sv.h + Applied suggested patch. + +NETaa15312: Avoid fclose(NULL) +From: Chip Salzenberg +Files patched: toke.c + Applied suggested patch. + +NETaa15318: didn't set up perl_init_i18nl14n for export +From: Ilya Zakharevich +Files patched: perl_exp.SH + Applied suggested patch. + +NETaa15331: File::Path::rmtree followed symlinks +From: Andreas Koenig +Files patched: lib/File/Path.pm + Added suggested patch, except I did + + if (not -l $root and -d _) { + + for efficiency, since if -d is true, the -l already called lstat on it. + +NETaa15339: sv_gets() didn't reset count +From: alanburlison@unn.unisys.com +Files patched: sv.c + Applied suggested patch. + +NETaa15341: differentiated importation of different types +From: Chip Salzenberg +Files patched: gv.c gv.h op.c perl.c pp.c pp_ctl.c sv.c sv.h toke.c + Applied suggested patch. + +NETaa15342: Consistent handling of e_{fp,tmpname} +From: Chip Salzenberg +Files patched: perl.c pp_ctl.c util.c + Applied suggested patch. + +NETaa15344: Safe gets confused about malloc on AIX +From: Tim Bunce +Files patched: ext/Safe/Safe.xs + Applied suggested patch. + +NETaa15348: -M upgrade +From: Tim Bunce +Files patched: perl.c pod/perlrun.pod + Applied suggested patch. + +NETaa15369: change in split optimization broke scalar context +From: Ulrich Pfeifer +Files patched: op.c + The earlier patch to make the split optimization pay attention to + OPpASSIGN_COMMON rearranged how the syntax tree is constructed, but kept + the wrong context flags. This causes pp_split() do do the wrong thing. + +NETaa15423: can't do subversion numbering because of %5.3f assumptions +From: Andy Dougherty +Files patched: configpm patchlevel.h perl.c perl.h pp_ctl.c + Removed the %5.3f assumptions where appropriate. patchlevel.h now + defines SUBVERSION, which if greater than 0 indicates a development version. + +NETaa15424: Sigsetjmp patch +From: Kenneth Albanowski +Files patched: Configure config_h.SH op.c perl.c perl.h pp_ctl.c util.c + Applied suggested patch. + +Needed to make install paths absolute. +Files patched: installperl + +h2xs 1.14 +Files patched: utils/h2xs.PL + +makedir() looped on a symlink to a directory. +Files patched: installperl + +xsubpp 1.932 +Files patched: lib/ExtUtils/xsubpp + +---------------------------------------------------------------- +Summary of user-visible Configure and build changes since 5.001: +---------------------------------------------------------------- + +Yet more enhancements and fixes have been made to the Configure and +build process for perl. Most of these will not be visible to the +ordinary user--they just make the process more robust and likely to +work on a wider range of platforms. + +This is a brief summary of the most important changes. A more +detailed description is given below. + + Slightly changed installation directories. See INSTALL. + + Include 5.000 - 5.001 upgrage notes :-) (see below). You might + want to read through them as well as these notes. + + Install documentation for perl modules and pod2* translators. You can + now view perl module documentation with either your system's man(1) + program or with the supplied perldoc script. + + Many hint file updates. + + Improve and simplify detection of local libraries and header files. + + Expand documentation of installation process in new INSTALL file. + + Try to reduce Unixisms (such as SH file extraction) to enhance + portability to other platforms. There's still a long way to go. + +Upgrade Traps and Pitfalls: + +Since a lot has changed in the build process, you are probably best off +starting with a fresh copy of the perl5.002 sources. In particular, +your 5.000 or 5.001 config.sh will contain several variables that are no +longer needed. Further, improvements in the Configure tests may mean +that some of the answers will be different than they were in previous +versions, and which answer to keep can be difficult to sort out. +Therefore, you are probably better off ignoring your old config.sh, as +in the following: + + make -k distclean # (if you've built perl before) + rm -f config.sh # (in case distclean mysteriously fails) + sh Configure [whatever options you like] + make depend + make + make test + +This, and much more, is described in the new INSTALL file. + +Here are the detailed changes from 5.002beta1 to 5.002b2 in +reverse chronolgical order: + +------------- +Version 5.002beta2 +------------- + +This is patch.2b2 to perl5.002beta1. +This takes you from 5.002beta1h to 5.002beta2. + +Renaming this as beta2 reflects _my_ feeling that it's time to +wrap up things for the release of 5.002. + +Index: Changes.Conf + + Include changes from patches 2b1a .. 2b1h, as well as this + patch. + +Index: Configure + + Use nm -D on Linux with shared libraries, if the system + supports nm -D. + +Prereq: 3.0.1.8 +*** perl5.002b1h/Configure Thu Jan 4 11:14:37 1996 +--- perl5.002b2/Configure Thu Jan 11 17:09:13 1996 + +Index: MANIFEST + + Include Stub Readline library as part of new debugger. + + Include hints file dec_osf for ODBM_File extension. + +*** perl5.002b1h/MANIFEST Wed Jan 3 14:37:54 1996 +--- perl5.002b2/MANIFEST Sat Jan 13 16:30:43 1996 + +Index: configpm + + Updates from Tim's -m/-M/-V patch. + +*** perl5.002b1h/configpm Tue Oct 31 11:51:52 1995 +--- perl5.002b2/configpm Fri Jan 12 10:53:34 1996 + +Index: doop.c + + Chip's patch to use STDCHAR and U8 nearly everywhere instead of + assuming 8-bit chars or ~(char) 0 == 0xff. + +*** perl5.002b1h/doop.c Wed Nov 15 15:08:01 1995 +--- perl5.002b2/doop.c Fri Jan 12 15:05:04 1996 + +Index: embed.h + + Updates from Tim's -m/-M/-V patch. + +*** perl5.002b1h/embed.h Thu Jan 4 13:28:08 1996 +--- perl5.002b2/embed.h Fri Jan 12 15:09:11 1996 + +Index: ext/DB_File/Makefile.PL + + Disable prototypes. + Disable pod2man. + +*** perl5.002b1h/ext/DB_File/Makefile.PL Tue Nov 14 14:14:17 1995 +--- perl5.002b2/ext/DB_File/Makefile.PL Tue Jan 9 16:54:17 1996 + +*** perl5.002b1h/ext/DB_File/Makefile.PL Tue Nov 14 14:14:17 1995 +--- perl5.002b2/ext/DB_File/Makefile.PL Sat Jan 13 17:07:11 1996 + +Index: ext/DynaLoader/Makefile.PL + + Disable prototypes. + Disable pod2man. + +*** perl5.002b1h/ext/DynaLoader/Makefile.PL Tue Jun 6 12:24:37 1995 +--- perl5.002b2/ext/DynaLoader/Makefile.PL Sat Jan 13 17:16:34 1996 + +Index: ext/Fcntl/Makefile.PL + + Disable prototypes. + Disable pod2man. + +*** perl5.002b1h/ext/Fcntl/Makefile.PL Thu Jan 19 18:58:52 1995 +--- perl5.002b2/ext/Fcntl/Makefile.PL Sat Jan 13 17:16:38 1996 + +Index: ext/GDBM_File/GDBM_File.pm + + Make the NAME section a legal paragraph. + +*** perl5.002b1h/ext/GDBM_File/GDBM_File.pm Mon Nov 20 10:22:26 1995 +--- perl5.002b2/ext/GDBM_File/GDBM_File.pm Fri Jan 12 16:11:38 1996 + +Index: ext/GDBM_File/Makefile.PL + + Disable prototypes. + Disable pod2man. + +*** perl5.002b1h/ext/GDBM_File/Makefile.PL Wed Feb 22 14:36:36 1995 +--- perl5.002b2/ext/GDBM_File/Makefile.PL Sat Jan 13 17:08:02 1996 + +Index: ext/NDBM_File/Makefile.PL + + Disable prototypes. + Disable pod2man. + +*** perl5.002b1h/ext/NDBM_File/Makefile.PL Wed Feb 22 14:36:39 1995 +--- perl5.002b2/ext/NDBM_File/Makefile.PL Sat Jan 13 17:08:13 1996 + +Index: ext/ODBM_File/Makefile.PL + + Disable prototypes. + Disable pod2man. + +*** perl5.002b1h/ext/ODBM_File/Makefile.PL Mon Jun 5 15:03:44 1995 +--- perl5.002b2/ext/ODBM_File/Makefile.PL Sat Jan 13 17:08:22 1996 + +Index: ext/ODBM_File/hints/dec_osf.pl + + New file. + +*** /dev/null Sat Jan 13 16:48:01 1996 +--- perl5.002b2/ext/ODBM_File/hints/dec_osf.pl Sat Jan 13 16:30:01 1996 + +Index: ext/POSIX/Makefile.PL + + Disable prototypes. + Disable pod2man. + +*** perl5.002b1h/ext/POSIX/Makefile.PL Thu Jan 19 18:59:00 1995 +--- perl5.002b2/ext/POSIX/Makefile.PL Sat Jan 13 17:08:27 1996 + +Index: ext/SDBM_File/Makefile.PL + + Disable prototypes. + Disable pod2man. + +*** perl5.002b1h/ext/SDBM_File/Makefile.PL Tue Nov 14 11:16:43 1995 +--- perl5.002b2/ext/SDBM_File/Makefile.PL Sat Jan 13 17:16:49 1996 + +Index: ext/SDBM_File/sdbm/sdbm.c + + Give correct prototype for free. + +Prereq: 1.16 +*** perl5.002b1h/ext/SDBM_File/sdbm/sdbm.c Mon Nov 13 23:01:41 1995 +--- perl5.002b2/ext/SDBM_File/sdbm/sdbm.c Fri Jan 12 10:33:32 1996 + +Index: ext/Safe/Makefile.PL + + Disable prototypes. + Disable pod2man. + +*** perl5.002b1h/ext/Safe/Makefile.PL Tue Jan 2 15:43:53 1996 +--- perl5.002b2/ext/Safe/Makefile.PL Sat Jan 13 17:08:45 1996 + +Index: ext/Safe/Safe.pm + + Patch from Andreas. + +*** perl5.002b1h/ext/Safe/Safe.pm Tue Jan 2 15:45:27 1996 +--- perl5.002b2/ext/Safe/Safe.pm Fri Jan 12 10:52:33 1996 + +Index: ext/Safe/Safe.xs + + Patch for older compilers which had namespace confusion. + +*** perl5.002b1h/ext/Safe/Safe.xs Tue Jan 2 15:45:27 1996 +--- perl5.002b2/ext/Safe/Safe.xs Fri Jan 5 14:27:47 1996 + +Index: ext/Socket/Makefile.PL + + Disable prototypes. + Disable pod2man. + +*** perl5.002b1h/ext/Socket/Makefile.PL Sat Dec 2 16:23:52 1995 +--- perl5.002b2/ext/Socket/Makefile.PL Sat Jan 13 17:08:52 1996 + +Index: ext/Socket/Socket.xs + + Use unsigned shorts for ports. + +*** perl5.002b1h/ext/Socket/Socket.xs Sat Dec 2 15:46:20 1995 +--- perl5.002b2/ext/Socket/Socket.xs Mon Jan 8 21:59:52 1996 + +Index: global.sym + + Updates from Tim's -m/-M/-V patch. + +*** perl5.002b1h/global.sym Wed Jan 3 12:01:59 1996 +--- perl5.002b2/global.sym Fri Jan 12 10:53:34 1996 + +Index: gv.c + + Avoid VMS sprintf bug with buffers >1024. + +*** perl5.002b1h/gv.c Fri Dec 8 10:37:22 1995 +--- perl5.002b2/gv.c Fri Jan 12 15:27:27 1996 + +Index: hints/aix.sh + + Updated + +*** perl5.002b1h/hints/aix.sh Mon Nov 13 23:03:33 1995 +--- perl5.002b2/hints/aix.sh Fri Jan 12 12:09:48 1996 + +Index: hints/irix_5.sh + + Updated + +*** perl5.002b1h/hints/irix_5.sh Tue Jan 2 14:53:52 1996 +--- perl5.002b2/hints/irix_5.sh Tue Jan 9 16:05:11 1996 + +Index: hints/linux.sh + + Updated + +*** perl5.002b1h/hints/linux.sh Fri Jun 2 10:20:55 1995 +--- perl5.002b2/hints/linux.sh Fri Jan 12 11:43:52 1996 + +Index: hints/machten.sh + + Updated + +*** perl5.002b1h/hints/machten.sh Sun Mar 12 02:36:04 1995 +--- perl5.002b2/hints/machten.sh Wed Jan 10 14:53:32 1996 + +Index: installman + + Use File::Path::mkpath instead of our own makedir(). + ./perl installman --man1dir=man1 could lead to infinte recursion + in old makedir() routine. Use the standard library instead. + +*** perl5.002b1h/installman Thu Dec 28 16:06:11 1995 +--- perl5.002b2/installman Thu Jan 11 16:12:30 1996 + +Index: installperl + + Use File::Path::mkpath instead of our own makedir(). + +*** perl5.002b1h/installperl Wed Jan 3 14:33:57 1996 +--- perl5.002b2/installperl Thu Jan 11 16:12:16 1996 + +Index: interp.sym + + Updates from Tim's -m/-M/-V patch. + +*** perl5.002b1h/interp.sym Fri Nov 10 17:17:32 1995 +--- perl5.002b2/interp.sym Fri Jan 12 15:05:04 1996 + +Index: lib/AutoLoader.pm + + Undo Tim's tainting patch from beta1h. + +*** perl5.002b1h/lib/AutoLoader.pm Tue Jan 2 16:10:36 1996 +--- perl5.002b2/lib/AutoLoader.pm Fri Jan 5 16:02:28 1996 + +Index: lib/Carp.pm +*** perl5.002b1h/lib/Carp.pm Tue Jan 2 12:10:38 1996 +--- perl5.002b2/lib/Carp.pm Fri Jan 12 11:23:31 1996 + +Index: lib/ExtUtils/MM_VMS.pm + + Updated to MakeMaker-5.16. + +*** perl5.002b1h/lib/ExtUtils/MM_VMS.pm Tue Jan 2 14:07:10 1996 +--- perl5.002b2/lib/ExtUtils/MM_VMS.pm Thu Jan 4 21:00:46 1996 + +Index: lib/ExtUtils/MakeMaker.pm + + Updated to MakeMaker-5.16. + +Prereq: 1.129 +*** perl5.002b1h/lib/ExtUtils/MakeMaker.pm Tue Jan 2 14:07:10 1996 +--- perl5.002b2/lib/ExtUtils/MakeMaker.pm Wed Jan 10 16:13:05 1996 + +Index: lib/File/Find.pm + + Fixed exporting of symbols to work. + +*** perl5.002b1h/lib/File/Find.pm Wed Nov 15 15:20:03 1995 +--- perl5.002b2/lib/File/Find.pm Wed Jan 10 14:46:24 1996 + +Index: lib/I18N/Collate.pm + + Updated documentation to match program. + +*** perl5.002b1h/lib/I18N/Collate.pm Fri Jun 2 11:30:49 1995 +--- perl5.002b2/lib/I18N/Collate.pm Fri Jan 5 16:05:26 1996 + +Index: lib/Term/ReadLine.pm + + Stub new file to interface to various readline packages, or + give stub functions if none are found. + +*** /dev/null Sat Jan 13 16:48:01 1996 +--- perl5.002b2/lib/Term/ReadLine.pm Fri Jan 12 11:23:31 1996 + +Index: lib/dumpvar.pl + + Ilya's new debugger. + +*** perl5.002b1h/lib/dumpvar.pl Tue Oct 18 12:36:00 1994 +--- perl5.002b2/lib/dumpvar.pl Fri Jan 12 11:23:31 1996 + +Index: lib/perl5db.pl + + Ilya's new debugger. + +*** perl5.002b1h/lib/perl5db.pl Tue Jan 2 16:30:33 1996 +--- perl5.002b2/lib/perl5db.pl Fri Jan 12 11:23:31 1996 + +Index: lib/sigtrap.pm + + Ilya's new debugger. + +*** perl5.002b1h/lib/sigtrap.pm Thu May 25 11:20:13 1995 +--- perl5.002b2/lib/sigtrap.pm Fri Jan 12 11:23:31 1996 + +Index: miniperlmain.c + + More robust i18nl14n() function from jhi. + +*** perl5.002b1h/miniperlmain.c Thu Jan 4 12:03:37 1996 +--- perl5.002b2/miniperlmain.c Mon Jan 8 22:00:19 1996 + +Index: myconfig + + Updates from Tim's -m/-M/-V patch. + +*** perl5.002b1h/myconfig Tue Apr 4 12:13:21 1995 +--- perl5.002b2/myconfig Fri Jan 12 10:53:35 1996 + +Index: op.c + + Chip's U8/STDCHAR patch. + +*** perl5.002b1h/op.c Wed Jan 3 14:17:01 1996 +--- perl5.002b2/op.c Fri Jan 12 15:05:05 1996 + +Index: perl.c + + Change Copyright date to include 1996. Hope you don't mind. + + Presumptively call this beta2. + +*** perl5.002b1h/perl.c Thu Jan 4 15:13:53 1996 +--- perl5.002b2/perl.c Fri Jan 12 15:05:05 1996 + +Index: perl.h + + Updates from Tim's -m/-M/-V patch. + +*** perl5.002b1h/perl.h Wed Jan 3 12:21:55 1996 +--- perl5.002b2/perl.h Fri Jan 12 15:05:04 1996 + +Index: pod/Makefile + + Use PERL=../miniperl + +*** perl5.002b1h/pod/Makefile Wed Jan 3 15:06:41 1996 +--- perl5.002b2/pod/Makefile Fri Jan 5 14:14:30 1996 + +Index: pod/perlembed.pod + + Give correct usage for the 5th arg to perl_parse (don't pass + env). + +*** perl5.002b1h/pod/perlembed.pod Thu Dec 28 16:34:07 1995 +--- perl5.002b2/pod/perlembed.pod Tue Jan 9 16:02:51 1996 + +Index: pod/perlfunc.pod + + Work around a pod2man complaint about the -X function. + +*** perl5.002b1h/pod/perlfunc.pod Tue Jan 2 15:39:26 1996 +--- perl5.002b2/pod/perlfunc.pod Fri Jan 12 11:04:15 1996 + +*** perl5.002b1h/pod/perlfunc.pod Tue Jan 2 15:39:26 1996 +--- perl5.002b2/pod/perlfunc.pod Fri Jan 12 11:04:15 1996 + +Index: pod/perlovl.pod + + Add DESCRIPTION to head1 line. + +*** perl5.002b1h/pod/perlovl.pod Thu Dec 28 16:34:13 1995 +--- perl5.002b2/pod/perlovl.pod Thu Jan 11 17:11:16 1996 + +Index: pod/perlrun.pod + + Updates from Tim's -m/-M/-V patch. + +*** perl5.002b1h/pod/perlrun.pod Thu Dec 28 16:34:15 1995 +--- perl5.002b2/pod/perlrun.pod Fri Jan 12 10:53:35 1996 + +Index: pp_ctl.c + + Debugger patch. + +*** perl5.002b1h/pp_ctl.c Wed Jan 3 12:23:13 1996 +--- perl5.002b2/pp_ctl.c Fri Jan 12 15:05:05 1996 + +Index: t/lib/posix.t + + Not having POSIX shouldn't result in test failing TEST harness. + +*** perl5.002b1h/t/lib/posix.t Mon Jan 16 22:27:33 1995 +--- perl5.002b2/t/lib/posix.t Tue Jan 9 15:33:14 1996 + +Index: t/lib/safe.t + + Not having Safe shouldn't result in test failing TEST harness. + +*** perl5.002b1h/t/lib/safe.t Tue Jan 2 15:43:53 1996 +--- perl5.002b2/t/lib/safe.t Tue Jan 9 15:35:43 1996 + +Index: t/lib/socket.t + + Not having Socket shouldn't result in test failing TEST harness. + +*** perl5.002b1h/t/lib/socket.t Fri Dec 8 11:16:01 1995 +--- perl5.002b2/t/lib/socket.t Tue Jan 9 15:35:51 1996 + +Index: t/op/time.t + + Test missed year-end wrap-around by one day. + +*** perl5.002b1h/t/op/time.t Tue Oct 18 12:46:31 1994 +--- perl5.002b2/t/op/time.t Wed Jan 10 16:04:41 1996 + +Index: toke.c + + Chip's U8/STDCHAR patch. + + Tim's "add a ; after PERL5DB" patch. + +*** perl5.002b1h/toke.c Wed Dec 6 13:24:19 1995 +--- perl5.002b2/toke.c Fri Jan 12 15:05:06 1996 + +Index: utils/h2xs.PL + + Updated to 1.13. Include Changes template file. + +*** perl5.002b1h/utils/h2xs.PL Tue Jan 2 13:50:55 1996 +--- perl5.002b2/utils/h2xs.PL Thu Jan 11 16:59:48 1996 + +Index: writemain.SH + + Updates from Tim's -m/-M/-V patch. + +*** perl5.002b1h/writemain.SH Sat Nov 18 15:51:55 1995 +--- perl5.002b2/writemain.SH Fri Jan 12 10:53:35 1996 + +------------- +Version 5.002b1h +------------- + +This is patch.2b1h to perl5.002beta1. This is mainly a clean-up +patch. No progress is made dealing with memory leaks or +optimizations, though I have used #define STRANGE_MALLOC to +work around at least some problems. + +Index: Configure + + Upgraded to metaconfig patchlevel 60. + + Add in usesafe variable to include or exclude the Safe extension. + + Test for sigaction(). + + Check for pager. This was actually accidental since perldoc.PL + mentions $pager and metaconfig has a unit to check for the + user's pager. In retrospect, I decided the Configure check + didn't do any harm and some extension writers might decide to + use it. + + Always put man1dir under $prefix unless a command line + override is used. + + Allow command-line overrides of $man1ext and $man3ext. + + + Allow man1dir and man3dir names like .../man.1 instead of + just .../man1. + + Lots of rearrangements of various pieces of Configure. + This might be because I ran metaconfig on a different + architecture. + + libc searching now honors $libpth. Previously, it (almost) + always looked in /usr/lib before checking /lib. + + Only prompt user if voidflags is not 15. If voidflags is 15, then + we presume all is well. + + +Prereq: 3.0.1.8 +*** perl5.002b1g/Configure Fri Dec 8 11:23:56 1995 +--- perl5.002b1h/Configure Thu Jan 4 11:14:37 1996 + +Index: INSTALL + + Document how to skip various extensions. + + Indicate that site_perl is typically under (not beside) + /usr/local/lib/perl5. + + Mention how to avoid nm extraction. + + +*** perl5.002b1g/INSTALL Tue Nov 21 22:54:28 1995 +--- perl5.002b1h/INSTALL Thu Jan 4 11:06:28 1996 + +Index: MANIFEST + + Rearrange files some. Try to move .PL utilities to a separate + utils/ subdirectory. + + Merge c2ph.PL and c2ph.doc. + + Add the Safe extension. + +*** perl5.002b1g/MANIFEST Fri Jan 5 11:41:50 1996 +--- perl5.002b1h/MANIFEST Wed Jan 3 14:37:54 1996 + +Index: Makefile.SH + + Now builds .PL utilities in the utils/ subdirectory. + +*** perl5.002b1g/Makefile.SH Fri Dec 8 10:36:33 1995 +--- perl5.002b1h/Makefile.SH Wed Jan 3 14:28:30 1996 + +Index: README.vms + + Updated. + +*** perl5.002b1g/README.vms Wed Nov 15 14:23:10 1995 +--- perl5.002b1h/README.vms Tue Jan 2 16:33:02 1996 + +Index: XSUB.h + + Updated to match xsubpp-1.929. + +*** perl5.002b1g/XSUB.h Wed Dec 6 13:25:26 1995 +--- perl5.002b1h/XSUB.h Tue Jan 2 11:57:57 1996 + +Index: config_h.SH + + Check for HAS_SIGACCTION + + Add STARTPERL define for C code (specifically, a2p). + +Prereq: 3.0.1.4 +*** perl5.002b1g/config_h.SH Fri Dec 8 11:23:56 1995 +--- perl5.002b1h/config_h.SH Thu Jan 4 11:14:37 1996 + +Index: doio.c + + VMS changes for kill. + +*** perl5.002b1g/doio.c Wed Nov 15 14:36:12 1995 +--- perl5.002b1h/doio.c Tue Jan 2 16:27:07 1996 + +Index: embed.h + + Auto-generated from global.sym and interp.sym. + +*** perl5.002b1g/embed.h Wed Nov 15 14:48:47 1995 +--- perl5.002b1h/embed.h Thu Jan 4 13:28:08 1996 + +Index: ext/DynaLoader/DynaLoader.pm + + VMS-specific updates. + +*** perl5.002b1g/ext/DynaLoader/DynaLoader.pm Fri Nov 10 11:49:00 1995 +--- perl5.002b1h/ext/DynaLoader/DynaLoader.pm Tue Jan 2 16:28:02 1996 + +Index: ext/DynaLoader/dl_vms.xs + + Updated to Oct 31, 1995 version. + +*** perl5.002b1g/ext/DynaLoader/dl_vms.xs Tue Oct 31 11:06:06 1995 +--- perl5.002b1h/ext/DynaLoader/dl_vms.xs Tue Jan 2 16:27:32 1996 + +Index: global.sym + + Added maxo and save_pptr items. + +*** perl5.002b1g/global.sym Wed Nov 15 14:58:14 1995 +--- perl5.002b1h/global.sym Wed Jan 3 12:01:59 1996 + +Index: hints/README.hints + + List of tested systems updated a little. + +*** perl5.002b1g/hints/README.hints Fri May 5 14:12:06 1995 +--- perl5.002b1h/hints/README.hints Tue Dec 12 20:03:36 1995 + +Index: hints/irix_5.sh + + Note SGI stdio/malloc related problem. + +*** perl5.002b1g/hints/irix_5.sh Fri May 5 14:07:52 1995 +--- perl5.002b1h/hints/irix_5.sh Tue Jan 2 14:53:52 1996 + +Index: hints/irix_6.sh + + Address change. + + Note SGI stdio/malloc related problem. + +*** perl5.002b1g/hints/irix_6.sh Fri May 5 14:08:41 1995 +--- perl5.002b1h/hints/irix_6.sh Tue Jan 2 14:54:04 1996 + +Index: hints/irix_6_2.sh + + Address change. + +*** perl5.002b1g/hints/irix_6_2.sh Mon Nov 20 11:16:55 1995 +--- perl5.002b1h/hints/irix_6_2.sh Tue Jan 2 14:49:45 1996 + +Index: hints/os2.sh + + Updated. + +*** perl5.002b1g/hints/os2.sh Tue Nov 14 11:07:33 1995 +--- perl5.002b1h/hints/os2.sh Tue Dec 26 17:51:16 1995 + +Index: installman + + Use fork if available. + +*** perl5.002b1g/installman Fri Jan 5 11:41:52 1996 +--- perl5.002b1h/installman Thu Dec 28 16:06:11 1995 + +Index: installperl + + Use new location of utility scripts. + + Eliminate double '//' and extra "". + +*** perl5.002b1g/installperl Mon Nov 20 12:55:03 1995 +--- perl5.002b1h/installperl Wed Jan 3 14:33:57 1996 + +Index: lib/AutoLoader.pm + + Avoid tainting problems. + +*** perl5.002b1g/lib/AutoLoader.pm Wed Nov 15 15:04:59 1995 +--- perl5.002b1h/lib/AutoLoader.pm Tue Jan 2 16:10:36 1996 + +Index: lib/Carp.pm + + Honor trailing \n in messages, as is done for warn(). + +*** perl5.002b1g/lib/Carp.pm Thu May 25 11:16:07 1995 +--- perl5.002b1h/lib/Carp.pm Tue Jan 2 12:10:38 1996 + +Index: lib/Cwd.pm + + VMS patches. + +*** perl5.002b1g/lib/Cwd.pm Fri Jan 5 11:41:52 1996 +--- perl5.002b1h/lib/Cwd.pm Tue Jan 2 16:28:57 1996 + +Index: lib/Exporter.pm + + Include Tim Bunce's enhanced Exporter. I also tried to + resolve the two copies of documentation that I had. + +*** perl5.002b1g/lib/Exporter.pm Fri Jan 5 11:41:52 1996 +--- perl5.002b1h/lib/Exporter.pm Thu Jan 4 14:02:08 1996 + +Index: lib/ExtUtils/MM_VMS.pm + + New file. Incorporates VMS-specific items into MakeMaker. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/lib/ExtUtils/MM_VMS.pm Tue Jan 2 14:07:10 1996 + +Index: lib/ExtUtils/MakeMaker.pm +Prereq: 1.116 + + Updated from 5.12 to 5.16. + +*** perl5.002b1g/lib/ExtUtils/MakeMaker.pm Fri Jan 5 11:41:53 1996 +--- perl5.002b1h/lib/ExtUtils/MakeMaker.pm Tue Jan 2 14:07:10 1996 + +Index: lib/ExtUtils/Manifest.pm + + Updated from MakeMaker 5.12 to 5.16. + +*** perl5.002b1g/lib/ExtUtils/Manifest.pm Fri Jan 5 11:41:54 1996 +--- perl5.002b1h/lib/ExtUtils/Manifest.pm Tue Jan 2 14:07:10 1996 + +Index: lib/ExtUtils/Mkbootstrap.pm + + Updated from MakeMaker 5.12 to 5.16. + +*** perl5.002b1g/lib/ExtUtils/Mkbootstrap.pm Fri Jan 5 11:41:54 1996 +--- perl5.002b1h/lib/ExtUtils/Mkbootstrap.pm Tue Jan 2 14:07:10 1996 + +Index: lib/ExtUtils/xsubpp + + Updated from xsubpp-1.924 to 1.929. + +*** perl5.002b1g/lib/ExtUtils/xsubpp Sun Nov 26 16:04:50 1995 +--- perl5.002b1h/lib/ExtUtils/xsubpp Tue Jan 2 16:29:59 1996 + +Index: lib/File/Path.pm + + VMS-specific changes. + +*** perl5.002b1g/lib/File/Path.pm Wed Nov 15 15:20:31 1995 +--- perl5.002b1h/lib/File/Path.pm Tue Jan 2 16:30:21 1996 + +Index: lib/Pod/Text.pm + + New file. This was created by Dov (???) and enhanced + by Kenneth Albanowski, but all based on Tom C.'s pod2text. + Unfortunately, they used a version of pod2text earlier than + the one in patch.2b1g. I've tried to straighten this all out. + + Equally unfortunately, we've all left Tom as the AUTHOR, even + though we can't hold him responsible for errors he didn't + introduce. Oh well. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/lib/Pod/Text.pm Thu Jan 4 14:16:50 1996 + +Index: lib/Sys/Hostname.pm + + VMS-specific changes. + +*** perl5.002b1g/lib/Sys/Hostname.pm Fri Jan 5 11:41:55 1996 +--- perl5.002b1h/lib/Sys/Hostname.pm Tue Jan 2 16:30:49 1996 + +Index: lib/diagnostics.pm + + A patch from Tim Bunce (?) + +*** perl5.002b1g/lib/diagnostics.pm Wed Dec 6 13:58:42 1995 +--- perl5.002b1h/lib/diagnostics.pm Tue Jan 2 12:10:37 1996 + +Index: lib/perl5db.pl + + VMS-specific changes. + +*** perl5.002b1g/lib/perl5db.pl Wed Nov 15 22:37:45 1995 +--- perl5.002b1h/lib/perl5db.pl Tue Jan 2 16:30:33 1996 + +Index: lib/splain + + Fix some old typos. + +*** perl5.002b1g/lib/splain Tue Nov 14 16:16:36 1995 +--- perl5.002b1h/lib/splain Tue Jan 2 12:10:37 1996 + +Index: makeaperl.SH + + Use the 'new' startperl variable. + +*** perl5.002b1g/makeaperl.SH Thu Jun 1 11:20:52 1995 +--- perl5.002b1h/makeaperl.SH Tue Jan 2 12:11:28 1996 + +Index: mg.c + + Set up a reliable signal handler, courtesy of Kenneth Albanowski. + This needs to be documented still. The idea is that even on + System V systems, you won't have to reset the signal handler as + the first action inside your signal handler. + +*** perl5.002b1g/mg.c Wed Nov 15 15:44:10 1995 +--- perl5.002b1h/mg.c Thu Jan 4 13:49:12 1996 + +Index: minimod.pl + + Give a proper NAME description. + +*** perl5.002b1g/minimod.pl Sun Nov 26 16:19:55 1995 +--- perl5.002b1h/minimod.pl Tue Jan 2 14:30:24 1996 + +Index: miniperlmain.c + + Better locale handling, courtesy of jhi. + + Include a proper cast of NULL for non-prototyping compilers. + +*** perl5.002b1g/miniperlmain.c Sat Nov 18 15:48:10 1995 +--- perl5.002b1h/miniperlmain.c Thu Jan 4 12:03:37 1996 + +Index: op.c + + Turn on USE_OP_MASK by default for the Safe extension. I'll be + interested in benchmark results with this on and off. + +*** perl5.002b1g/op.c Wed Nov 15 22:10:36 1995 +--- perl5.002b1h/op.c Wed Jan 3 14:17:01 1996 + +Index: os2/Makefile.SHs + + New file. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/os2/Makefile.SHs Sun Dec 24 13:55:22 1995 + +Index: os2/README + + Updated. + +*** perl5.002b1g/os2/README Tue Nov 14 14:42:13 1995 +--- perl5.002b1h/os2/README Tue Dec 26 18:31:32 1995 + +Index: os2/diff.MANIFEST + + New file. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/os2/diff.MANIFEST Tue Dec 26 19:54:12 1995 + +Index: os2/diff.Makefile + + Updated + +*** perl5.002b1g/os2/diff.Makefile Tue Nov 14 11:09:29 1995 +--- perl5.002b1h/os2/diff.Makefile Fri Dec 8 00:09:56 1995 + +Index: os2/diff.c2ph + + New file. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/os2/diff.c2ph Thu Dec 7 15:25:52 1995 + +Index: os2/diff.configure + + Updated. + +*** perl5.002b1g/os2/diff.configure Sun Nov 12 01:31:34 1995 +--- perl5.002b1h/os2/diff.configure Tue Dec 26 19:57:08 1995 + +Index: os2/diff.db_file + + New file. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/os2/diff.db_file Tue Dec 19 02:14:54 1995 + +Index: os2/diff.init + + New file. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/os2/diff.init Sun Nov 26 15:05:48 1995 + +Index: os2/diff.installman + + New file. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/os2/diff.installman Wed Nov 22 03:50:26 1995 + +Index: os2/diff.installperl + + Updated. + +*** perl5.002b1g/os2/diff.installperl Tue Nov 14 11:09:28 1995 +--- perl5.002b1h/os2/diff.installperl Wed Nov 22 02:59:58 1995 + +Index: os2/diff.mkdep + + Updated. + +*** perl5.002b1g/os2/diff.mkdep Tue Nov 14 11:09:28 1995 +--- perl5.002b1h/os2/diff.mkdep Sun Nov 26 15:00:24 1995 + +Index: os2/diff.rest + + New file. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/os2/diff.rest Thu Dec 7 16:03:26 1995 + +Index: os2/diff.x2pMakefile + + Updated. + +*** perl5.002b1g/os2/diff.x2pMakefile Tue Nov 14 11:09:29 1995 +--- perl5.002b1h/os2/diff.x2pMakefile Wed Nov 22 21:55:42 1995 + +Index: os2/notes + + New file. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/os2/notes Tue Dec 26 19:55:30 1995 + +Index: os2/os2.c + + Updated. + +*** perl5.002b1g/os2/os2.c Tue Nov 14 11:07:33 1995 +--- perl5.002b1h/os2/os2.c Sun Dec 24 13:43:02 1995 + +Index: os2/os2ish.h + + Updated. + +*** perl5.002b1g/os2/os2ish.h Tue Nov 14 11:07:33 1995 +--- perl5.002b1h/os2/os2ish.h Mon Dec 18 16:17:38 1995 + +Index: os2/perl2cmd.pl + + New file. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/os2/perl2cmd.pl Tue Dec 19 11:20:42 1995 + +Index: perl.c + + Updated to say beta1h. + + Move VMS env code. + +*** perl5.002b1g/perl.c Fri Jan 5 11:41:56 1996 +--- perl5.002b1h/perl.c Thu Jan 4 15:13:53 1996 + +Index: perl.h + + 5.002beta1 attempted some memory optimizations, but unfortunately + they can result in a memory leak problem. This can be + avoided by #define STRANGE_MALLOC. I do that here until + consensus is reached on a better strategy for handling the + memory optimizations. + + Include maxo for the maximum number of operations (needed + for the Safe extension). + +*** perl5.002b1g/perl.h Wed Nov 15 17:13:16 1995 +--- perl5.002b1h/perl.h Wed Jan 3 12:21:55 1996 + +Index: pod/Makefile + + Include -I../lib so that pod2* can find the appropriate libraries. + + The pod names are once again sorted. + + The PERL line is wrong. It should read + PERL = ../miniperl + This file is automatically generated, but I happened to do it on + a system without miniperl avaialable, so my script fell back on + the perl default. + +*** perl5.002b1g/pod/Makefile Fri Jan 5 11:41:56 1996 +--- perl5.002b1h/pod/Makefile Wed Jan 3 15:06:41 1996 + +Index: pod/perlmod.pod + + Mention the Safe extension. + +*** perl5.002b1g/pod/perlmod.pod Fri Jan 5 11:41:59 1996 +--- perl5.002b1h/pod/perlmod.pod Thu Jan 4 13:52:14 1996 + +Index: pod/perltoc.pod + + Rebuilt using pod/buildtoc and fmt. + +*** perl5.002b1g/pod/perltoc.pod Fri Jan 5 11:42:00 1996 +--- perl5.002b1h/pod/perltoc.pod Thu Jan 4 14:04:20 1996 + +Index: pod/pod2text.PL +*** perl5.002b1g/pod/pod2text.PL Fri Jan 5 11:42:01 1996 +--- perl5.002b1h/pod/pod2text.PL Tue Jan 2 14:28:24 1996 + +Index: pp_sys.c + + VMS changes ? + +*** perl5.002b1g/pp_sys.c Wed Nov 15 21:51:33 1995 +--- perl5.002b1h/pp_sys.c Tue Jan 2 16:32:50 1996 + +Index: t/lib/safe.t + + New test. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/t/lib/safe.t Tue Jan 2 15:43:53 1996 + +Index: utils/Makefile + + New file to build the utilities. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/utils/Makefile Wed Jan 3 14:06:18 1996 + +Index: utils/c2ph.PL + + Ungracefully merge the old c2ph.doc in as an embedded pod. + + Delete lots of trailing spaces and tabs that have crept in. + +Prereq: 1.7 +*** perl5.002b1g/utils/c2ph.PL Mon Nov 20 12:36:17 1995 +--- perl5.002b1h/utils/c2ph.PL Wed Jan 3 14:05:41 1996 + +Index: utils/h2ph.PL + + Add patch for AIX files which sometimes have #include<foo.h>, + i.e., no spaces after the word 'include'. + +*** perl5.002b1g/utils/h2ph.PL Mon Nov 27 10:14:50 1995 +--- perl5.002b1h/utils/h2ph.PL Tue Jan 2 16:13:31 1996 + +Index: utils/h2xs.PL + + Add version stuff. + + The old version didn't have a number. This one's called 1.12. + +*** perl5.002b1g/utils/h2xs.PL Sun Nov 19 22:37:58 1995 +--- perl5.002b1h/utils/h2xs.PL Tue Jan 2 13:50:55 1996 + +Index: utils/perlbug.PL + + New utility. + +*** /dev/null Fri Jan 5 12:48:01 1996 +--- perl5.002b1h/utils/perlbug.PL Sat Nov 18 16:15:13 1995 + +Index: utils/perldoc.PL + + Better error handling. + + Updated to use Pod::Text, if available. + + More VMS friendly. + + New -u option . + +*** perl5.002b1g/utils/perldoc.PL Tue Nov 14 14:57:57 1995 +--- perl5.002b1h/utils/perldoc.PL Tue Jan 2 14:28:08 1996 + +Index: utils/pl2pm.PL + + Changed into a .PL extract file for proper setting of + $startperl. + + Add _minimal_ pod documentation. + +*** perl5.002b1g/utils/pl2pm.PL Mon Jan 16 23:45:07 1995 +--- perl5.002b1h/utils/pl2pm.PL Wed Jan 3 14:14:57 1996 + +Index: vms/Makefile + + Updated for VMS. + +*** perl5.002b1g/vms/Makefile Wed Nov 15 22:05:15 1995 +--- perl5.002b1h/vms/Makefile Tue Jan 2 16:33:53 1996 + +Index: vms/config.vms + + Updated for VMS. + +*** perl5.002b1g/vms/config.vms Wed Nov 15 22:05:26 1995 +--- perl5.002b1h/vms/config.vms Tue Jan 2 16:33:09 1996 + +Index: vms/descrip.mms + + Updated for VMS. + +*** perl5.002b1g/vms/descrip.mms Wed Nov 15 22:05:38 1995 +--- perl5.002b1h/vms/descrip.mms Tue Jan 2 16:33:18 1996 + +Index: vms/ext/Filespec.pm + + Updated for VMS. + +*** perl5.002b1g/vms/ext/Filespec.pm Sun Mar 12 03:14:26 1995 +--- perl5.002b1h/vms/ext/Filespec.pm Tue Jan 2 16:33:25 1996 + +Index: vms/ext/MM_VMS.pm + + Updated for VMS. This might be obsolete now that we have + lib/ExtUtils/MM_VMS.pm. + +*** perl5.002b1g/vms/ext/MM_VMS.pm Wed Nov 15 22:05:48 1995 +--- perl5.002b1h/vms/ext/MM_VMS.pm Tue Jan 2 16:33:32 1996 + +Index: vms/gen_shrfls.pl + + Updated for VMS. + +*** perl5.002b1g/vms/gen_shrfls.pl Wed Nov 15 22:06:27 1995 +--- perl5.002b1h/vms/gen_shrfls.pl Tue Jan 2 16:33:47 1996 + +Index: vms/genconfig.pl + + Updated for VMS. + +*** perl5.002b1g/vms/genconfig.pl Sun Mar 12 03:14:36 1995 +--- perl5.002b1h/vms/genconfig.pl Tue Jan 2 16:33:39 1996 + +Index: vms/perlvms.pod + + Updated for VMS. + +*** perl5.002b1g/vms/perlvms.pod Wed Nov 15 22:06:32 1995 +--- perl5.002b1h/vms/perlvms.pod Tue Jan 2 16:33:59 1996 + +Index: vms/test.com + + Updated for VMS. + +*** perl5.002b1g/vms/test.com Wed Nov 15 22:06:59 1995 +--- perl5.002b1h/vms/test.com Tue Jan 2 16:34:07 1996 + +Index: vms/vms.c + + Updated for VMS. + +Prereq: 2.2 +*** perl5.002b1g/vms/vms.c Wed Nov 15 22:07:10 1995 +--- perl5.002b1h/vms/vms.c Tue Jan 2 16:34:13 1996 + +Index: vms/vmsish.h + + Updated for VMS. + +*** perl5.002b1g/vms/vmsish.h Wed Nov 15 22:07:24 1995 +--- perl5.002b1h/vms/vmsish.h Tue Jan 2 16:34:20 1996 + +Index: vms/writemain.pl + + Updated for VMS. + +*** perl5.002b1g/vms/writemain.pl Mon Mar 6 20:00:18 1995 +--- perl5.002b1h/vms/writemain.pl Tue Jan 2 16:34:26 1996 + +Index: x2p/a2py.c + + Use new config_h.SH STARTPERL #define. + +*** perl5.002b1g/x2p/a2py.c Tue Mar 7 11:53:10 1995 +--- perl5.002b1h/x2p/a2py.c Tue Jan 2 12:11:28 1996 + +Index: x2p/find2perl.PL + + Add missing "" around $Config{startperl}. + +*** perl5.002b1g/x2p/find2perl.PL Sun Nov 19 23:11:58 1995 +--- perl5.002b1h/x2p/find2perl.PL Tue Jan 2 12:11:27 1996 + +Index: x2p/s2p.PL + + Add missing "" around $Config{startperl}. + +*** perl5.002b1g/x2p/s2p.PL Sun Nov 19 23:14:59 1995 +--- perl5.002b1h/x2p/s2p.PL Tue Jan 2 12:11:27 1996 + + +------------- +Version 5.002b1g +------------- + +This is patch.2b1g to perl5.002beta1. + +This patch is just my packaging of Tom's documentation patches +he released as patch.2b1g. + +Index: MANIFEST +*** perl5.002b1f/MANIFEST Fri Dec 8 13:34:53 1995 +--- perl5.002b1g/MANIFEST Thu Dec 21 13:00:58 1995 + +Index: ext/DB_File/DB_File.pm +*** perl5.002b1f/ext/DB_File/DB_File.pm Tue Nov 14 14:14:25 1995 +--- perl5.002b1g/ext/DB_File/DB_File.pm Thu Dec 21 13:00:58 1995 + +Index: ext/POSIX/POSIX.pm +*** perl5.002b1f/ext/POSIX/POSIX.pm Fri Dec 8 10:23:54 1995 +--- perl5.002b1g/ext/POSIX/POSIX.pm Thu Dec 21 13:00:58 1995 + +Index: ext/POSIX/POSIX.pod +*** perl5.002b1f/ext/POSIX/POSIX.pod Fri Dec 8 10:30:40 1995 +--- perl5.002b1g/ext/POSIX/POSIX.pod Thu Dec 21 13:00:59 1995 + +Index: ext/Safe/Makefile.PL +*** /dev/null Wed Jan 3 14:35:56 1996 +--- perl5.002b1g/ext/Safe/Makefile.PL Thu Dec 21 13:01:00 1995 + +Index: ext/Safe/Safe.pm +*** /dev/null Wed Jan 3 14:35:56 1996 +--- perl5.002b1g/ext/Safe/Safe.pm Thu Dec 21 13:01:00 1995 + +Index: ext/Safe/Safe.xs +*** /dev/null Wed Jan 3 14:35:56 1996 +--- perl5.002b1g/ext/Safe/Safe.xs Thu Dec 21 13:01:00 1995 + +Index: ext/Socket/Socket.pm +*** perl5.002b1f/ext/Socket/Socket.pm Wed Dec 6 13:58:41 1995 +--- perl5.002b1g/ext/Socket/Socket.pm Thu Dec 21 13:01:00 1995 + +Index: installman +*** perl5.002b1f/installman Mon Nov 6 11:16:43 1995 +--- perl5.002b1g/installman Thu Dec 21 13:01:00 1995 + +Index: lib/AutoSplit.pm +*** perl5.002b1f/lib/AutoSplit.pm Wed Nov 15 15:06:19 1995 +--- perl5.002b1g/lib/AutoSplit.pm Thu Dec 21 13:01:01 1995 + +Index: lib/Cwd.pm +*** perl5.002b1f/lib/Cwd.pm Fri Dec 8 10:42:46 1995 +--- perl5.002b1g/lib/Cwd.pm Thu Dec 21 13:01:01 1995 + +Index: lib/Devel/SelfStubber.pm +*** perl5.002b1f/lib/Devel/SelfStubber.pm Sun Nov 26 16:59:51 1995 +--- perl5.002b1g/lib/Devel/SelfStubber.pm Thu Dec 21 13:01:01 1995 + +Index: lib/Env.pm +*** perl5.002b1f/lib/Env.pm Tue Oct 18 12:34:43 1994 +--- perl5.002b1g/lib/Env.pm Thu Dec 21 13:01:01 1995 + +Index: lib/Exporter.pm +*** perl5.002b1f/lib/Exporter.pm Wed Nov 15 15:19:33 1995 +--- perl5.002b1g/lib/Exporter.pm Thu Dec 21 13:01:01 1995 + +Index: lib/ExtUtils/Liblist.pm +*** perl5.002b1f/lib/ExtUtils/Liblist.pm Tue Dec 5 07:56:53 1995 +--- perl5.002b1g/lib/ExtUtils/Liblist.pm Thu Dec 21 13:01:01 1995 + +Index: lib/ExtUtils/MakeMaker.pm +Prereq: 1.115 +*** perl5.002b1f/lib/ExtUtils/MakeMaker.pm Tue Dec 5 13:20:56 1995 +--- perl5.002b1g/lib/ExtUtils/MakeMaker.pm Thu Dec 21 13:01:02 1995 + +Index: lib/ExtUtils/Manifest.pm +*** perl5.002b1f/lib/ExtUtils/Manifest.pm Tue Dec 5 13:21:00 1995 +--- perl5.002b1g/lib/ExtUtils/Manifest.pm Thu Dec 21 13:01:02 1995 + +Index: lib/ExtUtils/Mkbootstrap.pm +*** perl5.002b1f/lib/ExtUtils/Mkbootstrap.pm Thu Oct 19 05:58:34 1995 +--- perl5.002b1g/lib/ExtUtils/Mkbootstrap.pm Thu Dec 21 13:01:02 1995 + +Index: lib/FileHandle.pm +*** perl5.002b1f/lib/FileHandle.pm Thu May 25 11:18:20 1995 +--- perl5.002b1g/lib/FileHandle.pm Thu Dec 21 13:01:02 1995 + +Index: lib/IPC/Open2.pm +*** perl5.002b1f/lib/IPC/Open2.pm Thu May 25 11:31:07 1995 +--- perl5.002b1g/lib/IPC/Open2.pm Thu Dec 21 13:01:03 1995 + +Index: lib/IPC/Open3.pm +Prereq: 1.1 +*** perl5.002b1f/lib/IPC/Open3.pm Wed Nov 15 15:21:11 1995 +--- perl5.002b1g/lib/IPC/Open3.pm Thu Dec 21 13:01:03 1995 + +Index: lib/SelfLoader.pm +*** perl5.002b1f/lib/SelfLoader.pm Sun Nov 26 16:59:51 1995 +--- perl5.002b1g/lib/SelfLoader.pm Thu Dec 21 13:01:03 1995 + +Index: lib/Sys/Hostname.pm +*** perl5.002b1f/lib/Sys/Hostname.pm Tue Oct 18 12:38:25 1994 +--- perl5.002b1g/lib/Sys/Hostname.pm Thu Dec 21 13:01:03 1995 + +Index: lib/Sys/Syslog.pm +*** perl5.002b1f/lib/Sys/Syslog.pm Wed Dec 6 14:07:54 1995 +--- perl5.002b1g/lib/Sys/Syslog.pm Thu Dec 21 13:01:04 1995 + +Index: lib/Term/Cap.pm +*** perl5.002b1f/lib/Term/Cap.pm Sun Mar 12 00:14:42 1995 +--- perl5.002b1g/lib/Term/Cap.pm Thu Dec 21 13:01:04 1995 + +Index: lib/Term/Complete.pm +*** perl5.002b1f/lib/Term/Complete.pm Wed May 24 12:09:48 1995 +--- perl5.002b1g/lib/Term/Complete.pm Thu Dec 21 13:01:04 1995 + +Index: lib/Test/Harness.pm +*** perl5.002b1f/lib/Test/Harness.pm Mon Nov 13 23:01:40 1995 +--- perl5.002b1g/lib/Test/Harness.pm Thu Dec 21 13:01:04 1995 + +Index: lib/Text/Soundex.pm +Prereq: 1.2 +*** perl5.002b1f/lib/Text/Soundex.pm Tue Oct 18 12:38:42 1994 +--- perl5.002b1g/lib/Text/Soundex.pm Thu Dec 21 13:01:04 1995 + +Index: lib/Text/Tabs.pm +*** perl5.002b1f/lib/Text/Tabs.pm Sat Nov 18 16:08:55 1995 +--- perl5.002b1g/lib/Text/Tabs.pm Thu Dec 21 13:01:04 1995 + +Index: lib/Text/Wrap.pm +*** perl5.002b1f/lib/Text/Wrap.pm Sat Nov 18 16:08:56 1995 +--- perl5.002b1g/lib/Text/Wrap.pm Thu Dec 21 13:01:05 1995 + +Index: lib/TieHash.pm +*** perl5.002b1f/lib/TieHash.pm Wed Nov 15 15:27:47 1995 +--- perl5.002b1g/lib/TieHash.pm Thu Dec 21 13:01:05 1995 + +Index: lib/Time/Local.pm +*** perl5.002b1f/lib/Time/Local.pm Tue Oct 18 12:38:47 1994 +--- perl5.002b1g/lib/Time/Local.pm Thu Dec 21 13:01:05 1995 + +Index: lib/less.pm +*** perl5.002b1f/lib/less.pm Thu May 25 11:19:59 1995 +--- perl5.002b1g/lib/less.pm Thu Dec 21 13:01:05 1995 + +Index: lib/overload.pm +*** perl5.002b1f/lib/overload.pm Sat Nov 18 16:03:33 1995 +--- perl5.002b1g/lib/overload.pm Thu Dec 21 13:01:05 1995 + +Index: lib/strict.pm +*** perl5.002b1f/lib/strict.pm Thu May 25 11:20:27 1995 +--- perl5.002b1g/lib/strict.pm Thu Dec 21 13:01:05 1995 + +Index: lib/syslog.pl +*** perl5.002b1f/lib/syslog.pl Tue Oct 18 12:37:13 1994 +--- perl5.002b1g/lib/syslog.pl Thu Dec 21 13:01:05 1995 + +Index: perl.c +*** perl5.002b1f/perl.c Sun Nov 19 16:11:29 1995 +--- perl5.002b1g/perl.c Thu Dec 21 13:01:06 1995 + +Index: pod/Makefile +*** perl5.002b1f/pod/Makefile Mon Nov 20 13:00:50 1995 +--- perl5.002b1g/pod/Makefile Thu Dec 21 13:01:06 1995 + +Index: pod/PerlDoc/Functions.pm +*** /dev/null Wed Jan 3 14:35:56 1996 +--- perl5.002b1g/pod/PerlDoc/Functions.pm Thu Dec 21 13:01:07 1995 + +Index: pod/PerlDoc/Functions.pm.POSIX +*** /dev/null Wed Jan 3 14:35:56 1996 +--- perl5.002b1g/pod/PerlDoc/Functions.pm.POSIX Thu Dec 21 13:01:07 1995 + +Index: pod/buildtoc +*** /dev/null Wed Jan 3 14:35:56 1996 +--- perl5.002b1g/pod/buildtoc Thu Dec 21 13:01:07 1995 + +Index: pod/perl.pod +*** perl5.002b1f/pod/perl.pod Sat Nov 18 17:23:58 1995 +--- perl5.002b1g/pod/perl.pod Thu Dec 21 13:01:07 1995 + +Index: pod/perlbot.pod +*** perl5.002b1f/pod/perlbot.pod Fri Nov 10 17:27:33 1995 +--- perl5.002b1g/pod/perlbot.pod Thu Dec 21 13:01:07 1995 + +Index: pod/perldata.pod +*** perl5.002b1f/pod/perldata.pod Sat Nov 18 17:23:59 1995 +--- perl5.002b1g/pod/perldata.pod Thu Dec 21 13:01:07 1995 + +Index: pod/perldiag.pod +*** perl5.002b1f/pod/perldiag.pod Sun Nov 19 22:10:58 1995 +--- perl5.002b1g/pod/perldiag.pod Thu Dec 21 13:01:08 1995 + +Index: pod/perldsc.pod +*** perl5.002b1f/pod/perldsc.pod Sat Nov 18 17:24:22 1995 +--- perl5.002b1g/pod/perldsc.pod Thu Dec 21 13:01:08 1995 + +Index: pod/perlembed.pod +*** perl5.002b1f/pod/perlembed.pod Tue Oct 18 12:39:24 1994 +--- perl5.002b1g/pod/perlembed.pod Thu Dec 21 13:01:09 1995 + +Index: pod/perlform.pod +*** perl5.002b1f/pod/perlform.pod Sat Nov 18 17:23:59 1995 +--- perl5.002b1g/pod/perlform.pod Thu Dec 21 13:01:09 1995 + +Index: pod/perlfunc.pod +*** perl5.002b1f/pod/perlfunc.pod Sat Nov 18 17:24:01 1995 +--- perl5.002b1g/pod/perlfunc.pod Thu Dec 21 13:01:09 1995 + +Index: pod/perlguts.pod +*** perl5.002b1f/pod/perlguts.pod Tue Oct 31 15:38:18 1995 +--- perl5.002b1g/pod/perlguts.pod Thu Dec 21 13:01:10 1995 + +Index: pod/perlipc.pod +*** perl5.002b1f/pod/perlipc.pod Sat Nov 18 17:24:02 1995 +--- perl5.002b1g/pod/perlipc.pod Thu Dec 21 13:01:11 1995 + +Index: pod/perllol.pod +*** perl5.002b1f/pod/perllol.pod Sat Nov 18 17:24:22 1995 +--- perl5.002b1g/pod/perllol.pod Thu Dec 21 13:01:11 1995 + +Index: pod/perlmod.pod +*** perl5.002b1f/pod/perlmod.pod Sat Nov 18 17:24:03 1995 +--- perl5.002b1g/pod/perlmod.pod Thu Dec 21 13:01:11 1995 + +Index: pod/perlobj.pod +*** perl5.002b1f/pod/perlobj.pod Sun Mar 12 00:48:38 1995 +--- perl5.002b1g/pod/perlobj.pod Thu Dec 21 13:01:11 1995 + +Index: pod/perlop.pod +*** perl5.002b1f/pod/perlop.pod Sat Nov 18 17:24:03 1995 +--- perl5.002b1g/pod/perlop.pod Thu Dec 21 13:01:12 1995 + +Index: pod/perlovl.pod +*** perl5.002b1f/pod/perlovl.pod Mon Jan 23 13:25:35 1995 +--- perl5.002b1g/pod/perlovl.pod Thu Dec 21 13:01:12 1995 + +Index: pod/perlpod.pod +*** perl5.002b1f/pod/perlpod.pod Sun Nov 19 22:22:59 1995 +--- perl5.002b1g/pod/perlpod.pod Thu Dec 21 13:01:12 1995 + +Index: pod/perlre.pod +*** perl5.002b1f/pod/perlre.pod Sun Nov 26 16:57:20 1995 +--- perl5.002b1g/pod/perlre.pod Thu Dec 21 13:01:12 1995 + +Index: pod/perlref.pod +*** perl5.002b1f/pod/perlref.pod Sat Nov 18 17:24:04 1995 +--- perl5.002b1g/pod/perlref.pod Thu Dec 21 13:01:12 1995 + +Index: pod/perlrun.pod +*** perl5.002b1f/pod/perlrun.pod Wed Feb 22 18:32:59 1995 +--- perl5.002b1g/pod/perlrun.pod Thu Dec 21 13:01:12 1995 + +Index: pod/perlsec.pod +*** perl5.002b1f/pod/perlsec.pod Wed Feb 22 18:33:02 1995 +--- perl5.002b1g/pod/perlsec.pod Thu Dec 21 13:01:12 1995 + +Index: pod/perlstyle.pod +*** perl5.002b1f/pod/perlstyle.pod Tue Oct 18 12:40:13 1994 +--- perl5.002b1g/pod/perlstyle.pod Thu Dec 21 13:01:13 1995 + +Index: pod/perlsub.pod +*** perl5.002b1f/pod/perlsub.pod Sun Mar 12 22:42:58 1995 +--- perl5.002b1g/pod/perlsub.pod Thu Dec 21 13:01:13 1995 + +Index: pod/perlsyn.pod +*** perl5.002b1f/pod/perlsyn.pod Sat Nov 18 17:24:04 1995 +--- perl5.002b1g/pod/perlsyn.pod Thu Dec 21 13:01:14 1995 + +Index: pod/perltie.pod +*** /dev/null Wed Jan 3 14:35:56 1996 +--- perl5.002b1g/pod/perltie.pod Thu Dec 21 13:01:14 1995 + +Index: pod/perltoc.pod +*** /dev/null Wed Jan 3 14:35:56 1996 +--- perl5.002b1g/pod/perltoc.pod Thu Dec 21 13:01:14 1995 + +Index: pod/perltrap.pod +*** perl5.002b1f/pod/perltrap.pod Wed Nov 15 21:36:11 1995 +--- perl5.002b1g/pod/perltrap.pod Thu Dec 21 13:01:14 1995 + +Index: pod/perlvar.pod +*** perl5.002b1f/pod/perlvar.pod Wed Nov 15 21:36:59 1995 +--- perl5.002b1g/pod/perlvar.pod Thu Dec 21 13:01:15 1995 + +Index: pod/perlxs.pod +*** perl5.002b1f/pod/perlxs.pod Sun Nov 19 22:12:44 1995 +--- perl5.002b1g/pod/perlxs.pod Thu Dec 21 13:01:15 1995 + +Index: pod/perlxstut.pod +*** perl5.002b1f/pod/perlxstut.pod Mon Nov 20 13:02:12 1995 +--- perl5.002b1g/pod/perlxstut.pod Thu Dec 21 13:01:15 1995 + +Index: pod/pod2man.PL +Prereq: 1.5 +*** perl5.002b1f/pod/pod2man.PL Wed Nov 15 22:32:51 1995 +--- perl5.002b1g/pod/pod2man.PL Thu Dec 21 13:01:15 1995 + +Index: pod/pod2text +*** /dev/null Wed Jan 3 14:35:56 1996 +--- perl5.002b1g/pod/pod2text Thu Dec 21 13:01:16 1995 + +Index: pod/roffitall +*** /dev/null Wed Jan 3 14:35:56 1996 +--- perl5.002b1g/pod/roffitall Thu Dec 21 13:01:16 1995 + +Index: pod/splitpod +*** /dev/null Wed Jan 3 14:35:56 1996 +--- perl5.002b1g/pod/splitpod Thu Dec 21 13:01:16 1995 + +------------- +Version 5.002b1f +------------- + +This is patch.2b1f to perl5.002beta1. + +Index: Changes.Conf + +Include 5.001m -> 5.002beta1 changes. + +*** perl5.002b1e/Changes.Conf Mon Nov 20 10:08:05 1995 +--- perl5.002b1f/Changes.Conf Wed Dec 6 15:29:48 1995 + +Index: Configure + + Include Jeff Okamoto's patch to allow arbitrary specification + of $startperl. + + As requested, I have moved site_perl to be under + $privlib, by default. The default will now be + /usr/local/lib/perl5/site_perl. This is in accord with the way + emacs used to do it :-). + + +Prereq: 3.0.1.8 +*** perl5.002b1e/Configure Fri Dec 8 14:55:26 1995 +--- perl5.002b1f/Configure Fri Dec 8 11:23:56 1995 + +Index: MANIFEST + Add in POSIX.pod. I didn't include Dean's mkposixman tool because + it seemed to confuse MakeMaker, and I didn't want to manually fix + the POSIX/Makefile.PL file today. + + Renamed minimod.PL. The idea is as follows: I'd like to reserve + the .PL suffix for files that are extracted during build time, and + then can be deleted after installation. That is, it will be + analogous to the .SH suffix. For example, h2xs.PL creates + h2xs, and a 'make realclean' will remove the h2xs. Minimod.PL + was an exception to this pattern. Eventually, the .PL dependencies + will be generated automatically, just as the .SH dependencies are + now. + + Add in socket test. + +*** perl5.002b1e/MANIFEST Fri Dec 8 14:55:27 1995 +--- perl5.002b1f/MANIFEST Fri Dec 8 13:34:53 1995 + +Index: Makefile.SH + + Renamed minimod.PL to minimod.pl + +*** perl5.002b1e/Makefile.SH Mon Nov 20 15:56:12 1995 +--- perl5.002b1f/Makefile.SH Fri Dec 8 10:36:33 1995 + +Index: XSUB.h + + Include (SV*) cast in the newXSproto #define. + +*** perl5.002b1e/XSUB.h Fri Dec 8 14:55:14 1995 +--- perl5.002b1f/XSUB.h Wed Dec 6 13:25:26 1995 + +Index: ext/POSIX/POSIX.pm + + I have included Dean's patch and the .pod generated by mkposixman. + +*** perl5.002b1e/ext/POSIX/POSIX.pm Wed Nov 15 14:54:09 1995 +--- perl5.002b1f/ext/POSIX/POSIX.pm Fri Dec 8 10:23:54 1995 + +Index: ext/POSIX/POSIX.pod + + I have included Dean's patch and the .pod generated by mkposixman. + +*** /dev/null Fri Dec 8 13:36:14 1995 +--- perl5.002b1f/ext/POSIX/POSIX.pod Fri Dec 8 10:30:40 1995 + +Index: ext/POSIX/POSIX.xs + + I have included Dean's patch and the .pod generated by mkposixman. + +*** perl5.002b1e/ext/POSIX/POSIX.xs Wed Nov 15 14:56:22 1995 +--- perl5.002b1f/ext/POSIX/POSIX.xs Fri Dec 8 10:23:54 1995 + +Index: ext/Socket/Socket.pm + + Replace errant sockaddr_in by correct sockaddr_un. + Remove an extra ')'. -- from Tom C. + +*** perl5.002b1e/ext/Socket/Socket.pm Fri Dec 8 14:55:28 1995 +--- perl5.002b1f/ext/Socket/Socket.pm Wed Dec 6 13:58:41 1995 + +Index: gv.c + + Fix from Nick Ing-Simmons to get HvNAME(stash) from caller's + package. + +*** perl5.002b1e/gv.c Wed Nov 15 14:58:39 1995 +--- perl5.002b1f/gv.c Fri Dec 8 10:37:22 1995 + +Index: lib/Cwd.pm + + Fix a long-standing problem where insufficient permissions higher + up in the directory tree caused getcwd to fail. This often showed + up on AFS. + +*** perl5.002b1e/lib/Cwd.pm Mon Nov 13 23:01:38 1995 +--- perl5.002b1f/lib/Cwd.pm Fri Dec 8 10:42:46 1995 + +Index: lib/Sys/Syslog.pm + + Modernize Syslog.pm to 'use Socket;' and 'use Sys::Hostname'. + Alas, I've lost the attribution for this patch. Sorry about + that. + +*** perl5.002b1e/lib/Sys/Syslog.pm Thu Feb 9 20:05:36 1995 +--- perl5.002b1f/lib/Sys/Syslog.pm Wed Dec 6 14:07:54 1995 + +Index: lib/diagnostics.pm + + Fixes from Tom. + +*** perl5.002b1e/lib/diagnostics.pm Tue Nov 14 16:16:36 1995 +--- perl5.002b1f/lib/diagnostics.pm Wed Dec 6 13:58:42 1995 + +Index: t/lib/socket.t + + New test from Tom. I've allowed it to fail if the echo service is + disabled, as is apparently the case on some systems. + +*** /dev/null Fri Dec 8 13:36:14 1995 +--- perl5.002b1f/t/lib/socket.t Fri Dec 8 11:16:01 1995 + +Index: toke.c + + A patch from Paul Marquess "purely for source filters". + +*** perl5.002b1e/toke.c Wed Nov 15 22:08:23 1995 +--- perl5.002b1f/toke.c Wed Dec 6 13:24:19 1995 + +------------- +Version 5.002b1e +------------- + +This is patch.2b1e to perl5.002beta1. This is simply +an upgrade from MakeMaker-5.10 to MakeMaker-5.11. + + +Index: lib/ExtUtils/Liblist.pm +*** perl5.002b1d/lib/ExtUtils/Liblist.pm Sat Dec 2 16:50:47 1995 +--- perl5.002b1e/lib/ExtUtils/Liblist.pm Wed Dec 6 11:52:22 1995 + +Index: lib/ExtUtils/MakeMaker.pm +Prereq: 1.114 +*** perl5.002b1d/lib/ExtUtils/MakeMaker.pm Sat Dec 2 16:50:48 1995 +--- perl5.002b1e/lib/ExtUtils/MakeMaker.pm Wed Dec 6 11:52:22 1995 + +Index: lib/ExtUtils/Manifest.pm +*** perl5.002b1d/lib/ExtUtils/Manifest.pm Sat Dec 2 16:50:48 1995 +--- perl5.002b1e/lib/ExtUtils/Manifest.pm Wed Dec 6 11:52:22 1995 + +------------- +Version 5.002b1d +------------- + +This is patch.2b1d to perl5.002beta1. + +This patch includes patches for the following items: + + NETaa14710: Included bsdi_bsdos.sh hint file. + + pod/perlre.pod: Mention 32bit limit. + + Configure Updates. + + Update Socket.xs to version 1.5. This handles + systems that might not have <sys/un.h>. + + Fix missing quotes in h2ph.PL + +These are each described in detail below, after the corresponding +index line. + +Index: Configure + + locincpth should now work as documented in INSTALL + + Improved guessing of man1dir + + Remove spurious semicolon in NONBLOCK testing. + + Send failed './loc' message to fd 4. + + Check for <sys/un.h> + + Allow 'unixisms' to be overridden by hint files. + + Remove -r test from './loc' since some executables are + not readable. + + Remove spurious doublings of -L/usr/local/lib when reusing old + config.sh. + + Improved domain name guessing, from + Hallvard B Furuseth <h.b.furuseth@usit.uio.no> + + Include sitelib (architecture-independent directory). + + +Prereq: 3.0.1.8 +*** perl5.002b1c/Configure Mon Nov 20 10:00:33 1995 +--- perl5.002b1d/Configure Sat Dec 2 15:35:13 1995 + +Index: INSTALL + + Consistently use "sh Configure" in examples. + + Add reminder that interactive use may be helpful. + +*** perl5.002b1c/INSTALL Mon Nov 20 10:46:48 1995 +--- perl5.002b1d/INSTALL Tue Nov 21 22:54:28 1995 + +Index: MANIFEST + + Include renamed hint file. + +*** perl5.002b1c/MANIFEST Sat Dec 2 16:20:21 1995 +--- perl5.002b1d/MANIFEST Sun Nov 26 17:03:31 1995 + +Index: config_h.SH + + Include check for <sys/un.h>. + + Include SITELIB_EXP definition for architecture-independent + site-specific modules. Usually, this will be + /usr/local/lib/site_perl. + +Prereq: 3.0.1.4 +*** perl5.002b1c/config_h.SH Mon Nov 20 10:00:33 1995 +--- perl5.002b1d/config_h.SH Sat Dec 2 15:35:13 1995 + +Index: ext/Socket/Makefile.PL + + Update version number to 1.5. + +*** perl5.002b1c/ext/Socket/Makefile.PL Sat Nov 18 15:36:56 1995 +--- perl5.002b1d/ext/Socket/Makefile.PL Sat Dec 2 16:23:52 1995 + +Index: ext/Socket/Socket.pm + + Update to version 1.5. + +*** perl5.002b1c/ext/Socket/Socket.pm Sat Nov 18 15:37:03 1995 +--- perl5.002b1d/ext/Socket/Socket.pm Sat Dec 2 16:25:17 1995 + +Index: ext/Socket/Socket.xs + + Update to version 1.5. + This only supports the sockaddr_un -related functions if your + system has <sys/un.h>. SVR3 systems generally don't. + +*** perl5.002b1c/ext/Socket/Socket.xs Sat Nov 18 15:36:57 1995 +--- perl5.002b1d/ext/Socket/Socket.xs Sat Dec 2 15:46:20 1995 + +Index: h2ph.PL + + Add missing quotes. + +*** perl5.002b1c/h2ph.PL Sun Nov 19 23:00:39 1995 +--- perl5.002b1d/h2ph.PL Mon Nov 27 10:14:50 1995 + +Index: hints/bsdi_bsdos.sh + + Updated and renamed file. + +*** perl5.002b1c/hints/bsdi_bsdos.sh Thu Jan 19 19:08:34 1995 +--- perl5.002b1d/hints/bsdi_bsdos.sh Sun Nov 26 16:50:26 1995 + +Index: pod/perlre.pod + + Mention 65536 limit explicitly. + +*** perl5.002b1c/pod/perlre.pod Wed Nov 15 21:35:31 1995 +--- perl5.002b1d/pod/perlre.pod Sun Nov 26 16:57:20 1995 + +------------- +Version 5.002b1c +------------- + +This is patch.2b1c to perl5.002beta1. This patch includes + lib/SelfLoader, version 1.06, and + lib/Devel/SelfStubber, version 1.01. +These versions include prototype support. + +This is simply re-posting these library modules. +I have also updated MANIFEST to include them. + + +Index: MANIFEST +*** perl5.002b1b/MANIFEST Sat Dec 2 16:13:24 1995 +--- perl5.002b1c/MANIFEST Sat Dec 2 16:12:54 1995 + +Index: lib/Devel/SelfStubber.pm +*** /dev/null Fri Dec 1 16:03:22 1995 +--- perl5.002b1c/lib/Devel/SelfStubber.pm Sun Nov 26 16:14:19 1995 + +Index: lib/SelfLoader.pm +*** /dev/null Fri Dec 1 16:03:22 1995 +--- perl5.002b1c/lib/SelfLoader.pm Sun Nov 26 16:14:50 1995 + +------------- +Version 5.002b1b +------------- + +This is patch.2b1b to perl5.002beta1. This is simply +MakeMaker-5.10. Nothing else is included. + +It contains: + +Upgrade to MakeMaker-5.10 +and a revised minimod.PL that now writes a pod section into ExtUtils::Miniperl. + +Index: lib/ExtUtils/Liblist.pm +*** perl5.002b1a/lib/ExtUtils/Liblist.pm Mon Nov 13 22:03:29 1995 +--- perl5.002b1b/lib/ExtUtils/Liblist.pm Sat Dec 2 15:58:00 1995 + +Index: lib/ExtUtils/MakeMaker.pm +*** perl5.002b1a/lib/ExtUtils/MakeMaker.pm Sat Nov 18 16:01:05 1995 +--- perl5.002b1b/lib/ExtUtils/MakeMaker.pm Sat Dec 2 15:58:01 1995 + +Index: lib/ExtUtils/Manifest.pm +*** perl5.002b1a/lib/ExtUtils/Manifest.pm Mon Nov 13 22:03:30 1995 +--- perl5.002b1b/lib/ExtUtils/Manifest.pm Sat Dec 2 15:58:02 1995 + +Index: minimod.PL +*** perl5.002b1a/minimod.PL Sun Nov 19 23:01:02 1995 +--- perl5.002b1b/minimod.PL Sat Dec 2 15:58:02 1995 + +------------- +Version 5.002b1a +------------- + +This is patch.2b1a to perl5.002beta1. This is simply +xsubpp-1.944. It includes perl prototype support. + +Index: XSUB.h + +Updated to match xsubpp-1.944. Includes perl prototype support. + +*** perl5.002beta1/XSUB.h Fri Nov 10 13:11:02 1995 +--- perl5.002b1a/XSUB.h Sat Dec 2 15:43:54 1995 + +Index: lib/ExtUtils/xsubpp + +Updated to xsubpp-1.944. Includes perl prototype support. + +*** perl5.002beta1/lib/ExtUtils/xsubpp Mon Nov 20 11:03:49 1995 +--- perl5.002b1a/lib/ExtUtils/xsubpp Sat Dec 2 15:43:55 1995 + + + +Here are the detailed changes from 5.001m to 5.002beta1: + +# rm -f Doc/perl5-notes # Obsolete +# rm -f c2ph.SH # Replaced by c2ph.PL +# rm -f emacs/cperl-mode # Obsolete +# rm -f emacs/emacs19 # Obsolete +# rm -f emacs/perl-mode.el # Obsolete +# rm -f emacs/perldb.el # Obsolete +# rm -f emacs/perldb.pl # Obsolete +# rm -f emacs/tedstuff # Obsolete +# rm -f h2ph.SH # Replaced by h2ph.PL +# rm -f h2xs.SH # Replaced by h2xs.PL +# rm -f hints/hpux_9.sh # Replaced by generic hpux.sh +# rm -f hints/sco_3.sh # Replaced by generic sco.sh +# rm -f perldoc.SH # Replaced by perldoc.PL +# rm -f pod/pod2html.SH # Replaced by pod2html.PL +# rm -f pod/pod2latex.SH # Replaced by pod2latex.PL +# rm -f pod/pod2man.SH # Replaced by pod2man.PL +# rm -f x2p/find2perl.SH # Replaced by find2perl.PL +# rm -f x2p/s2p.SH # Replaced by s2p.PL +# exit + + +Index: patchlevel.h +Incremented to 2! +*** perl5.001.lwall/patchlevel.h Sun Mar 12 22:29:12 1995 +--- perl5.002beta1/patchlevel.h Sat Nov 18 15:41:15 1995 + +Index: Changes +This includes the Changes file Larry sent me. I added the first +paragraph. +*** perl5.001.lwall/Changes Mon Mar 13 00:44:07 1995 +--- perl5.002beta1/Changes Sat Nov 18 15:43:29 1995 + +Index: Changes.Conf +An all too brief summary. +*** perl5.001.lwall/Changes.Conf Thu Oct 19 21:00:06 1995 +--- perl5.002beta1/Changes.Conf Mon Nov 20 10:08:05 1995 + +Index: Configure + +Upgraded to metaconfig PL60 (despite the erroneous metaconfig message. + +Layed some groundwork for support on non Unix systems, such as OS/2. +Define things such as .o vs. .obj, '' vs. .exe, .a vs. .lib, etc. + +Include I_LOCALE testing. + +Include checks for new library set-up. I don't want to ever have to +change this again. It's documented more clearly in INSTALL. + +Figure out correct string for $startperl (usually +#!/usr/local/bin/perl). + +Improve signal detection even more. Once again, the signal number +corresponding to sig_name[n] is n (up to NSIG-1). Gaps in signal +numbers (e.g. on Solaris) are allowed and are filled with +innocuous names such as NUM37 NUM38, etc., where the 37 or 38 +represents the actual signal number. + +Prereq: 3.0.1.8 +*** perl5.001.lwall/Configure Mon Oct 23 14:08:59 1995 +--- perl5.002beta1/Configure Mon Nov 20 10:00:33 1995 + +Index: INSTALL + +Explain the library directory structure. + +Remove some tailing whitespace. + +Indicate that only the interfaces to gdbm and db are provided, not +the libraries themselves. + +Add section on upgrading from previous versions of perl5.00x. + +Mention how to override old config.sh with Configure -D and -O. + +*** perl5.001.lwall/INSTALL Mon Oct 23 14:10:26 1995 +--- perl5.002beta1/INSTALL Mon Nov 20 10:46:48 1995 + +Index: MANIFEST + +In an attempt to make the distribution slightly less Unix specific, +I've changed .SH extraction to a .PL extraction where possible. +That way folks on systems without a shell can still get the +auxilliarly files such as find2perl (assuming they *can* build +perl). + +The emacs/ directory was hopelessly out of date. I don't use emacs, +but included a current cperl-mode.el + +*** perl5.001.lwall/MANIFEST Tue Nov 14 15:21:03 1995 +--- perl5.002beta1/MANIFEST Mon Nov 20 12:40:41 1995 + +Index: Makefile.SH + +Add variables for non unix systems. + +Add .PL file extraction logic. + +*** perl5.001.lwall/Makefile.SH Tue Nov 14 20:25:48 1995 +--- perl5.002beta1/Makefile.SH Mon Nov 20 15:56:12 1995 + +Index: XSUB.h + +Protect arguments of macros with (). + +*** perl5.001.lwall/XSUB.h Tue Mar 7 14:10:00 1995 +--- perl5.002beta1/XSUB.h Fri Nov 10 13:11:02 1995 + +Index: c2ph.PL +Replaces c2ph.SH. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/c2ph.PL Mon Nov 20 12:36:17 1995 + +Index: cflags.SH +Allow for .o or .obj in file names. +*** perl5.001.lwall/cflags.SH Thu Jan 19 19:06:13 1995 +--- perl5.002beta1/cflags.SH Tue Nov 14 15:18:41 1995 + +Index: config_H +Updated. +Prereq: 3.0.1.3 +*** perl5.001.lwall/config_H Thu Oct 19 21:01:14 1995 +--- perl5.002beta1/config_H Mon Nov 20 15:41:49 1995 + +Index: config_h.SH +Updated to match new Configure. +Prereq: 3.0.1.3 +*** perl5.001.lwall/config_h.SH Mon Oct 23 14:10:38 1995 +--- perl5.002beta1/config_h.SH Mon Nov 20 10:00:33 1995 + +Index: configpm +Add in routine to print out full config.sh file. +*** perl5.001.lwall/configpm Wed Jun 7 19:46:01 1995 +--- perl5.002beta1/configpm Tue Oct 31 11:51:52 1995 + +Index: doop.c +Check for sprintf memory overflow that can arise from things +like %999999s. + +*** perl5.001.lwall/doop.c Sun Jul 2 23:33:44 1995 +--- perl5.002beta1/doop.c Wed Nov 15 15:08:01 1995 + +Index: emacs/cperl-mode.el +New version. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/emacs/cperl-mode.el Sat Nov 11 16:29:33 1995 + +Index: embed.h +Remove unnecessary whichsigname introduced in patch.1n. +*** perl5.001.lwall/embed.h Tue Nov 14 15:21:08 1995 +--- perl5.002beta1/embed.h Wed Nov 15 14:48:47 1995 + +Index: ext/DB_File/DB_File.pm +Updated to version 1.01. +*** perl5.001.lwall/ext/DB_File/DB_File.pm Wed Jun 7 19:46:14 1995 +--- perl5.002beta1/ext/DB_File/DB_File.pm Tue Nov 14 14:14:25 1995 + +Index: ext/DB_File/DB_File.xs +Updated to version 1.01. +*** perl5.001.lwall/ext/DB_File/DB_File.xs Wed Jun 7 19:46:17 1995 +--- perl5.002beta1/ext/DB_File/DB_File.xs Tue Nov 14 14:14:37 1995 + +Index: ext/DB_File/Makefile.PL +Updated to version 1.01. +*** perl5.001.lwall/ext/DB_File/Makefile.PL Wed Feb 22 14:36:32 1995 +--- perl5.002beta1/ext/DB_File/Makefile.PL Tue Nov 14 14:14:17 1995 + +Index: ext/DB_File/typemap +Fix typemap to avoid core dump. +*** perl5.001.lwall/ext/DB_File/typemap Tue Oct 18 12:27:52 1994 +--- perl5.002beta1/ext/DB_File/typemap Tue Oct 31 11:53:28 1995 + +Index: ext/DynaLoader/DynaLoader.pm +Add parentheses to Carp::confess call. +*** perl5.001.lwall/ext/DynaLoader/DynaLoader.pm Thu Oct 19 20:13:25 1995 +--- perl5.002beta1/ext/DynaLoader/DynaLoader.pm Fri Nov 10 11:49:00 1995 + +Index: ext/DynaLoader/dl_os2.xs +New file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/ext/DynaLoader/dl_os2.xs Mon Nov 13 22:58:42 1995 + +Index: ext/Fcntl/Fcntl.xs +Add O_BINARY define for OS/2. +*** perl5.001.lwall/ext/Fcntl/Fcntl.xs Mon Oct 23 14:10:54 1995 +--- perl5.002beta1/ext/Fcntl/Fcntl.xs Mon Nov 13 23:01:40 1995 + +Index: ext/GDBM_File/GDBM_File.pm +Added a tiny bit of documentation, including how to get gdbm. +Shamelessly stolen from the DB_File.pm documentation. +*** perl5.001.lwall/ext/GDBM_File/GDBM_File.pm Wed Jun 7 19:46:34 1995 +--- perl5.002beta1/ext/GDBM_File/GDBM_File.pm Mon Nov 20 10:22:26 1995 + +Index: ext/GDBM_File/GDBM_File.xs +Add gdbm_EXISTS #define. +*** perl5.001.lwall/ext/GDBM_File/GDBM_File.xs Sat Jul 1 18:44:02 1995 +--- perl5.002beta1/ext/GDBM_File/GDBM_File.xs Sat Nov 11 14:25:50 1995 + +Index: ext/NDBM_File/hints/solaris.pl +Updated for MakeMaker 5.0x. +*** perl5.001.lwall/ext/NDBM_File/hints/solaris.pl Wed Jun 7 19:46:39 1995 +--- perl5.002beta1/ext/NDBM_File/hints/solaris.pl Fri Nov 10 10:39:23 1995 + +Index: ext/ODBM_File/hints/sco.pl +Updated for MakeMaker 5.0x. +*** perl5.001.lwall/ext/ODBM_File/hints/sco.pl Wed Jun 7 19:46:44 1995 +--- perl5.002beta1/ext/ODBM_File/hints/sco.pl Fri Nov 10 10:39:32 1995 + +Index: ext/ODBM_File/hints/solaris.pl +Updated for MakeMaker 5.0x. +*** perl5.001.lwall/ext/ODBM_File/hints/solaris.pl Wed Jun 7 19:46:46 1995 +--- perl5.002beta1/ext/ODBM_File/hints/solaris.pl Fri Nov 10 10:39:44 1995 + +Index: ext/ODBM_File/hints/svr4.pl +Updated for MakeMaker 5.0x. +*** perl5.001.lwall/ext/ODBM_File/hints/svr4.pl Wed Jun 7 19:46:48 1995 +--- perl5.002beta1/ext/ODBM_File/hints/svr4.pl Fri Nov 10 10:39:54 1995 + +Index: ext/POSIX/POSIX.pm +Remove POSIX_loadlibs relics from perl5alpha days. +*** perl5.001.lwall/ext/POSIX/POSIX.pm Thu Sep 21 19:14:19 1995 +--- perl5.002beta1/ext/POSIX/POSIX.pm Wed Nov 15 14:54:09 1995 + +Index: ext/POSIX/POSIX.xs +Change whichsigname(sig) back to sig_name[sig]. +*** perl5.001.lwall/ext/POSIX/POSIX.xs Mon Oct 23 14:11:01 1995 +--- perl5.002beta1/ext/POSIX/POSIX.xs Wed Nov 15 14:56:22 1995 + +Index: ext/SDBM_File/Makefile.PL +Updated for MakeMaker 5.0x to allow compilation on non-unix systems. +*** perl5.001.lwall/ext/SDBM_File/Makefile.PL Thu Jan 19 18:59:02 1995 +--- perl5.002beta1/ext/SDBM_File/Makefile.PL Tue Nov 14 11:16:43 1995 + +Index: ext/SDBM_File/sdbm/Makefile.PL +Updated for MakeMaker 5.0x to allow compilation on non-unix systems. +*** perl5.001.lwall/ext/SDBM_File/sdbm/Makefile.PL Wed Feb 22 14:36:47 1995 +--- perl5.002beta1/ext/SDBM_File/sdbm/Makefile.PL Tue Nov 14 11:17:16 1995 + +Index: ext/SDBM_File/sdbm/sdbm.c +Include OS/2 O_BINARY flag. +Prereq: 1.16 +*** perl5.001.lwall/ext/SDBM_File/sdbm/sdbm.c Wed Jun 7 19:46:57 1995 +--- perl5.002beta1/ext/SDBM_File/sdbm/sdbm.c Mon Nov 13 23:01:41 1995 + +Index: ext/Socket/Makefile.PL +Updated to 1.3. Actually we're up to 1.4, but I forgot to update +the Makefile.PL. +*** perl5.001.lwall/ext/Socket/Makefile.PL Thu Jan 19 18:59:06 1995 +--- perl5.002beta1/ext/Socket/Makefile.PL Sat Nov 18 15:36:56 1995 + +Index: ext/Socket/Socket.pm +Updated to 1.3. Actually we're up to 1.4, but I forgot to update +the version number. This adds some non-portable stuff to manipulate +structures in <sys/un.h>. I'll have to #ifdef it out in the next +patch. + +*** perl5.001.lwall/ext/Socket/Socket.pm Sat Jul 1 15:51:54 1995 +--- perl5.002beta1/ext/Socket/Socket.pm Sat Nov 18 15:37:03 1995 + +Index: ext/Socket/Socket.xs +Updated to 1.3. Actually we're up to 1.4, but I forgot to update +the version number. This adds some non-portable stuff to manipulate +structures in <sys/un.h>. I'll have to #ifdef it out in the next +patch. + +*** perl5.001.lwall/ext/Socket/Socket.xs Sat Jul 1 15:51:56 1995 +--- perl5.002beta1/ext/Socket/Socket.xs Sat Nov 18 15:36:57 1995 + +Index: global.sym +Remove unnecessary whichsigname that was added in patch.1n. +*** perl5.001.lwall/global.sym Tue Nov 14 15:21:11 1995 +--- perl5.002beta1/global.sym Wed Nov 15 14:58:14 1995 + +Index: h2ph.PL +Converted from h2ph.SH. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/h2ph.PL Sun Nov 19 23:00:39 1995 + +Index: h2xs.PL +Converted from h2xs.SH. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/h2xs.PL Sun Nov 19 22:37:58 1995 + +Index: hints/aix.sh +Add gcc-specific -Xlinker, if you're using gcc. +*** perl5.001.lwall/hints/aix.sh Thu Oct 19 21:02:08 1995 +--- perl5.002beta1/hints/aix.sh Mon Nov 13 23:03:33 1995 + +Index: hints/freebsd.sh +Warn about possible here-document problem. +*** perl5.001.lwall/hints/freebsd.sh Sat Jul 1 18:44:07 1995 +--- perl5.002beta1/hints/freebsd.sh Sat Nov 18 16:21:20 1995 + +Index: hints/hpux.sh +Replace old hpux_9.sh, since this works for 9 and 10. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/hints/hpux.sh Mon Nov 20 09:53:28 1995 + +Index: hints/irix_6_2.sh +New hint file. This should be merged with irix_6.sh, since it's +almost identical. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/hints/irix_6_2.sh Mon Nov 20 11:16:55 1995 + +Index: hints/ncr_tower.sh +Give pointers about directory functions. +*** perl5.001.lwall/hints/ncr_tower.sh Tue Oct 18 12:33:25 1994 +--- perl5.002beta1/hints/ncr_tower.sh Tue Oct 31 11:57:51 1995 + +Index: hints/netbsd.sh +Updated. +*** perl5.001.lwall/hints/netbsd.sh Wed Jun 7 19:47:45 1995 +--- perl5.002beta1/hints/netbsd.sh Mon Nov 13 23:04:17 1995 + +Index: hints/os2.sh +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/hints/os2.sh Tue Nov 14 11:07:33 1995 + +Index: hints/sco.sh +Renamed from sco_3, since it should apply to most recent versions. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/hints/sco.sh Mon Jun 5 11:50:11 1995 + +Index: hints/solaris_2.sh +Remove temporary file try.c. +*** perl5.001.lwall/hints/solaris_2.sh Thu Oct 19 21:02:37 1995 +--- perl5.002beta1/hints/solaris_2.sh Mon Nov 20 16:01:50 1995 + +Index: hints/ultrix_4.sh +Note that you can substitute sh5 for sh to get a big speed up. +*** perl5.001.lwall/hints/ultrix_4.sh Mon Feb 13 20:15:05 1995 +--- perl5.002beta1/hints/ultrix_4.sh Sat Nov 11 17:11:41 1995 + +Index: installman +Quit if they just asked for help with -h. +*** perl5.001.lwall/installman Sat Jul 1 18:44:09 1995 +--- perl5.002beta1/installman Mon Nov 6 11:16:43 1995 + +Index: installperl +Updated to use Config rather than hand-reading config.sh again. + +Install h2ph. + +Create site_perl and site_perl/archname directories. + +*** perl5.001.lwall/installperl Sat Jul 1 18:44:12 1995 +--- perl5.002beta1/installperl Mon Nov 20 12:55:08 1995 + +Index: lib/AutoSplit.pm +Handle OS/2 backslashes. + +Tim's prototype patch. + +Less enthusiastic checking of autoloader_seen. + +*** perl5.001.lwall/lib/AutoSplit.pm Sat Jul 1 15:52:03 1995 +--- perl5.002beta1/lib/AutoSplit.pm Wed Nov 15 15:06:19 1995 + +Index: lib/Cwd.pm +Updated for Unix, NT, and OS/2. +*** perl5.001.lwall/lib/Cwd.pm Wed Jun 7 19:48:18 1995 +--- perl5.002beta1/lib/Cwd.pm Mon Nov 13 23:01:38 1995 + +Index: lib/ExtUtils/Liblist.pm +Updated to MakeMaker 5.06. +*** perl5.001.lwall/lib/ExtUtils/Liblist.pm Wed Jun 7 19:48:27 1995 +--- perl5.002beta1/lib/ExtUtils/Liblist.pm Mon Nov 13 22:03:29 1995 + +Index: lib/ExtUtils/MakeMaker.pm +Updated to MakeMaker 5.06. +Prereq: 1.21 +*** perl5.001.lwall/lib/ExtUtils/MakeMaker.pm Thu Oct 19 21:02:57 1995 +--- perl5.002beta1/lib/ExtUtils/MakeMaker.pm Sat Nov 18 16:01:05 1995 + +Index: lib/ExtUtils/Manifest.pm +Updated to MakeMaker 5.06. +*** perl5.001.lwall/lib/ExtUtils/Manifest.pm Sat Jul 1 15:52:11 1995 +--- perl5.002beta1/lib/ExtUtils/Manifest.pm Mon Nov 13 22:03:30 1995 + +Index: lib/ExtUtils/xsubpp +Updated to xsubpp-1.923. +*** perl5.001.lwall/lib/ExtUtils/xsubpp Sat Jul 1 20:08:00 1995 +--- perl5.002beta1/lib/ExtUtils/xsubpp Mon Nov 20 11:03:49 1995 + +Index: lib/File/Find.pm +OS/2 patch for nlink. +*** perl5.001.lwall/lib/File/Find.pm Sat Jul 1 15:52:13 1995 +--- perl5.002beta1/lib/File/Find.pm Wed Nov 15 15:20:03 1995 + +Index: lib/Net/Ping.pm +Updated to Net::Ping 1.00. +*** perl5.001.lwall/lib/Net/Ping.pm Wed Jun 7 19:49:13 1995 +--- perl5.002beta1/lib/Net/Ping.pm Tue Oct 31 11:15:55 1995 + +Index: lib/Shell.pm +Updated for OS/2 or Unix. +*** perl5.001.lwall/lib/Shell.pm Tue Oct 18 12:34:59 1994 +--- perl5.002beta1/lib/Shell.pm Mon Nov 13 23:01:40 1995 + +Index: lib/Test/Harness.pm +Updated for OS/2 or Unix. +*** perl5.001.lwall/lib/Test/Harness.pm Tue Oct 18 12:38:35 1994 +--- perl5.002beta1/lib/Test/Harness.pm Mon Nov 13 23:01:40 1995 + +Index: lib/Text/Tabs.pm +Updated. +*** perl5.001.lwall/lib/Text/Tabs.pm Wed Jun 7 19:49:20 1995 +--- perl5.002beta1/lib/Text/Tabs.pm Sat Nov 18 16:08:55 1995 + +Index: lib/Text/Wrap.pm +New module. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/lib/Text/Wrap.pm Sat Nov 18 16:08:56 1995 + +Index: lib/diagnostics.pm +New module. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/lib/diagnostics.pm Tue Nov 14 16:16:36 1995 + +Index: lib/lib.pm +Automatically try to load an architecture-dependent library too. +*** perl5.001.lwall/lib/lib.pm Sat Jul 1 15:51:37 1995 +--- perl5.002beta1/lib/lib.pm Fri Nov 10 16:50:43 1995 + +Index: lib/overload.pm +New file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/lib/overload.pm Sat Nov 18 16:03:33 1995 + +Index: lib/perl5db.pl +Emacs and OS/2 fixes. +*** perl5.001.lwall/lib/perl5db.pl Sun Mar 12 22:34:53 1995 +--- perl5.002beta1/lib/perl5db.pl Wed Nov 15 22:37:45 1995 + +Index: lib/splain +New file -- same as diagnostics.pm. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/lib/splain Tue Nov 14 16:16:36 1995 + +Index: mg.c +Remove unnecessary whichsigname introduced in 5.001n. +*** perl5.001.lwall/mg.c Tue Nov 14 15:31:03 1995 +--- perl5.002beta1/mg.c Wed Nov 15 15:44:10 1995 + +Index: minimod.PL +Made c++ friendly. +*** perl5.001.lwall/minimod.PL Mon Feb 13 20:15:47 1995 +--- perl5.002beta1/minimod.PL Sun Nov 19 23:01:02 1995 + +Index: miniperlmain.c +Made c++ friendly. +*** perl5.001.lwall/miniperlmain.c Mon Feb 13 21:48:50 1995 +--- perl5.002beta1/miniperlmain.c Sat Nov 18 15:48:10 1995 + +Index: op.c +Larry's post 5.001mx prototype patch. +*** perl5.001.lwall/op.c Tue Nov 14 20:36:08 1995 +--- perl5.002beta1/op.c Wed Nov 15 22:10:36 1995 + +Index: os2/Makefile.SH +New file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/os2/Makefile.SH Tue Nov 14 11:07:32 1995 + +Index: os2/POSIX.mkfifo +New file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/os2/POSIX.mkfifo Tue Nov 14 10:48:16 1995 + +Index: os2/README +New file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/os2/README Tue Nov 14 14:42:13 1995 + +Index: os2/diff.Makefile +New file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/os2/diff.Makefile Tue Nov 14 11:09:29 1995 + +Index: os2/diff.configure +New file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/os2/diff.configure Sun Nov 12 01:31:34 1995 + +Index: os2/diff.installperl +New file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/os2/diff.installperl Tue Nov 14 11:09:28 1995 + +Index: os2/diff.mkdep +New file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/os2/diff.mkdep Tue Nov 14 11:09:28 1995 + +Index: os2/diff.x2pMakefile +New file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/os2/diff.x2pMakefile Tue Nov 14 11:09:29 1995 + +Index: os2/os2.c +New file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/os2/os2.c Tue Nov 14 11:07:33 1995 + +Index: os2/os2ish.h +New file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/os2/os2ish.h Tue Nov 14 11:07:33 1995 + +Index: perl.c +Add -h option to print out usage. + +Add 'beta' to version number. + +Add new library hierarchy. See INSTALL. + +*** perl5.001.lwall/perl.c Tue Nov 14 20:09:28 1995 +--- perl5.002beta1/perl.c Sun Nov 19 16:11:29 1995 + +Index: perl.h + +Move around some includes for OS/2. + +Check for <locale.h> + +*** perl5.001.lwall/perl.h Thu Nov 9 19:50:43 1995 +--- perl5.002beta1/perl.h Wed Nov 15 17:13:16 1995 + +Index: perldoc.PL + +Moved from perldoc.SH. Updated to handle no nroff. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/perldoc.PL Tue Nov 14 14:57:57 1995 + +Index: pod/Makefile +Updated for new pods and for new .PL format. +*** perl5.001.lwall/pod/Makefile Wed Jun 7 19:50:02 1995 +--- perl5.002beta1/pod/Makefile Mon Nov 20 13:00:50 1995 + +Index: pod/perl.pod +Updated to refer to new pods. +*** perl5.001.lwall/pod/perl.pod Thu Oct 5 19:54:43 1995 +--- perl5.002beta1/pod/perl.pod Sat Nov 18 17:23:58 1995 + +Index: pod/perlbook.pod +Updated info. +*** perl5.001.lwall/pod/perlbook.pod Wed Feb 22 18:32:35 1995 +--- perl5.002beta1/pod/perlbook.pod Sat Nov 11 17:17:23 1995 + +Index: pod/perlbot.pod +Include SUPER stuff. +*** perl5.001.lwall/pod/perlbot.pod Wed Jun 7 19:50:14 1995 +--- perl5.002beta1/pod/perlbot.pod Fri Nov 10 17:27:33 1995 + +Index: pod/perlcall.pod +Change perlapi to perlxs. +*** perl5.001.lwall/pod/perlcall.pod Wed Jun 7 19:50:17 1995 +--- perl5.002beta1/pod/perlcall.pod Tue Oct 31 15:37:57 1995 + +Index: pod/perldata.pod +Tom's updates. +*** perl5.001.lwall/pod/perldata.pod Sun Mar 12 22:35:14 1995 +--- perl5.002beta1/pod/perldata.pod Sat Nov 18 17:23:59 1995 + +Index: pod/perldiag.pod +Tom's updates. +*** perl5.001.lwall/pod/perldiag.pod Tue Nov 14 22:04:11 1995 +--- perl5.002beta1/pod/perldiag.pod Sun Nov 19 22:10:58 1995 + +Index: pod/perldsc.pod +Tom's updates. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/pod/perldsc.pod Sat Nov 18 17:24:22 1995 + +Index: pod/perlform.pod +Tom's updates. +*** perl5.001.lwall/pod/perlform.pod Wed Feb 22 18:32:41 1995 +--- perl5.002beta1/pod/perlform.pod Sat Nov 18 17:23:59 1995 + +Index: pod/perlfunc.pod +Tom's updates. +*** perl5.001.lwall/pod/perlfunc.pod Tue Nov 14 15:31:33 1995 +--- perl5.002beta1/pod/perlfunc.pod Sat Nov 18 17:24:01 1995 + +Index: pod/perlguts.pod +Change perlapi to perlxs. +*** perl5.001.lwall/pod/perlguts.pod Wed Jun 7 19:50:25 1995 +--- perl5.002beta1/pod/perlguts.pod Tue Oct 31 15:38:18 1995 + +Index: pod/perlipc.pod +New file from Tom. +*** perl5.001.lwall/pod/perlipc.pod Wed Feb 22 18:32:48 1995 +--- perl5.002beta1/pod/perlipc.pod Sat Nov 18 17:24:02 1995 + +Index: pod/perllol.pod +New file from Tom. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/pod/perllol.pod Sat Nov 18 17:24:22 1995 + +Index: pod/perlmod.pod +Updates from Tom. +*** perl5.001.lwall/pod/perlmod.pod Wed Feb 22 18:32:51 1995 +--- perl5.002beta1/pod/perlmod.pod Sat Nov 18 17:24:03 1995 + +Index: pod/perlop.pod +Add missing '>'. +*** perl5.001.lwall/pod/perlop.pod Tue Nov 14 15:31:37 1995 +--- perl5.002beta1/pod/perlop.pod Sat Nov 18 17:24:03 1995 + +Index: pod/perlpod.pod +Add note about =cut operator. +*** perl5.001.lwall/pod/perlpod.pod Tue Oct 18 12:39:53 1994 +--- perl5.002beta1/pod/perlpod.pod Sun Nov 19 22:22:59 1995 + +Index: pod/perlref.pod +Updates from Tom. +*** perl5.001.lwall/pod/perlref.pod Tue Mar 7 00:56:46 1995 +--- perl5.002beta1/pod/perlref.pod Sat Nov 18 17:24:04 1995 + +Index: pod/perlsyn.pod +Updates from Tom. +*** perl5.001.lwall/pod/perlsyn.pod Sat Mar 11 14:13:48 1995 +--- perl5.002beta1/pod/perlsyn.pod Sat Nov 18 17:24:04 1995 + +Index: pod/perlxs.pod +Updated. +*** perl5.001.lwall/pod/perlxs.pod Tue Nov 14 15:31:42 1995 +--- perl5.002beta1/pod/perlxs.pod Sun Nov 19 22:12:44 1995 + +Index: pod/perlxstut.pod +New file from Jeff. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/pod/perlxstut.pod Mon Nov 20 13:02:12 1995 + +Index: pod/pod2html.PL +Updated -- version 1.15 merges Tom's suggestions and ideas from +pod2fm. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/pod/pod2html.PL Sun Nov 19 22:11:59 1995 + +Index: pod/pod2latex.PL +Changed to a .PL file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/pod/pod2latex.PL Wed Nov 15 22:32:39 1995 + +Index: pod/pod2man.PL +Changed to a .PL file. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/pod/pod2man.PL Wed Nov 15 22:32:51 1995 + +Index: pp_ctl.c +Add OS/2 stuff. +*** perl5.001.lwall/pp_ctl.c Wed Nov 15 00:37:25 1995 +--- perl5.002beta1/pp_ctl.c Wed Nov 15 21:46:37 1995 + +Index: pp_sys.c +Add OS/2 stuff. +*** perl5.001.lwall/pp_sys.c Tue Nov 14 21:03:06 1995 +--- perl5.002beta1/pp_sys.c Wed Nov 15 21:51:33 1995 + +Index: proto.h +Add OS/2 stuff to better protect MYMALLOC. +*** perl5.001.lwall/proto.h Tue Nov 14 21:01:28 1995 +--- perl5.002beta1/proto.h Wed Nov 15 21:55:23 1995 + +Index: t/TEST +Add OS/2 check for perl.exe. +*** perl5.001.lwall/t/TEST Sat Jan 14 19:35:33 1995 +--- perl5.002beta1/t/TEST Tue Nov 14 11:22:08 1995 + +Index: t/lib/db-btree.t +Updated. +*** perl5.001.lwall/t/lib/db-btree.t Tue Oct 18 12:44:05 1994 +--- perl5.002beta1/t/lib/db-btree.t Tue Oct 31 11:53:29 1995 + +Index: t/op/overload.t +Updated. +*** perl5.001.lwall/t/op/overload.t Tue Nov 14 20:56:57 1995 +--- perl5.002beta1/t/op/overload.t Mon Nov 20 15:48:56 1995 + +Index: t/op/stat.t +Add note about tmpfs failures. +*** perl5.001.lwall/t/op/stat.t Tue Oct 18 12:46:23 1994 +--- perl5.002beta1/t/op/stat.t Wed Nov 15 22:00:50 1995 + +Index: toke.c +Patch from Paul M. for source filters. +*** perl5.001.lwall/toke.c Tue Nov 14 21:59:50 1995 +--- perl5.002beta1/toke.c Wed Nov 15 22:08:23 1995 + +Index: util.c +Varargs fixes. +*** perl5.001.lwall/util.c Wed Jun 7 19:51:19 1995 +--- perl5.002beta1/util.c Tue Nov 14 10:46:37 1995 + +Index: writemain.SH +Make c++ friendly. +*** perl5.001.lwall/writemain.SH Wed Feb 8 19:44:20 1995 +--- perl5.002beta1/writemain.SH Sat Nov 18 15:51:55 1995 + +Index: x2p/Makefile.SH +Updated for .PL extraction. +*** perl5.001.lwall/x2p/Makefile.SH Wed Jun 7 19:51:37 1995 +--- perl5.002beta1/x2p/Makefile.SH Sun Nov 19 23:17:39 1995 + +Index: x2p/a2p.h +Add OS/2 stuff. +*** perl5.001.lwall/x2p/a2p.h Thu Oct 19 21:03:58 1995 +--- perl5.002beta1/x2p/a2p.h Tue Nov 14 10:46:57 1995 + +Index: x2p/cflags.SH +Add .obj for OS/2. +*** perl5.001.lwall/x2p/cflags.SH Tue Oct 18 12:47:34 1994 +--- perl5.002beta1/x2p/cflags.SH Tue Nov 14 15:18:27 1995 + +Index: x2p/find2perl.PL +Changed from .SH to .PL. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/x2p/find2perl.PL Sun Nov 19 23:11:58 1995 + +Index: x2p/s2p.PL +Changed from .SH to .PL extraction. +*** /dev/null Mon Nov 20 17:28:51 1995 +--- perl5.002beta1/x2p/s2p.PL Sun Nov 19 23:14:59 1995 diff --git a/gnu/usr.bin/perl/Changes5.003 b/gnu/usr.bin/perl/Changes5.003 new file mode 100644 index 00000000000..daba248a9e5 --- /dev/null +++ b/gnu/usr.bin/perl/Changes5.003 @@ -0,0 +1,100 @@ +------------- +Version 5.003 +------------- + + ***> IMPORTANT NOTICE: <*** +The main reason for this release was to fix a security bug affecting +suidperl on some systems. If you build suidperl on your system, it +is strongly recommended that you replace any existing copies with +version 5.003 or later immediately. + +The changes in 5.003 have been held to a minimum, in the hope that this +will simplify installation and testing at sites which may be affected +by the security hole in suidperl. In brief, 5.003 does the following: + +- Plugs security hole in suidperl mechanism on affected systems + +- MakeMaker was also updated to version 5.34, and extension Makefile.PLs + were modified to match it. + +- The following hints files were updated: bsdos.sh, hpux.sh, linux.sh, + machten.sh, solaris_2.sh + +- A fix was added to installperl to insure that file permissions were + set correctly for the installed C header files. + +- t/op/stat.t was modified to work around MachTen's belief that /dev/null + is a terminal device. + +- Incorporation of Perl version information into the VMS' version of + config.h was changed to make it compatible with the older VAXC. + +- Minor fixes were made to VMS-specific C code, and the routine + VMS::Filespec::rmsexpand was added. + +---------------- +Version 5.002_01 +---------------- + +- The EMBED namespace changes are now used by default, in order to better + segregate Perl's C global symbols from those belonging to embedding + applications or to libraries. This makes it necessary to rebuild dynamic + extensions built under previous versions of Perl without the EMBED option. + The default use of EMBED can be overridden by placing -DNO_EMBED on the + cc command line. + + The EMBED change is the beginning of a general cleanup of C global + symbols used by Perl, so binary compatibility with previously + compiled dynamic extensions may be broken again in the next few + releases. + +- Several bugs in the core were fixed, including the following: + - made sure FILE * for -e temp file was closed only once + - improved form of single-statement macro definitions to keep + as many ccs as possible happy + - fixed file tests to insure that signed values were used when + computing differences between times. + - fixed toke.c so implicit loop isn't doubled when perl is + invoked with both the -p and -n switches + +- The new SUBVERSION number has been included in the default value for + architecture-specific library directories, so development and + production architecture-dependent libraries can coexist. + +- Two new magic variables, $^E and $^O, have been added. $^E contains the + OS-specific equivalent of $!. $^O contains the name of the operating + system, in order to make it easily available to Perl code whose behavior + differs according to its environment. The standard library files have + been converted to use $^O in preference to $Config{'osname'}. + +- A mechanism was added to allow listing of locally applied patches + in the output of perl -v. + +- Miscellaneous minor corrections and updates were made to the documentation. + +- Extensive updates were made to the OS/2 and VMS ports + +- The following hints file were updated: bsdos.sh, dynixptx.sh, + irix_6_2.sh, linux.sh, os2.sh + +- Several changes were made to standard library files: + - reduced use of English.pm and $`, $', and $& in library modules, + since these degrade module loading and evaluation of regular expressions, + respectively. + - File/Basename.pm: Added path separator to dirname('.') + - File/Copy.pm: Added support for VMS and OS/2 system-level copy + - MakeMaker updated to v5.26 + - Symbol.pm now accepts old (') and new (::) package delimiters + - Sys/Syslog.pm uses Sys::Hostname only when necessary + - chat2.pl picks up necessary constants from socket.ph + - syslog.pl: Corrected thinko 'Socket' --> 'Syslog' + - xsubpp updated to v1.935 + + +- The perlbug utility is now more cautious about sending mail, in order + to reduce the chance of accidentally send a bug report by giving the + wrong response to a prompt. + +- The -m switch has been added to perldoc, causing it to display the + Perl code in target file as well as any documentation. + diff --git a/gnu/usr.bin/perl/Porting/Glossary b/gnu/usr.bin/perl/Porting/Glossary new file mode 100644 index 00000000000..c71c199ec4b --- /dev/null +++ b/gnu/usr.bin/perl/Porting/Glossary @@ -0,0 +1,1420 @@ +This file contains a description of all the shell variables whose value is +determined by the Configure script. Variables intended for use in C +programs (e.g. I_UNISTD) are already described in config_h.SH. + +alignbytes (alignbytes.U): + This variable holds the number of bytes required to align a + double. Usual values are 2, 4 and 8. + +ar (Unix.U): + This variable defines the command to use to create an archive + library. For unix, it is 'ar'. + +archlib (archlib.U): + This variable holds the name of the directory in which the user wants + to put architecture-dependent public library files for $package. + It is most often a local directory such as /usr/local/lib. + Programs using this variable must be prepared to deal + with filename expansion. + +archlibexp (archlib.U): + This variable is the same as the archlib variable, but is + filename expanded at configuration time, for convenient use. + +archobjs (Unix.U): + This variable defines any additional objects that must be linked + in with the program on this architecture. On unix, it is usually + empty. It is typically used to include emulations of unix calls + or other facilities. For perl on OS/2, for example, this would + include os2/os2.obj. + +bin (bin.U): + This variable holds the name of the directory in which the user wants + to put publicly executable images for the package in question. It + is most often a local directory such as /usr/local/bin. Programs using + this variable must be prepared to deal with ~name substitution. + +bincompat3 (bincompat3.U): + This variable contains y if Perl 5.004 should be binary-compatible + with Perl 5.003. + +byteorder (byteorder.U): + This variable holds the byte order. In the following, larger digits + indicate more significance. The variable byteorder is either 4321 + on a big-endian machine, or 1234 on a little-endian, or 87654321 + on a Cray ... or 3412 with weird order ! + +c (n.U): + This variable contains the \c string if that is what causes the echo + command to suppress newline. Otherwise it is null. Correct usage is + $echo $n "prompt for a question: $c". + +castflags (d_castneg.U): + This variable contains a flag that precise difficulties the + compiler has casting odd floating values to unsigned long: + 0 = ok + 1 = couldn't cast < 0 + 2 = couldn't cast >= 0x80000000 + 4 = couldn't cast in argument expression list + +cc (cc.U): + This variable holds the name of a command to execute a C compiler which + can resolve multiple global references that happen to have the same + name. Usual values are "cc", "Mcc", "cc -M", and "gcc". + +cccdlflags (dlsrc.U): + This variable contains any special flags that might need to be + passed with cc -c to compile modules to be used to create a shared + library that will be used for dynamic loading. For hpux, this + should be +z. It is up to the makefile to use it. + +ccdlflags (dlsrc.U): + This variable contains any special flags that might need to be + passed to cc to link with a shared library for dynamic loading. + It is up to the makefile to use it. For sunos 4.1, it should + be empty. + +ccflags (ccflags.U): + This variable contains any additional C compiler flags desired by + the user. It is up to the Makefile to use this. + +cf_by (cf_who.U): + Login name of the person who ran the Configure script and answered the + questions. This is used to tag both config.sh and config_h.SH. + +cf_time (cf_who.U): + Holds the output of the "date" command when the configuration file was + produced. This is used to tag both config.sh and config_h.SH. + +cpp_stuff (cpp_stuff.U): + This variable contains an identification of the catenation mechanism + used by the C preprocessor. + +cppflags (ccflags.U): + This variable holds the flags that will be passed to the C pre- + processor. It is up to the Makefile to use it. + +cppminus (cppstdin.U): + This variable contains the second part of the string which will invoke + the C preprocessor on the standard input and produce to standard + output. This variable will have the value "-" if cppstdin needs a minus + to specify standard input, otherwise the value is "". + +cppstdin (cppstdin.U): + This variable contains the command which will invoke the C + preprocessor on standard input and put the output to stdout. + It is primarily used by other Configure units that ask about + preprocessor symbols. + +cryptlib (d_crypt.U): + This variable holds -lcrypt or the path to a libcrypt.a archive if + the crypt() function is not defined in the standard C library. It is + up to the Makefile to use this. + +d_Gconvert (d_gconvert.U): + This variable holds what Gconvert is defined as to convert + floating point numbers into strings. It could be 'gconvert' + or a more complex macro emulating gconvert with gcvt() or sprintf. + +d_access (d_access.U): + This variable conditionally defines HAS_ACCESS if the access() system + call is available to check for access permissions using real IDs. + +d_alarm (d_alarm.U): + This variable conditionally defines the HAS_ALARM symbol, which + indicates to the C program that the alarm() routine is available. + +d_archlib (archlib.U): + This variable conditionally defines ARCHLIB to hold the pathname + of architecture-dependent library files for $package. If + $archlib is the same as $privlib, then this is set to undef. + +d_bcmp (d_bcmp.U): + This variable conditionally defines the HAS_BCMP symbol if + the bcmp() routine is available to compare strings. + +d_bcopy (d_bcopy.U): + This variable conditionally defines the HAS_BCOPY symbol if + the bcopy() routine is available to copy strings. + +d_bincompat3 (bincompat3.U): + This variable conditionally defines BINCOMPAT3 so that embed.h + can take special action if Perl 5.004 should be binary-compatible + with Perl 5.003. + +d_bsdgetpgrp (d_getpgrp.U): + This variable conditionally defines USE_BSD_GETPGRP if + getpgrp needs one arguments whereas USG one needs none. + +d_bsdpgrp (d_setpgrp.U): + This variable conditionally defines USE_BSDPGRP if the notion of + process group is the BSD one. This means setpgrp needs two arguments + whereas USG one needs none. + +d_bsdsetpgrp (d_setpgrp.U): + This variable conditionally defines USE_BSD_SETPGRP if + setpgrp needs two arguments whereas USG one needs none. + See also d_setpgid for a POSIX interface. + +d_bzero (d_bzero.U): + This variable conditionally defines the HAS_BZERO symbol if + the bzero() routine is available to set memory to 0. + +d_casti32 (d_casti32.U): + This variable conditionally defines CASTI32, which indicates + whether the C compiler can cast large floats to 32-bit ints. + +d_castneg (d_castneg.U): + This variable conditionally defines CASTNEG, which indicates + wether the C compiler can cast negative float to unsigned. + +d_charvspr (d_vprintf.U): + This variable conditionally defines CHARVSPRINTF if this system + has vsprintf returning type (char*). The trend seems to be to + declare it as "int vsprintf()". + +d_chown (d_chown.U): + This variable conditionally defines the HAS_CHOWN symbol, which + indicates to the C program that the chown() routine is available. + +d_chroot (d_chroot.U): + This variable conditionally defines the HAS_CHROOT symbol, which + indicates to the C program that the chroot() routine is available. + +d_chsize (d_chsize.U): + This variable conditionally defines the CHSIZE symbol, which + indicates to the C program that the chsize() routine is available + to truncate files. You might need a -lx to get this routine. + +d_const (d_const.U): + This variable conditionally defines the HASCONST symbol, which + indicates to the C program that this C compiler knows about the + const type. + +d_crypt (d_crypt.U): + This variable conditionally defines the CRYPT symbol, which + indicates to the C program that the crypt() routine is available + to encrypt passwords and the like. + +d_csh (d_csh.U): + This variable conditionally defines the CSH symbol, which + indicates to the C program that the C-shell exists. + +d_cuserid (d_cuserid.U): + This variable conditionally defines the HAS_CUSERID symbol, which + indicates to the C program that the cuserid() routine is available + to get character login names. + +d_dbl_dig (d_dbl_dig.U): + This variable conditionally defines d_dbl_dig if this system's + header files provide DBL_DIG, which is the number of significant + digits in a double precision number. + +d_difftime (d_difftime.U): + This variable conditionally defines the HAS_DIFFTIME symbol, which + indicates to the C program that the difftime() routine is available. + +d_dirnamlen (i_dirent.U): + This variable conditionally defines DIRNAMLEN, which indicates + to the C program that the length of directory entry names is + provided by a d_namelen field. + +d_dlerror (d_dlerror.U): + This variable conditionally defines the HAS_DLERROR symbol, which + indicates to the C program that the dlerror() routine is available. + +d_dlsymun (d_dlsymun.U): + This variable conditionally defines DLSYM_NEEDS_UNDERSCORE, which + indicates that we need to prepend an underscore to the symbol + name before calling dlsym(). + +d_dosuid (d_dosuid.U): + This variable conditionally defines the symbol DOSUID, which + tells the C program that it should insert setuid emulation code + on hosts which have setuid #! scripts disabled. + +d_dup2 (d_dup2.U): + This variable conditionally defines HAS_DUP2 if dup2() is + available to duplicate file descriptors. + +d_eofnblk (nblock_io.U): + This variable conditionally defines EOF_NONBLOCK if EOF can be seen + when reading from a non-blocking I/O source. + +d_fchmod (d_fchmod.U): + This variable conditionally defines the HAS_FCHMOD symbol, which + indicates to the C program that the fchmod() routine is available + to change mode of opened files. + +d_fchown (d_fchown.U): + This variable conditionally defines the HAS_FCHOWN symbol, which + indicates to the C program that the fchown() routine is available + to change ownership of opened files. + +d_fcntl (d_fcntl.U): + This variable conditionally defines the HAS_FCNTL symbol, and indicates + whether the fcntl() function exists + +d_fgetpos (d_fgetpos.U): + This variable conditionally defines HAS_FGETPOS if fgetpos() is + available to get the file position indicator. + +d_flexfnam (d_flexfnam.U): + This variable conditionally defines the FLEXFILENAMES symbol, which + indicates that the system supports filenames longer than 14 characters. + +d_flock (d_flock.U): + This variable conditionally defines HAS_FLOCK if flock() is + available to do file locking. + +d_fork (d_fork.U): + This variable conditionally defines the HAS_FORK symbol, which + indicates to the C program that the fork() routine is available. + +d_fpathconf (d_pathconf.U): + This variable conditionally defines the HAS_FPATHCONF symbol, which + indicates to the C program that the pathconf() routine is available + to determine file-system related limits and options associated + with a given open file descriptor. + +d_fsetpos (d_fsetpos.U): + This variable conditionally defines HAS_FSETPOS if fsetpos() is + available to set the file position indicator. + +d_ftime (d_ftime.U): + This variable conditionally defines the HAS_FTIME symbol, which + indicates that the ftime() routine exists. The ftime() routine is + basically a sub-second accuracy clock. + +d_gethent (d_gethent.U): + This variable conditionally defines HAS_GETHOSTENT if gethostent() is + available to dup file descriptors. + +d_gettimeod (d_ftime.U): + This variable conditionally defines the HAS_GETTIMEOFDAY symbol, which + indicates that the gettimeofday() system call exists (to obtain a + sub-second accuracy clock). + +d_getlogin (d_getlogin.U): + This variable conditionally defines the HAS_GETLOGIN symbol, which + indicates to the C program that the getlogin() routine is available + to get the login name. + +d_getpgid (d_getpgid.U): + This variable conditionally defines the HAS_GETPGID symbol, which + indicates to the C program that the getpgid(pid) function + is available to get the process group id. + +d_getpgrp (d_getpgrp.U): + This variable conditionally defines HAS_GETPGRP if getpgrp() is + available to get the current process group. + +d_getpgrp2 (d_getpgrp2.U): + This variable conditionally defines the HAS_GETPGRP2 symbol, which + indicates to the C program that the getpgrp2() (as in DG/UX) routine + is available to get the current process group. + +d_getppid (d_getppid.U): + This variable conditionally defines the HAS_GETPPID symbol, which + indicates to the C program that the getppid() routine is available + to get the parent process ID. + +d_getprior (d_getprior.U): + This variable conditionally defines HAS_GETPRIORITY if getpriority() + is available to get a process's priority. + +d_htonl (d_htonl.U): + This variable conditionally defines HAS_HTONL if htonl() and its + friends are available to do network order byte swapping. + +d_index (d_strchr.U): + This variable conditionally defines HAS_INDEX if index() and + rindex() are available for string searching. + +d_inetaton (d_inetaton.U): + This variable conditionally defines the HAS_INET_ATON symbol, which + indicates to the C program that the inet_aton() function is available + to parse IP address "dotted-quad" strings. + +d_isascii (d_isascii.U): + This variable conditionally defines the HAS_ISASCII constant, + which indicates to the C program that isascii() is available. + +d_killpg (d_killpg.U): + This variable conditionally defines the HAS_KILLPG symbol, which + indicates to the C program that the killpg() routine is available + to kill process groups. + +d_link (d_link.U): + This variable conditionally defines HAS_LINK if link() is + available to create hard links. + +d_locconv (d_locconv.U): + This variable conditionally defines HAS_LOCALECONV if localeconv() is + available for numeric and monetary formatting conventions. + +d_lockf (d_lockf.U): + This variable conditionally defines HAS_LOCKF if lockf() is + available to do file locking. + +d_lstat (d_lstat.U): + This variable conditionally defines HAS_LSTAT if lstat() is + available to do file stats on symbolic links. + +d_mblen (d_mblen.U): + This variable conditionally defines the HAS_MBLEN symbol, which + indicates to the C program that the mblen() routine is available + to find the number of bytes in a multibye character. + +d_mbstowcs (d_mbstowcs.U): + This variable conditionally defines the HAS_MBSTOWCS symbol, which + indicates to the C program that the mbstowcs() routine is available + to convert a multibyte string into a wide character string. + +d_mbtowc (d_mbtowc.U): + This variable conditionally defines the HAS_MBTOWC symbol, which + indicates to the C program that the mbtowc() routine is available + to convert multibyte to a wide character. + +d_memcmp (d_memcmp.U): + This variable conditionally defines the HAS_MEMCMP symbol, which + indicates to the C program that the memcmp() routine is available + to compare blocks of memory. + +d_memcpy (d_memcpy.U): + This variable conditionally defines the HAS_MEMCPY symbol, which + indicates to the C program that the memcpy() routine is available + to copy blocks of memory. + +d_memmove (d_memmove.U): + This variable conditionally defines the HAS_MEMMOVE symbol, which + indicates to the C program that the memmove() routine is available + to copy potentatially overlapping blocks of memory. + +d_memset (d_memset.U): + This variable conditionally defines the HAS_MEMSET symbol, which + indicates to the C program that the memset() routine is available + to set blocks of memory. + +d_mkdir (d_mkdir.U): + This variable conditionally defines the HAS_MKDIR symbol, which + indicates to the C program that the mkdir() routine is available + to create directories.. + +d_mkfifo (d_mkfifo.U): + This variable conditionally defines the HAS_MKFIFO symbol, which + indicates to the C program that the mkfifo() routine is available. + +d_mktime (d_mktime.U): + This variable conditionally defines the HAS_MKTIME symbol, which + indicates to the C program that the mktime() routine is available. + +d_msg (d_msg.U): + This variable conditionally defines the HAS_MSG symbol, which + indicates that the entire msg*(2) library is present. + +d_mymalloc (mallocsrc.U): + This variable conditionally defines MYMALLOC in case other parts + of the source want to take special action if MYMALLOC is used. + This may include different sorts of profiling or error detection. + +d_nice (d_nice.U): + This variable conditionally defines the HAS_NICE symbol, which + indicates to the C program that the nice() routine is available. + +d_oldarchlib (oldarchlib.U): + This variable conditionally defines OLDARCHLIB to hold the pathname + of architecture-dependent library files for a previous + version of $package. + +d_open3 (d_open3.U): + This variable conditionally defines the HAS_OPEN3 manifest constant, + which indicates to the C program that the 3 argument version of + the open(2) function is available. + +d_pathconf (d_pathconf.U): + This variable conditionally defines the HAS_PATHCONF symbol, which + indicates to the C program that the pathconf() routine is available + to determine file-system related limits and options associated + with a given filename. + +d_pause (d_pause.U): + This variable conditionally defines the HAS_PAUSE symbol, which + indicates to the C program that the pause() routine is available + to suspend a process until a signal is received. + +d_pipe (d_pipe.U): + This variable conditionally defines the HAS_PIPE symbol, which + indicates to the C program that the pipe() routine is available + to create an inter-process channel. + +d_poll (d_poll.U): + This variable conditionally defines the HAS_POLL symbol, which + indicates to the C program that the poll() routine is available + to poll active file descriptors. + +d_pwage (i_pwd.U): + This varaible conditionally defines PWAGE, which indicates + that struct passwd contains pw_age. + +d_pwchange (i_pwd.U): + This varaible conditionally defines PWCHANGE, which indicates + that struct passwd contains pw_change. + +d_pwclass (i_pwd.U): + This varaible conditionally defines PWCLASS, which indicates + that struct passwd contains pw_class. + +d_pwcomment (i_pwd.U): + This varaible conditionally defines PWCOMMENT, which indicates + that struct passwd contains pw_comment. + +d_pwexpire (i_pwd.U): + This varaible conditionally defines PWEXPIRE, which indicates + that struct passwd contains pw_expire. + +d_pwquota (i_pwd.U): + This varaible conditionally defines PWQUOTA, which indicates + that struct passwd contains pw_quota. + +d_readdir (d_readdir.U): + This variable conditionally defines HAS_READDIR if readdir() is + available to read directory entries. + +d_readlink (d_readlink.U): + This variable conditionally defines the HAS_READLINK symbol, which + indicates to the C program that the readlink() routine is available + to read the value of a symbolic link. + +d_rename (d_rename.U): + This variable conditionally defines the HAS_RENAME symbol, which + indicates to the C program that the rename() routine is available + to rename files. + +d_rewinddir (d_readdir.U): + This variable conditionally defines HAS_REWINDDIR if rewinddir() is + available. + +d_rmdir (d_rmdir.U): + This variable conditionally defines HAS_RMDIR if rmdir() is + available to remove directories. + +d_safebcpy (d_safebcpy.U): + This variable conditionally defines the HAS_SAFE_BCOPY symbol if + the bcopy() routine can do overlapping copies. + +d_safemcpy (d_safemcpy.U): + This variable conditionally defines the HAS_SAFE_MEMCPY symbol if + the memcpy() routine can do overlapping copies. + +d_sanemcmp (d_sanemcmp.U): + This variable conditionally defines the HAS_SANE_MEMCMP symbol if + the memcpy() routine is available and can be used to compare relative + magnitudes of chars with their high bits set. + +d_seekdir (d_readdir.U): + This variable conditionally defines HAS_SEEKDIR if seekdir() is + available. + +d_select (d_select.U): + This variable conditionally defines HAS_SELECT if select() is + available to select active file descriptors. A <sys/time.h> + inclusion may be necessary for the timeout field. + +d_sem (d_sem.U): + This variable conditionally defines the HAS_SEM symbol, which + indicates that the entire sem*(2) library is present. + +d_setegid (d_setegid.U): + This variable conditionally defines the HAS_SETEGID symbol, which + indicates to the C program that the setegid() routine is available + to change the effective gid of the current program. + +d_seteuid (d_seteuid.U): + This variable conditionally defines the HAS_SETEUID symbol, which + indicates to the C program that the seteuid() routine is available + to change the effective uid of the current program. + +d_setlinebuf (d_setlnbuf.U): + This variable conditionally defines the HAS_SETLINEBUF symbol, which + indicates to the C program that the setlinebuf() routine is available + to change stderr or stdout from block-buffered or unbuffered to a + line-buffered mode. + +d_setlocale (d_setlocale.U): + This variable conditionally defines HAS_SETLOCALE if setlocale() is + available to handle locale-specific ctype implementations. + +d_setpgid (d_setpgid.U): + This variable conditionally defines the HAS_SETPGID symbol, which + indicates to the C program that the setpgid(pid, gpid) function + is available to set the process group id. + +d_setpgrp (d_setpgrp.U): + This variable conditionally defines HAS_SETPGRP if setpgrp() is + available to set the current process group. + +d_setpgrp2 (d_setpgrp2.U): + This variable conditionally defines the HAS_SETPGRP2 symbol, which + indicates to the C program that the setpgrp2() (as in DG/UX) routine + is available to set the current process group. + +d_setprior (d_setprior.U): + This variable conditionally defines HAS_SETPRIORITY if setpriority() + is available to set a process's priority. + +d_setregid (d_setregid.U): + This variable conditionally defines HAS_SETREGID if setregid() is + available to change the real and effective gid of the current + process. + +d_setresgid (d_setregid.U): + This variable conditionally defines HAS_SETRESGID if setresgid() is + available to change the real, effective and saved gid of the current + process. + +d_setresuid (d_setreuid.U): + This variable conditionally defines HAS_SETREUID if setresuid() is + available to change the real, effective and saved uid of the current + process. + +d_setreuid (d_setreuid.U): + This variable conditionally defines HAS_SETREUID if setreuid() is + available to change the real and effective uid of the current + process. + +d_setrgid (d_setrgid.U): + This variable conditionally defines the HAS_SETRGID symbol, which + indicates to the C program that the setrgid() routine is available + to change the real gid of the current program. + +d_setruid (d_setruid.U): + This variable conditionally defines the HAS_SETRUID symbol, which + indicates to the C program that the setruid() routine is available + to change the real uid of the current program. + +d_setsid (d_setsid.U): + This variable conditionally defines HAS_SETSID if setsid() is + available to set the process group ID. + +d_sfio (d_sfio.U): + This variable conditionally defines the USE_SFIO symbol, + and indicates whether sfio is available (and should be used). + +d_shm (d_shm.U): + This variable conditionally defines the HAS_SHM symbol, which + indicates that the entire shm*(2) library is present. + +d_shmatprototype (d_shmat.U): + This variable conditionally defines the HAS_SHMAT_PROTOTYPE + symbol, which indicates that sys/shm.h has a prototype for + shmat. + +d_sigaction (d_sigaction.U): + This variable conditionally defines the HAS_SIGACTION symbol, which + indicates that the Vr4 sigaction() routine is available. + +d_sigsetjmp (d_sigsetjmp.U): + This variable conditionally defines the HAS_SIGSETJMP symbol, + which indicates that the sigsetjmp() routine is available to + call setjmp() and optionally save the process's signal mask. + +d_socket (d_socket.U): + This variable conditionally defines HAS_SOCKET, which indicates + that the BSD socket interface is supported. + +d_sockpair (d_socket.U): + This variable conditionally defines the HAS_SOCKETPAIR symbol, which + indicates that the BSD socketpair() is supported. + +d_statblks (d_statblks.U): + This variable conditionally defines USE_STAT_BLOCKS if this system + has a stat structure declaring st_blksize and st_blocks. + +d_stdio_cnt_lval (d_stdstdio.U): + This variable conditionally defines STDIO_CNT_LVALUE if the + FILE_cnt macro can be used as an lvalue. + +d_stdio_ptr_lval (d_stdstdio.U): + This variable conditionally defines STDIO_PTR_LVALUE if the + FILE_ptr macro can be used as an lvalue. + +d_stdiobase (d_stdstdio.U): + This variable conditionally defines USE_STDIO_BASE if this system + has a FILE structure declaring a usable _base field (or equivalent) + in stdio.h. + +d_stdstdio (d_stdstdio.U): + This variable conditionally defines USE_STDIO_PTR if this system + has a FILE structure declaring usable _ptr and _cnt fields (or + equivalent) in stdio.h. + +d_strchr (d_strchr.U): + This variable conditionally defines HAS_STRCHR if strchr() and + strrchr() are available for string searching. + +d_strcoll (d_strcoll.U): + This variable conditionally defines HAS_STRCOLL if strcoll() is + available to compare strings using collating information. + +d_strctcpy (d_strctcpy.U): + This variable conditionally defines the USE_STRUCT_COPY symbol, which + indicates to the C program that this C compiler knows how to copy + structures. + +d_strerrm (d_strerror.U): + This variable holds what Strerrr is defined as to translate an error + code condition into an error message string. It could be 'strerror' + or a more complex macro emulating strrror with sys_errlist[], or the + "unknown" string when both strerror and sys_errlist are missing. + +d_strerror (d_strerror.U): + This variable conditionally defines HAS_STRERROR if strerror() is + available to translate error numbers to strings. + +d_strtod (d_strtod.U): + This variable conditionally defines the HAS_STRTOD symbol, which + indicates to the C program that the strtod() routine is available + to provide better numeric string conversion than atof(). + +d_strtol (d_strtol.U): + This variable conditionally defines the HAS_STRTOL symbol, which + indicates to the C program that the strtol() routine is available + to provide better numeric string conversion than atoi() and friends. + +d_strtoul (d_strtoul.U): + This variable conditionally defines the HAS_STRTOUL symbol, which + indicates to the C program that the strtoul() routine is available + to provide conversion of strings to unsigned long. + +d_strxfrm (d_strxfrm.U): + This variable conditionally defines HAS_STRXFRM if strxfrm() is + available to transform strings. + +d_suidsafe (d_dosuid.U): + This variable conditionally defines SETUID_SCRIPTS_ARE_SECURE_NOW + if setuid scripts can be secure. This test looks in /dev/fd/. + +d_symlink (d_symlink.U): + This variable conditionally defines the HAS_SYMLINK symbol, which + indicates to the C program that the symlink() routine is available + to create symbolic links. + +d_syscall (d_syscall.U): + This variable conditionally defines HAS_SYSCALL if syscall() is + available call arbitrary system calls. + +d_sysconf (d_sysconf.U): + This variable conditionally defines the HAS_SYSCONF symbol, which + indicates to the C program that the sysconf() routine is available + to determine system related limits and options. + +d_syserrlst (d_strerror.U): + This variable conditionally defines HAS_SYS_ERRLIST if sys_errlist[] is + available to translate error numbers to strings. + +d_system (d_system.U): + This variable conditionally defines HAS_SYSTEM if system() is + available to issue a shell command. + +d_tcgetpgrp (d_tcgtpgrp.U): + This variable conditionally defines the HAS_TCGETPGRP symbol, which + indicates to the C program that the tcgetpgrp() routine is available. + to get foreground process group ID. + +d_tcsetpgrp (d_tcstpgrp.U): + This variable conditionally defines the HAS_TCSETPGRP symbol, which + indicates to the C program that the tcsetpgrp() routine is available + to set foreground process group ID. + +d_telldir (d_readdir.U): + This variable conditionally defines HAS_TELLDIR if telldir() is + available. + +d_times (d_times.U): + This variable conditionally defines the HAS_TIMES symbol, which indicates + that the times() routine exists. The times() routine is normaly + provided on UNIX systems. You may have to include <sys/times.h>. + +d_truncate (d_truncate.U): + This variable conditionally defines HAS_TRUNCATE if truncate() is + available to truncate files. + +d_tzname (d_tzname.U): + This variable conditionally defines HAS_TZNAME if tzname[] is + available to access timezone names. + +d_umask (d_umask.U): + This variable conditionally defines the HAS_UMASK symbol, which + indicates to the C program that the umask() routine is available. + to set and get the value of the file creation mask. + +d_uname (d_gethname.U): + This variable conditionally defines the HAS_UNAME symbol, which + indicates to the C program that the uname() routine may be + used to derive the host name. + +d_vfork (d_vfork.U): + This variable conditionally defines the HAS_VFORK symbol, which + indicates the vfork() routine is available. + +d_void_closedir (d_closedir.U): + This variable conditionally defines VOID_CLOSEDIR if closedir() + does not return a value. + +d_volatile (d_volatile.U): + This variable conditionally defines the HASVOLATILE symbol, which + indicates to the C program that this C compiler knows about the + volatile declaration. + +d_vprintf (d_vprintf.U): + This variable conditionally defines the HAS_VPRINTF symbol, which + indicates to the C program that the vprintf() routine is available + to printf with a pointer to an argument list. + +d_wait4 (d_wait4.U): + This variable conditionally defines the HAS_WAIT4 symbol, which + indicates the wait4() routine is available. + +d_waitpid (d_waitpid.U): + This variable conditionally defines HAS_WAITPID if waitpid() is + available to wait for child process. + +d_wcstombs (d_wcstombs.U): + This variable conditionally defines the HAS_WCSTOMBS symbol, which + indicates to the C program that the wcstombs() routine is available + to convert wide character strings to multibyte strings. + +d_wctomb (d_wctomb.U): + This variable conditionally defines the HAS_WCTOMB symbol, which + indicates to the C program that the wctomb() routine is available + to convert a wide character to a multibyte. + +db_hashtype (i_db.U): + This variable contains the type of the hash structure element + in the <db.h> header file. In older versions of DB, it was + int, while in newer ones it is u_int32_t. + +db_prefixtype (i_db.U): + This variable contains the type of the prefix structure element + in the <db.h> header file. In older versions of DB, it was + int, while in newer ones it is size_t. + +direntrytype (i_dirent.U): + This symbol is set to 'struct direct' or 'struct dirent' depending on + whether dirent is available or not. You should use this pseudo type to + portably declare your directory entries. + +dlext (dlext.U): + This variable contains the extension that is to be used for the + dynamically loaded modules that perl generaties. + +dlsrc (dlsrc.U): + This variable contains the name of the dynamic loading file that + will be used with the package. + +dynamic_ext (Extensions.U): + This variable holds a list of extension files we want to + link dynamically into the package. It is used by Makefile. + +eagain (nblock_io.U): + This variable bears the symbolic errno code set by read() when no + data is present on the file and non-blocking I/O was enabled (otherwise, + read() blocks naturally). + +eunicefix (Init.U): + When running under Eunice this variable contains a command which will + convert a shell script to the proper form of text file for it to be + executable by the shell. On other systems it is a no-op. + +exe_ext (Unix.U): + This variable defines the extension used for executable files. + For unix it is empty. Other possible values include '.exe'. + +firstmakefile (Unix.U): + This variable defines the first file searched by make. On unix, + it is makefile (then Makefile). On case-insensitive systems, + it might be something else. This is only used to deal with + convoluted make depend tricks. + +fpostype (fpostype.U): + This variable defines Fpos_t to be something like fpost_t, long, + uint, or whatever type is used to declare file positions in libc. + +freetype (mallocsrc.U): + This variable contains the return type of free(). It is usually + void, but occasionally int. + +full_csh (d_csh.U): + This variable contains the full pathname to 'csh', whether or + not the user has specified 'portability'. This is only used + in the compiled C program, and we assume that all systems which + can share this executable will have the same full pathname to + 'csh.' + +full_sed (Loc_sed.U): + This variable contains the full pathname to 'sed', whether or + not the user has specified 'portability'. This is only used + in the compiled C program, and we assume that all systems which + can share this executable will have the same full pathname to + 'sed.' + +gidtype (gidtype.U): + This variable defines Gid_t to be something like gid_t, int, + ushort, or whatever type is used to declare the return type + of getgid(). Typically, it is the type of group ids in the kernel. + +groupstype (groupstype.U): + This variable defines Groups_t to be something like gid_t, int, + ushort, or whatever type is used for the second argument to + getgroups(). Usually, this is the same of gidtype, but + sometimes it isn't. + +i_dirent (i_dirent.U): + This variable conditionally defines I_DIRENT, which indicates + to the C program that it should include <dirent.h>. + +i_dlfcn (i_dlfcn.U): + This variable conditionally defines the I_DLFCN symbol, which + indicates to the C program that <dlfcn.h> exists and should + be included. + +i_fcntl (i_fcntl.U): + This variable controls the value of I_FCNTL (which tells + the C program to include <fcntl.h>). + +i_float (i_float.U): + This variable conditionally defines the I_FLOAT symbol, and indicates + whether a C program may include <float.h> to get symbols like DBL_MAX + or DBL_MIN, i.e. machine dependent floating point values. + +i_grp (i_grp.U): + This variable conditionally defines the I_GRP symbol, and indicates + whether a C program should include <grp.h>. + +i_limits (i_limits.U): + This variable conditionally defines the I_LIMITS symbol, and indicates + whether a C program may include <limits.h> to get symbols like WORD_BIT + and friends. + +i_locale (i_locale.U): + This variable conditionally defines the I_LOCALE symbol, + and indicates whether a C program should include <locale.h>. + +i_math (i_math.U): + This variable conditionally defines the I_MATH symbol, and indicates + whether a C program may include <math.h>. + +i_memory (i_memory.U): + This variable conditionally defines the I_MEMORY symbol, and indicates + whether a C program should include <memory.h>. + +i_neterrno (i_neterrno.U): + This variable conditionally defines the I_NET_ERRNO symbol, which + indicates to the C program that <net/errno.h> exists and should + be included. + +i_niin (i_niin.U): + This variable conditionally defines I_NETINET_IN, which indicates + to the C program that it should include <netinet/in.h>. Otherwise, + you may try <sys/in.h>. + +i_pwd (i_pwd.U): + This variable conditionally defines I_PWD, which indicates + to the C program that it should include <pwd.h>. + +i_rpcsvcdbm (i_dbm.U): + This variable conditionally defines the I_RPCSVC_DBM symbol, which + indicates to the C program that <rpcsvc/dbm.h> exists and should + be included. Some System V systems might need this instead of <dbm.h>. + +i_sfio (i_sfio.U): + This variable conditionally defines the I_SFIO symbol, + and indicates whether a C program should include <sfio.h>. + +i_sgtty (i_termio.U): + This variable conditionally defines the I_SGTTY symbol, which + indicates to the C program that it should include <sgtty.h> rather + than <termio.h>. + +i_stdarg (i_varhdr.U): + This variable conditionally defines the I_STDARG symbol, which + indicates to the C program that <stdarg.h> exists and should + be included. + +i_stddef (i_stddef.U): + This variable conditionally defines the I_STDDEF symbol, which + indicates to the C program that <stddef.h> exists and should + be included. + +i_stdlib (i_stdlib.U): + This variable conditionally defines the I_STDLIB symbol, which + indicates to the C program that <stdlib.h> exists and should + be included. + +i_string (i_string.U): + This variable conditionally defines the I_STRING symbol, which + indicates that <string.h> should be included rather than <strings.h>. + +i_sysdir (i_sysdir.U): + This variable conditionally defines the I_SYS_DIR symbol, and indicates + whether a C program should include <sys/dir.h>. + +i_sysfile (i_sysfile.U): + This variable conditionally defines the I_SYS_FILE symbol, and indicates + whether a C program should include <sys/file.h> to get R_OK and friends. + +i_sysioctl (i_sysioctl.U): + This variable conditionally defines the I_SYS_IOCTL symbol, which + indicates to the C program that <sys/ioctl.h> exists and should + be included. + +i_sysndir (i_sysndir.U): + This variable conditionally defines the I_SYS_NDIR symbol, and indicates + whether a C program should include <sys/ndir.h>. + +i_sysparam (i_sysparam.U): + This variable conditionally defines the I_SYS_PARAM symbol, and indicates + whether a C program should include <sys/param.h>. + +i_sysresrc (i_sysresrc.U): + This variable conditionally defines the I_SYS_RESOURCE symbol, + and indicates whether a C program should include <sys/resource.h>. + +i_sysselct (i_sysselct.U): + This variable conditionally defines I_SYS_SELECT, which indicates + to the C program that it should include <sys/select.h> in order to + get the definition of struct timeval. + +i_sysstat (i_sysstat.U): + This variable conditionally defines the I_SYS_STAT symbol, + and indicates whether a C program should include <sys/stat.h>. + +i_systime (i_time.U): + This variable conditionally defines I_SYS_TIME, which indicates + to the C program that it should include <sys/time.h>. + +i_systimek (i_time.U): + This variable conditionally defines I_SYS_TIME_KERNEL, which + indicates to the C program that it should include <sys/time.h> + with KERNEL defined. + +i_systimes (i_systimes.U): + This variable conditionally defines the I_SYS_TIMES symbol, and indicates + whether a C program should include <sys/times.h>. + +i_systypes (i_systypes.U): + This variable conditionally defines the I_SYS_TYPES symbol, + and indicates whether a C program should include <sys/types.h>. + +i_sysun (i_sysun.U): + This variable conditionally defines I_SYS_UN, which indicates + to the C program that it should include <sys/un.h> to get UNIX + domain socket definitions. + +i_syswait (i_syswait.U): + This variable conditionally defines I_SYS_WAIT, which indicates + to the C program that it should include <sys/wait.h>. + +i_termio (i_termio.U): + This variable conditionally defines the I_TERMIO symbol, which + indicates to the C program that it should include <termio.h> rather + than <sgtty.h>. + +i_termios (i_termio.U): + This variable conditionally defines the I_TERMIOS symbol, which + indicates to the C program that the POSIX <termios.h> file is + to be included. + +i_time (i_time.U): + This variable conditionally defines I_TIME, which indicates + to the C program that it should include <time.h>. + +i_unistd (i_unistd.U): + This variable conditionally defines the I_UNISTD symbol, and indicates + whether a C program should include <unistd.h>. + +i_utime (i_utime.U): + This variable conditionally defines the I_UTIME symbol, and indicates + whether a C program should include <utime.h>. + +i_values (i_values.U): + This variable conditionally defines the I_VALUES symbol, and indicates + whether a C program may include <values.h> to get symbols like MAXLONG + and friends. + +i_varargs (i_varhdr.U): + This variable conditionally defines I_VARARGS, which indicates + to the C program that it should include <varargs.h>. + +i_varhdr (i_varhdr.U): + Contains the name of the header to be included to get va_dcl definition. + Typically one of varargs.h or stdarg.h. + +i_vfork (i_vfork.U): + This variable conditionally defines the I_VFORK symbol, and indicates + whether a C program should include vfork.h. + +installbin (bin.U): + This variable is the same as binexp unless AFS is running in which case + the user is explicitely prompted for it. This variable should always + be used in your makefiles for maximum portability. + +installprivlib (privlib.U): + This variable is really the same as privlibexp but may differ on + those systems using AFS. For extra portability, only this variable + should be used in makefiles. + +intsize (intsize.U): + This variable contains the value of the INTSIZE symbol, + which indicates to the C program how many bytes there are + in an integer. + +large (models.U): + This variable contains a flag which will tell the C compiler and loader + to produce a program running with a large memory model. It is up to + the Makefile to use this. + +ld (dlsrc.U): + This variable indicates the program to be used to link + libraries for dynamic loading. On some systems, it is 'ld'. + On ELF systems, it should be $cc. Mostly, we'll try to respect + the hint file setting. + +lddlflags (dlsrc.U): + This variable contains any special flags that might need to be + passed to $ld to create a shared library suitable for dynamic + loading. It is up to the makefile to use it. For hpux, it + should be -b. For sunos 4.1, it is empty. + +ldflags (ccflags.U): + This variable contains any additional C loader flags desired by + the user. It is up to the Makefile to use this. + +lib_ext (Unix.U): + This variable defines the extension used for ordinary libraries. + For unix, it is '.a'. The '.' is included. Other possible + values include '.lib'. + +libperl (libperl.U): + The perl executable is obtained by linking perlmain.c with + libperl, any static extensions (usually just DynaLoader), + and any other libraries needed on this system. libperl + is usually libperl.a, but can also be libperl.so.xxx if + the user wishes to build a perl executable with a shared + library. + +libs (libs.U): + This variable holds the additional libraries we want to use. + It is up to the Makefile to deal with it. + +lns (lns.U): + This variable holds the name of the command to make + symbolic links (if they are supported). It can be used + in the Makefile. It is either 'ln -s' or 'ln' + +longsize (intsize.U): + This variable contains the value of the LONGSIZE symbol, + which indicates to the C program how many bytes there are + in a long integer. + +lseektype (lseektype.U): + This variable defines lseektype to be something like off_t, long, + or whatever type is used to declare lseek offset's type in the + kernel (which also appears to be lseek's return type). + +make (make.U): + This variable sets the path to the 'make' command. It is + here rather than in Loc.U so that users can override it + with Configure -Dmake=pmake, or equivalent. + +make_set_make (make.U): + Some versions of 'make' set the variable MAKE. Others do not. + This variable contains the string to be included in Makefile.SH + so that MAKE is set if needed, and not if not needed. + Possible values are: + make_set_make='#' # If your make program handles this for you, + make_set_make=$make # if it doesn't. + I used a comment character so that we can distinguish a + 'set' value (from a previous config.sh or Configure -D option) + from an uncomputed value. + +mallocobj (mallocsrc.U): + This variable contains the name of the malloc.o that this package + generates, if that malloc.o is preferred over the system malloc. + Otherwise the value is null. This variable is intended for generating + Makefiles. See mallocsrc. + +mallocsrc (mallocsrc.U): + This variable contains the name of the malloc.c that comes with + the package, if that malloc.c is preferred over the system malloc. + Otherwise the value is null. This variable is intended for generating + Makefiles. + +malloctype (mallocsrc.U): + This variable contains the kind of ptr returned by malloc and realloc. + +man1dir (man1dir.U): + This variable contains the name of the directory in which manual + source pages are to be put. It is the responsibility of the + Makefile.SH to get the value of this into the proper command. + You must be prepared to do the ~name expansion yourself. + +man1ext (man1dir.U): + This variable contains the extension that the manual page should + have: one of 'n', 'l', or '1'. The Makefile must supply the '.'. + See man1dir. + +man3dir (man3dir.U): + This variable contains the name of the directory in which manual + source pages are to be put. It is the responsibility of the + Makefile.SH to get the value of this into the proper command. + You must be prepared to do the ~name expansion yourself. + +man3ext (man3dir.U): + This variable contains the extension that the manual page should + have: one of 'n', 'l', or '3'. The Makefile must supply the '.'. + See man3dir. + +modetype (modetype.U): + This variable defines modetype to be something like mode_t, + int, unsigned short, or whatever type is used to declare file + modes for system calls. + +n (n.U): + This variable contains the -n flag if that is what causes the echo + command to suppress newline. Otherwise it is null. Correct usage is + $echo $n "prompt for a question: $c". + +o_nonblock (nblock_io.U): + This variable bears the symbol value to be used during open() or fcntl() + to turn on non-blocking I/O for a file descriptor. If you wish to switch + between blocking and non-blocking, you may try ioctl(FIOSNBIO) instead, + but that is only supported by some devices. + +oldarchlib (oldarchlib.U): + This variable holds the name of the directory in which perl5.000 + and perl5.001 stored + architecture-dependent public library files. + +oldarchlibexp (oldarchlib.U): + This variable is the same as the oldarchlib variable, but is + filename expanded at configuration time, for convenient use. + +optimize (ccflags.U): + This variable contains any optimizer/debugger flag that should be used. + It is up to the Makefile to use it. + +osname (Oldconfig.U): + This variable contains the operating system name (e.g. sunos, + solaris, hpux, etc.). It can be useful later on for setting + defaults. Any spaces are replaced with underscores. It is set + to a null string if we can't figure it out. + +pager (pager.U): + This variable contains the name of the preferred pager on the system. + Usual values are (the full pathnames of) more, less, pg, or cat. + +path_sep (Unix.U): + This variable defines the character used to separate elements in + the shell's PATH environment variable. On Unix, it is ':'. + This is probably identical to Head.U's p_ variable and can + probably be dropped. + +perladmin (perladmin.U): + Electronic mail address of the perl5 administrator. + +perlpath (perlpath.U): + This variable contains the eventual value of the PERLPATH symbol, + which contains the name of the perl interpreter to be used in + shell scripts and in the "eval 'exec'" idiom. + +prefix (prefix.U): + This variable holds the name of the directory below which the + user will install the package. Usually, this is /usr/local, and + executables go in /usr/local/bin, library stuff in /usr/local/lib, + man pages in /usr/local/man, etc. It is only used to set defaults + for things in bin.U, mansrc.U, privlib.U, or scriptdir.U. + +privlib (privlib.U): + This variable contains the eventual value of the PRIVLIB symbol, + which is the name of the private library for this package. It may + have a ~ on the front. It is up to the makefile to eventually create + this directory while performing installation (with ~ substitution). + +privlibexp (privlib.U): + This variable is the ~name expanded version of privlib, so that you + may use it directly in Makefiles or shell scripts. + +prototype (prototype.U): + This variable holds the eventual value of CAN_PROTOTYPE, which + indicates the C compiler can handle funciton prototypes. + +randbits (randbits.U): + This variable contains the eventual value of the RANDBITS symbol, + which indicates to the C program how many bits of random number + the rand() function produces. + +ranlib (orderlib.U): + This variable is set to the pathname of the ranlib program, if it is + needed to generate random libraries. Set to ":" if ar can generate + random libraries or if random libraries are not supported + +rd_nodata (nblock_io.U): + This variable holds the return code from read() when no data is + present. It should be -1, but some systems return 0 when O_NDELAY is + used, which is a shame because you cannot make the difference between + no data and an EOF.. Sigh! + +scriptdir (scriptdir.U): + This variable holds the name of the directory in which the user wants + to put publicly scripts for the package in question. It is either + the same directory as for binaries, or a special one that can be + mounted across different architectures, like /usr/share. Programs + must be prepared to deal with ~name expansion. + +selecttype (selecttype.U): + This variable holds the type used for the 2nd, 3rd, and 4th + arguments to select. Usually, this is 'fd_set *', if HAS_FD_SET + is defined, and 'int *' otherwise. This is only useful if you + have select(), naturally. + +sh (sh.U): + This variable contains the full pathname of the shell used + on this system to execute Bourne shell scripts. Usually, this will be + /bin/sh, though it's possible that some systems will have /bin/ksh, + /bin/pdksh, /bin/ash, /bin/bash, or even something such as + D:/bin/sh.exe. + This unit comes before Options.U, so you can't set sh with a -D + option, though you can override this (and startsh) + with -O -Dsh=/bin/whatever -Dstartsh=whatever + +shmattype (d_shmat.U): + This symbol contains the type of pointer returned by shmat(). + It can be 'void *' or 'char *'. + +shortsize (intsize.U): + This variable contains the value of the SHORTSIZE symbol, + which indicates to the C program how many bytes there are + in a short integer. + +shrpenv (libperl.U): + If the user builds a shared libperl.so, then we need to tell the + 'perl' executable where it will be able to find the installed libperl.so. + One way to do this on some systems is to set the environment variable + LD_RUN_PATH to the directory that will be the final location of the + shared libperl.so. The makefile can use this with something like + $shrpenv $(CC) -o perl perlmain.o $libperl $libs + Typical values are + shrpenv="env LD_RUN_PATH=$archlibexp/CORE" + or + shrpenv='' + See the main perl Makefile.SH for actual working usage. + Alternatively, we might be able to use a command line option such + as -R $archlibexp/CORE (Solaris, NetBSD) or -Wl,-rpath + $archlibexp/CORE (Linux). + +sig_name (sig_name.U): + This variable holds the signal names, space separated. The leading + SIG in signals name is removed. See sig_num. + +sig_num (sig_name.U): + This variable holds the signal numbers, space separated. Those numbers + correspond to the value of the signal listed in the same place within + the sig_name list. + +signal_t (d_voidsig.U): + This variable holds the type of the signal handler (void or int). + +sitearch (sitearch.U): + This variable contains the eventual value of the SITEARCH symbol, + which is the name of the private library for this package. It may + have a ~ on the front. It is up to the makefile to eventually create + this directory while performing installation (with ~ substitution). + +sitearchexp (sitearch.U): + This variable is the ~name expanded version of sitearch, so that you + may use it directly in Makefiles or shell scripts. + +sitelib (sitelib.U): + This variable contains the eventual value of the SITELIB symbol, + which is the name of the private library for this package. It may + have a ~ on the front. It is up to the makefile to eventually create + this directory while performing installation (with ~ substitution). + +sitelibexp (sitelib.U): + This variable is the ~name expanded version of sitelib, so that you + may use it directly in Makefiles or shell scripts. + +sizetype (sizetype.U): + This variable defines sizetype to be something like size_t, + unsigned long, or whatever type is used to declare length + parameters for string functions. + +small (models.U): + This variable contains a flag which will tell the C compiler and loader + to produce a program running with a small memory model. It is up to + the Makefile to use this. + +spitshell (spitshell.U): + This variable contains the command necessary to spit out a runnable + shell on this system. It is either cat or a grep -v for # comments. + +split (models.U): + This variable contains a flag which will tell the C compiler and loader + to produce a program that will run in separate I and D space, for those + machines that support separation of instruction and data space. It is + up to the Makefile to use this. + +ssizetype (ssizetype.U): + This variable defines ssizetype to be something like ssize_t, + long or int. It is used by functions that return a count + of bytes or an error condition. It must be a signed type. + We will pick a type such that sizeof(SSize_t) == sizeof(Size_t). + +startperl (startperl.U): + This variable contains the string to put on the front of a perl + script to make sure (hopefully) that it runs with perl and not some + shell. Of course, that leading line must be followed by the classical + perl idiom: + eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' + if $running_under_some_shell; + to guarantee perl startup should the shell execute the script. Note + that this magic incatation is not understood by csh. + +startsh (startsh.U): + This variable contains the string to put on the front of a shell + script to make sure (hopefully) that it runs with sh and not some + other shell. + +static_ext (Extensions.U): + This variable holds a list of extension files we want to + link statically into the package. It is used by Makefile. + +stdchar (stdchar.U): + This variable conditionally defines STDCHAR to be the type of char + used in stdio.h. It has the values "unsigned char" or "char". + +timetype (d_time.U): + This variable holds the type returned by time(). It can be long, + or time_t on BSD sites (in which case <sys/types.h> should be + included). Anyway, the type Time_t should be used. + +uidtype (uidtype.U): + This variable defines Uid_t to be something like uid_t, int, + ushort, or whatever type is used to declare user ids in the kernel. + +useperlio (useperlio.U): + This variable conditionally defines the USE_PERLIO symbol, + and indicates that the PerlIO abstraction should be + used throughout. + +useshrplib (libperl.U): + This variable is set to 'yes' if the user wishes + to build a shared libperl, and 'no' otherwise. + +voidflags (voidflags.U): + This variable contains the eventual value of the VOIDFLAGS symbol, + which indicates how much support of the void type is given by this + compiler. See VOIDFLAGS for more info. + diff --git a/gnu/usr.bin/perl/Porting/makerel b/gnu/usr.bin/perl/Porting/makerel new file mode 100644 index 00000000000..f719a5e9361 --- /dev/null +++ b/gnu/usr.bin/perl/Porting/makerel @@ -0,0 +1,100 @@ +#!/bin/env perl -w + +# A first attempt at some automated support for making a perl release. +# Very basic but functional - if you're on a unix system. +# +# No matter how automated this gets, you'll always need to read +# and re-read pumpkin.pod checking for things to be done at various +# stages of the process. +# +# Tim Bunce, June 1997 + +use ExtUtils::Manifest qw(fullcheck); + +$|=1; +$relroot = ".."; # XXX make an option + +die "Must be in root of the perl source tree.\n" + unless -f "./MANIFEST" and -f "patchlevel.h"; + +$patchlevel_h = `grep '#define ' patchlevel.h`; +print $patchlevel_h; +$patchlevel = $1 if $patchlevel_h =~ /PATCHLEVEL\s+(\d+)/; +$subversion = $1 if $patchlevel_h =~ /SUBVERSION\s+(\d+)/; +die "Unable to parse patchlevel.h" unless $subversion > 0; +$vers = sprintf("5.%03d", $patchlevel); +$vers.= sprintf( "_%02d", $subversion) if $subversion; + +$perl = "perl$vers"; +$reldir = "$relroot/$perl"; +$reldir .= "-$ARGV[0]" if $ARGV[0]; + +print "\nMaking a release for $perl in $reldir\n\n"; + + +print "Cross-checking the MANIFEST...\n"; +($missfile, $missentry) = fullcheck(); +warn "Can't make a release with MANIFEST files missing.\n" if @$missfile; +warn "Can't make a release with files not listed in MANIFEST.\n" if @$missentry; +if ("@$missentry" =~ m/\.orig\b/) { + # Handy listing of find command and .orig files from patching work. + # I tend to run 'xargs rm' and copy and paste the file list. + my $cmd = "find . -name '*.orig' -print"; + print "$cmd\n"; + system($cmd); +} +die "Aborted.\n" if @$missentry or @$missfile; +print "\n"; + + +print "Setting file permissions...\n"; +system("find . -type f -print | xargs chmod -w"); +system("find . -type d -print | xargs chmod g-s"); +system("find t -name '*.t' -print | xargs chmod +x"); +system("chmod +w configure"); # special case (see pumpkin.pod) +@exe = qw( + Configure + configpm + configure + embed.pl + installperl + installman + keywords.pl + myconfig + opcode.pl + perly.fixer + t/TEST + t/*/*.t + *.SH + vms/ext/Stdio/test.pl + vms/ext/filespec.t + vms/fndvers.com + x2p/*.SH + Porting/patchls + Porting/makerel +); +system("chmod +x @exe"); +print "\n"; + + +print "Creating $reldir release directory...\n"; +die "$reldir release directory already exists\n" if -e "../$perl"; +die "$reldir.tar.gz release file already exists\n" if -e "../$reldir.tar.gz"; +mkdir($reldir, 0755) or die "mkdir $reldir: $!\n"; +print "\n"; + + +print "Copying files to release directory...\n"; +# ExtUtils::Manifest maniread does not preserve the order +$cmd = "awk '{print \$1}' MANIFEST | cpio -pdm $reldir"; +system($cmd) == 0 or die "$cmd failed"; +print "\n"; + +chdir $relroot or die $!; + +print "Creating and compressing the tar file...\n"; +$cmd = "tar cf - $perl | gzip --best > $perl.tar.gz"; +system($cmd) == 0 or die "$cmd failed"; +print "\n"; + +system("ls -ld $perl*"); diff --git a/gnu/usr.bin/perl/Porting/patchls b/gnu/usr.bin/perl/Porting/patchls new file mode 100644 index 00000000000..1d4bd5ac400 --- /dev/null +++ b/gnu/usr.bin/perl/Porting/patchls @@ -0,0 +1,431 @@ +#!/bin/perl -w +# +# patchls - patch listing utility +# +# Input is one or more patchfiles, output is a list of files to be patched. +# +# Copyright (c) 1997 Tim Bunce. All rights reserved. +# This program is free software; you can redistribute it and/or +# modify it under the same terms as Perl itself. +# +# With thanks to Tom Horsley for the seed code. + + +use Getopt::Std; +use Text::Wrap qw(wrap $columns); +use Text::Tabs qw(expand unexpand); +use strict; +use vars qw($VERSION); + +$VERSION = 2.04; + +sub usage { +die q{ + patchls [options] patchfile [ ... ] + + -h no filename headers (like grep), only the listing. + -l no listing (like grep), only the filename headers. + -i Invert: for each patched file list which patch files patch it. + -c Categorise the patch and sort by category (perl specific). + -m print formatted Meta-information (Subject,From,Msg-ID etc). + -p N strip N levels of directory Prefix (like patch), else automatic. + -v more verbose (-d for noisy debugging). + -f F only list patches which patch files matching regexp F + (F has $ appended unless it contains a /). + other options for special uses: + -I just gather and display summary Information about the patches. + -4 write to stdout the PerForce commands to prepare for patching. + -M T Like -m but only output listed meta tags (eg -M 'Title From') + -W N set wrap width to N (defaults to 70, use 0 for no wrap) +} +} + +$::opt_p = undef; # undef != 0 +$::opt_d = 0; +$::opt_v = 0; +$::opt_m = 0; +$::opt_i = 0; +$::opt_h = 0; +$::opt_l = 0; +$::opt_c = 0; +$::opt_f = ''; + +# special purpose options +$::opt_I = 0; +$::opt_4 = 0; # output PerForce commands to prepare for patching +$::opt_M = ''; # like -m but only output these meta items (-M Title) +$::opt_W = 70; # set wrap width columns (see Text::Wrap module) + +usage unless @ARGV; + +getopts("mihlvc4p:f:IM:W:") or usage; + +$columns = $::opt_W || 9999999; + +$::opt_m = 1 if $::opt_M; +my @show_meta = split(' ', $::opt_M || 'Title From Msg-ID'); + +my %cat_title = ( + 'BUILD' => 'BUILD PROCESS', + 'CORE' => 'CORE LANGUAGE', + 'DOC' => 'DOCUMENTATION', + 'LIB' => 'LIBRARY AND EXTENSIONS', + 'PORT1' => 'PORTABILITY - WIN32', + 'PORT2' => 'PORTABILITY - GENERAL', + 'TEST' => 'TESTS', + 'UTIL' => 'UTILITIES', + 'OTHER' => 'OTHER CHANGES', +); + +my %ls; + +# Style 1: +# *** perl-5.004/embed.h Sat May 10 03:39:32 1997 +# --- perl-5.004.fixed/embed.h Thu May 29 19:48:46 1997 +# *************** +# *** 308,313 **** +# --- 308,314 ---- +# +# Style 2: +# --- perl5.004001/mg.c Sun Jun 08 12:26:24 1997 +# +++ perl5.004-bc/mg.c Sun Jun 08 11:56:08 1997 +# @@ -656,9 +656,27 @@ +# or (rcs, note the different date format) +# --- 1.18 1997/05/23 19:22:04 +# +++ ./pod/perlembed.pod 1997/06/03 21:41:38 +# +# Variation: +# Index: embed.h + +my($in, $prevline, $prevtype, $ls); +my(@removed, @added); +my $prologue = 1; # assume prologue till patch or /^exit\b/ seen + +foreach my $argv (@ARGV) { + $in = $argv; + unless (open F, "<$in") { + warn "Unable to open $in: $!\n"; + next; + } + print "Reading $in...\n" if $::opt_v and @ARGV > 1; + $ls = $ls{$in} ||= { is_in => 1, in => $in }; + my $type; + while (<F>) { + unless (/^([-+*]{3}) / || /^(Index):/) { + # not an interesting patch line + # but possibly meta-information or prologue + if ($prologue) { + push @added, $1 if /^touch\s+(\S+)/; + push @removed, $1 if /^rm\s+(?:-f)?\s*(\S+)/; + $prologue = 0 if /^exit\b/; + } + next unless $::opt_m; + $ls->{From}{$1}=1,next if /^From:\s+(.*\S)/i; + $ls->{Title}{$1}=1,next if /^Subject:\s+(?:Re: )?(.*\S)/i; + $ls->{'Msg-ID'}{$1}=1,next if /^Message-Id:\s+(.*\S)/i; + $ls->{Date}{$1}=1,next if /^Date:\s+(.*\S)/i; + $ls->{$1}{$2}=1,next if /^([-\w]+):\s+(.*\S)/; + next; + } + $type = $1; + next if /^--- [0-9,]+ ----$/ || /^\*\*\* [0-9,]+ \*\*\*\*$/; + $prologue = 0; + + print "Last: $prevline","This: ${_}Got: $1\n\n" if $::opt_d; + + # Some patches have Index lines but not diff headers + # Patch copes with this, so must we. It's also handy for + # documenting manual changes by simply adding Index: lines + # to the file which describes the problem bing fixed. + add_file($ls, $1), next if /^Index:\s+(\S+)/; + + if ( ($type eq '---' and $prevtype eq '***') # Style 1 + or ($type eq '+++' and $prevtype eq '---') # Style 2 + ) { + if (/^[-+*]{3} (\S+)\s*(.*?\d\d:\d\d:\d\d)?/) { # double check + add_file($ls, $1); + } + else { + warn "$in $.: parse error (prev $prevtype, type $type)\n$prevline$_"; + } + } + } + continue { + $prevline = $_; + $prevtype = $type; + $type = ''; + } + # if we don't have a title for -m then use the file name + $ls->{Title}{$in}=1 if $::opt_m + and !$ls->{Title} and $ls->{out}; + + $ls->{category} = $::opt_c + ? categorize_files([keys %{ $ls->{out} }], $::opt_v) : ''; +} +print scalar(@ARGV)." files read.\n" if $::opt_v and @ARGV > 1; + + +# --- Firstly we filter and sort as needed --- + +my @ls = values %ls; + +if ($::opt_f) { # filter out patches based on -f <regexp> + my $out; + $::opt_f .= '$' unless $::opt_f =~ m:/:; + @ls = grep { + my @out = keys %{$_->{out}}; + my $match = 0; + for $out (@out) { + ++$match if $out =~ m/$::opt_f/o; + } + $match; + } @ls; +} + +@ls = sort { + $a->{category} cmp $b->{category} || $a->{in} cmp $b->{in} +} @ls; + + +# --- Handle special modes --- + +if ($::opt_4) { + print map { "p4 delete $_\n" } @removed if @removed; + print map { "p4 add $_\n" } @added if @added; + my @patches = grep { $_->{is_in} } @ls; + my %patched = map { ($_, 1) } map { keys %{$_->{out}} } @patches; + delete @patched{@added}; + my @patched = sort keys %patched; + print map { "p4 edit $_\n" } @patched if @patched; + exit 0; +} + +if ($::opt_I) { + my $n_patches = 0; + my($in,$out); + my %all_out; + foreach $in (@ls) { + next unless $in->{is_in}; + ++$n_patches; + my @outs = keys %{$in->{out}}; + @all_out{@outs} = ($in->{in}) x @outs; + } + my @all_out = sort keys %all_out; + my @missing = grep { ! -f $_ } @all_out; + print "$n_patches patch files patch ".@all_out." files (".@missing." missing)\n"; + print "(use -v to list patches which patch 'missing' files)\n" + if @missing && !$::opt_v; + if ($::opt_v and @missing) { + print "Missing files:\n"; + foreach $out (@missing) { + printf " %-20s\t%s\n", $out, $all_out{$out}; + } + } + print "Added files: @added\n" if @added; + print "Removed files: @removed\n" if @removed; + exit 0+@missing; +} + +unless ($::opt_c and $::opt_m) { + foreach $ls (@ls) { + next unless ($::opt_i) ? $ls->{is_out} : $ls->{is_in}; + list_files_by_patch($ls); + } +} +else { + my $c = ''; + foreach $ls (@ls) { + next unless ($::opt_i) ? $ls->{is_out} : $ls->{is_in}; + print "\n ------ $cat_title{$ls->{category}} ------\n" + if $ls->{category} ne $c; + $c = $ls->{category}; + unless ($::opt_i) { + list_files_by_patch($ls); + } + else { + my $out = $ls->{in}; + print "\n$out patched by:\n"; + # find all the patches which patch $out and list them + my @p = grep { $_->{out}->{$out} } values %ls; + foreach $ls (@p) { + list_files_by_patch($ls, ''); + } + } + } + print "\n"; +} + +exit 0; + + +# --- + + +sub add_file { + my $ls = shift; + my $out = trim_name(shift); + + $ls->{out}->{$out} = 1; + + # do the -i inverse as well, even if we're not doing -i + my $i = $ls{$out} ||= { + is_out => 1, + in => $out, + category => $::opt_c ? categorize_files([ $out ], $::opt_v) : '', + }; + $i->{out}->{$in} = 1; +} + + +sub trim_name { # reduce/tidy file paths from diff lines + my $name = shift; + $name = "$name ($in)" if $name eq "/dev/null"; + $name =~ s:\\:/:g; # adjust windows paths + $name =~ s://:/:g; # simplify (and make win \\share into absolute path) + if (defined $::opt_p) { + # strip on -p levels of directory prefix + my $dc = $::opt_p; + $name =~ s:^[^/]+/(.+)$:$1: while $dc-- > 0; + } + else { # try to strip off leading path to perl directory + # if absolute path, strip down to any *perl* directory first + $name =~ s:^/.*?perl.*?/::i; + $name =~ s:.*perl[-_]?5?[._]?[-_a-z0-9.+]*/::i; + $name =~ s:^\./::; + } + return $name; +} + + +sub list_files_by_patch { + my($ls, $name) = @_; + $name = $ls->{in} unless defined $name; + my @meta; + if ($::opt_m) { + my $meta; + foreach $meta (@show_meta) { + next unless $ls->{$meta}; + my @list = sort keys %{$ls->{$meta}}; + push @meta, sprintf "%7s: ", $meta; + if ($meta eq 'Title') { + @list = map { s/\[?PATCH\]?:?\s*//g; "\"$_\""; } @list + } + elsif ($meta eq 'From') { + # fix-up bizzare addresses from japan and ibm :-) + foreach(@list) { + s:\W+=?iso.*?<: <:; + s/\d\d-\w\w\w-\d{4}\s+\d\d:\S+\s*//; + } + } + elsif ($meta eq 'Msg-ID') { + my %from; # limit long threads to one msg-id per site + @list = map { + $from{(/@(.*?)>/ ? $1 : $_)}++ ? () : ($_); + } @list; + } + push @meta, my_wrap(""," ", join(", ",@list)."\n"); + } + $name = "\n$name" if @meta and $name; + } + # don't print the header unless the file contains something interesting + return if !@meta and !$ls->{out}; + print("$ls->{in}\n"),return if $::opt_l; # -l = no listing + + # a twisty maze of little options + my $cat = ($ls->{category} and !$::opt_m) ? "\t$ls->{category}" : ""; + print "$name$cat: " unless ($::opt_h and !$::opt_v) or !"$name$cat"; + print join('',"\n",@meta) if @meta; + + my @v = sort PATORDER keys %{ $ls->{out} }; + my $v = "@v\n"; + print $::opt_m ? " Files: ".my_wrap(""," ",$v) : $v; +} + + +sub my_wrap { + my $txt = eval { expand(wrap(@_)) }; # die's on long lines! + return $txt unless $@; + return expand("@_"); +} + + + +sub categorize_files { + my($files, $verb) = @_; + my(%c, $refine); + + foreach (@$files) { # assign a score to a file path + # the order of some of the tests is important + $c{TEST} += 5,next if m:^t/:; + $c{DOC} += 5,next if m:^pod/:; + $c{UTIL} += 10,next if m:^(utils|x2p|h2pl)/:; + $c{PORT1}+= 15,next if m:^win32:; + $c{PORT2} += 15,next + if m:^(cygwin32|os2|plan9|qnx|vms)/: + or m:^(hints|Porting|ext/DynaLoader)/: + or m:^README\.:; + $c{LIB} += 10,next + if m:^(lib|ext)/:; + $c{'CORE'} += 15,next + if m:^[^/]+[\._]([chH]|sym|pl)$:; + $c{BUILD} += 10,next + if m:^[A-Z]+$: or m:^[^/]+\.SH$: + or m:^(install|configure|configpm):i; + print "Couldn't categorise $_\n" if $::opt_v; + $c{OTHER} += 1; + } + if (keys %c > 1) { # sort to find category with highest score + refine: + ++$refine; + my @c = sort { $c{$b} <=> $c{$a} || $a cmp $b } keys %c; + my @v = map { $c{$_} } @c; + if (@v > 1 and $refine <= 1 and "@v" =~ /^(\d) \1/ + and $c[0] =~ m/^(DOC|TESTS|OTHER)/) { # rare + print "Tie, promoting $c[1] over $c[0]\n" if $::opt_d; + ++$c{$c[1]}; + goto refine; + } + print " ".@$files." patches: ", join(", ", map { "$_: $c{$_}" } @c),".\n" + if $verb; + return $c[0] || 'OTHER'; + } + else { + my($c, $v) = %c; + $c ||= 'OTHER'; $v ||= 0; + print " ".@$files." patches: $c: $v\n" if $verb; + return $c; + } +} + + +sub PATORDER { # PATORDER sort by Chip Salzenberg + my ($i, $j); + + $i = ($a =~ m#^[A-Z]+$#); + $j = ($b =~ m#^[A-Z]+$#); + return $j - $i if $i != $j; + + $i = ($a =~ m#configure|hint#i) || ($a =~ m#[S_]H$#); + $j = ($b =~ m#configure|hint#i) || ($b =~ m#[S_]H$#); + return $j - $i if $i != $j; + + $i = ($a =~ m#\.pod$#); + $j = ($b =~ m#\.pod$#); + return $j - $i if $i != $j; + + $i = ($a =~ m#include/#); + $j = ($b =~ m#include/#); + return $j - $i if $i != $j; + + if ((($i = $a) =~ s#/+[^/]*$##) + && (($j = $b) =~ s#/+[^/]*$##)) { + return $i cmp $j if $i ne $j; + } + + $i = ($a =~ m#\.h$#); + $j = ($b =~ m#\.h$#); + return $j - $i if $i != $j; + + return $a cmp $b; +} + diff --git a/gnu/usr.bin/perl/Porting/pumpkin.pod b/gnu/usr.bin/perl/Porting/pumpkin.pod new file mode 100644 index 00000000000..6706c6c3c42 --- /dev/null +++ b/gnu/usr.bin/perl/Porting/pumpkin.pod @@ -0,0 +1,1180 @@ +=head1 NAME + +Pumpkin - Notes on handling the Perl Patch Pumpkin + +=head1 SYNOPSIS + +There is no simple synopsis, yet. + +=head1 DESCRIPTION + +This document attempts to begin to describe some of the +considerations involved in patching and maintaining perl. + +This document is still under construction, and still subject to +significant changes. Still, I hope parts of it will be useful, +so I'm releasing it even though it's not done. + +For the most part, it's a collection of anecdotal information that +already assumes some familiarity with the Perl sources. I really need +an introductory section that describes the organization of the sources +and all the various auxiliary files that are part of the distribution. + +=head1 Where Do I Get Perl Sources and Related Material? + +The Comprehensive Perl Archive Network (or CPAN) is the place to go. +There are many mirrors, but the easiest thing to use is probably +http://www.perl.com/CPAN/README.html , which automatically points you to a +mirror site "close" to you. + +=head2 Perl5-porters mailing list + +The mailing list perl5-porters@perl.org +is the main group working with the development of perl. If you're +interested in all the latest developments, you should definitely +subscribe. The list is high volume, but generally has a +fairly low noise level. + +Subscribe by sending the message (in the body of your letter) + + subscribe perl5-porters + +to perl5-porters-request@perl.org . + +Archives of the list are held at: + + http://www.rosat.mpe-garching.mpg.de/mailing-lists/perl-porters/ + +=head1 How are Perl Releases Numbered? + +Perl version numbers are floating point numbers, such as 5.004. +(Observations about the imprecision of floating point numbers for +representing reality probably have more relevance than you might +imagine :-) The major version number is 5 and the '004' is the +patchlevel. (Questions such as whether or not '004' is really a minor +version number can safely be ignored.:) + +The version number is available as the magic variable $], +and can be used in comparisons, e.g. + + print "You've got an old perl\n" if $] < 5.002; + +You can also require particular version (or later) with + + use 5.002; + +At some point in the future, we may need to decide what to call the +next big revision. In the .package file used by metaconfig to +generate Configure, there are two variables that might be relevant: +$baserev=5.0 and $package=perl5. At various times, I have suggested +we might change them to $baserev=5.1 and $package=perl5.1 if want +to signify a fairly major update. Or, we might want to jump to perl6. +Let's worry about that problem when we get there. + +=head2 Subversions + +In addition, there may be "developer" sub-versions available. These +are not official releases. They may contain unstable experimental +features, and are subject to rapid change. Such developer +sub-versions are numbered with sub-version numbers. For example, +version 5.003_04 is the 4'th developer version built on top of +5.003. It might include the _01, _02, and _03 changes, but it +also might not. Sub-versions are allowed to be subversive. (But see +the next section for recent changes.) + +These sub-versions can also be used as floating point numbers, so +you can do things such as + + print "You've got an unstable perl\n" if $] == 5.00303; + +You can also require particular version (or later) with + + use 5.003_03; # the "_" is optional + +Sub-versions produced by the members of perl5-porters are usually +available on CPAN in the F<src/5.0/unsupported> directory. + +=head2 Maintenance and Development Subversions + +As an experiment, starting with version 5.004, subversions _01 through +_49 will be reserved for bug-fix maintenance releases, and subversions +_50 through _99 will be available for unstable development versions. + +The separate bug-fix track is being established to allow us an easy +way to distribute important bug fixes without waiting for the +developers to untangle all the other problems in the current +developer's release. + +Trial releases of bug-fix maintenance releases are announced on +perl5-porters. Trial releases use the new subversion number (to avoid +testers installing it over the previous release) and include a 'local +patch' entry in patchlevel.h. + +Watch for announcements of maintenance subversions in +comp.lang.perl.announce. + +=head2 Why such a complicated scheme? + +Two reasons, really. At least. + +First, we need some way to identify and release collections of patches +that are known to have new features that need testing and exploration. The +subversion scheme does that nicely while fitting into the +C<use 5.004;> mold. + +Second, since most of the folks who help maintain perl do so on a +free-time voluntary basis, perl development does not proceed at a +precise pace, though it always seems to be moving ahead quickly. +We needed some way to pass around the "patch pumpkin" to allow +different people chances to work on different aspects of the +distribution without getting in each other's way. It wouldn't be +constructive to have multiple people working on incompatible +implementations of the same idea. Instead what was needed was +some kind of "baton" or "token" to pass around so everyone knew +whose turn was next. + +=head2 Why is it called the patch pumpkin? + +Chip Salzenberg gets credit for that, with a nod to his cow orker, +David Croy. We had passed around various names (baton, token, hot +potato) but none caught on. Then, Chip asked: + +[begin quote] + + Who has the patch pumpkin? + +To explain: David Croy once told me once that at a previous job, +there was one tape drive and multiple systems that used it for backups. +But instead of some high-tech exclusion software, they used a low-tech +method to prevent multiple simultaneous backups: a stuffed pumpkin. +No one was allowed to make backups unless they had the "backup pumpkin". + +[end quote] + +The name has stuck. + +=head1 Philosophical Issues in Patching Perl + +There are no absolute rules, but there are some general guidelines I +have tried to follow as I apply patches to the perl sources. +(This section is still under construction.) + +=head2 Solve problems as generally as possible + +Never implement a specific restricted solution to a problem when you +can solve the same problem in a more general, flexible way. + +For example, for dynamic loading to work on some SVR4 systems, we had +to build a shared libperl.so library. In order to build "FAT" binaries +on NeXT 4.0 systems, we had to build a special libperl library. Rather +than continuing to build a contorted nest of special cases, I +generalized the process of building libperl so that NeXT and SVR4 users +could still get their work done, but others could build a shared +libperl if they wanted to as well. + +=head2 Seek consensus on major changes + +If you are making big changes, don't do it in secret. Discuss the +ideas in advance on perl5-porters. + +=head2 Keep the documentation up-to-date + +If your changes may affect how users use perl, then check to be sure +that the documentation is in sync with your changes. Be sure to +check all the files F<pod/*.pod> and also the F<INSTALL> document. + +Consider writing the appropriate documentation first and then +implementing your change to correspond to the documentation. + +=head2 Avoid machine-specific #ifdef's + +To the extent reasonable, try to avoid machine-specific #ifdef's in +the sources. Instead, use feature-specific #ifdef's. The reason is +that the machine-specific #ifdef's may not be valid across major +releases of the operating system. Further, the feature-specific tests +may help out folks on another platform who have the same problem. + +=head2 Allow for lots of testing + +We should never release a main version without testing it as a +subversion first. + +=head2 Test popular applications and modules. + +We should never release a main version without testing whether or not +it breaks various popular modules and applications. A partial list of +such things would include majordomo, metaconfig, apache, Tk, CGI, +libnet, and libwww, to name just a few. Of course it's quite possible +that some of those things will be just plain broken and need to be fixed, +but, in general, we ought to try to avoid breaking widely-installed +things. + +=head2 Automate generation of derivative files + +The F<embed.h>, F<keywords.h>, F<opcode.h>, and F<perltoc.pod> files +are all automatically generated by perl scripts. In general, don't +patch these directly; patch the data files instead. + +F<Configure> and F<config_h.SH> are also automatically generated by +B<metaconfig>. In general, you should patch the metaconfig units +instead of patching these files directly. However, minor changes to +F<Configure> may be made in between major sync-ups with the metaconfig +units, which tends to be complicated operations. + +=head1 How to Make a Distribution + +There really ought to be a 'make dist' target, but there isn't. +The 'dist' suite of tools also contains a number of tools that I haven't +learned how to use yet. Some of them may make this all a bit easier. + +Here are the steps I go through to prepare a patch & distribution. + +Lots of it could doubtless be automated but isn't. The Porting/makerel +(make release) perl script does now help automate some parts of it. + +=head2 Announce your intentions + +First, you should volunteer out loud to take the patch pumpkin. It's +generally counter-productive to have multiple people working in secret +on the same thing. + +At the same time, announce what you plan to do with the patch pumpkin, +to allow folks a chance to object or suggest alternatives, or do it for +you. Naturally, the patch pumpkin holder ought to incorporate various +bug fixes and documentation improvements that are posted while he or +she has the pumpkin, but there might also be larger issues at stake. + +One of the precepts of the subversion idea is that we shouldn't give +the patch pumpkin to anyone unless we have some idea what he or she +is going to do with it. + +=head2 refresh pod/perltoc.pod + +Presumably, you have done a full C<make> in your working source +directory. Before you C<make spotless> (if you do), and if you have +changed any documentation in any module or pod file, change to the +F<pod> directory and run C<make toc>. + +=head2 run installhtml to check the validity of the pod files + +=head2 update patchlevel.h + +Don't be shy about using the subversion number, even for a relatively +modest patch. We've never even come close to using all 99 subversions, +and it's better to have a distinctive number for your patch. If you +need feedback on your patch, go ahead and issue it and promise to +incorporate that feedback quickly (e.g. within 1 week) and send out a +second patch. + +=head2 run metaconfig + +If you need to make changes to Configure or config_h.SH, it may be best to +change the appropriate metaconfig units instead, and regenerate Configure. + + metaconfig -m + +will regenerate Configure and config_h.SH. More information on +obtaining and running metaconfig is in the F<U/README> file that comes +with Perl's metaconfig units. Perl's metaconfig units should be +available the same place you found this file. On CPAN, look under my +directory F<authors/id/ANDYD/> for a file such as F<5.003_07-02.U.tar.gz>. +That file should be unpacked in your main perl source directory. It +contains the files needed to run B<metaconfig> to reproduce Perl's +Configure script. (Those units are for 5.003_07. There have been +changes since then; please contact me if you want more recent +versions, and I will try to point you in the right direction.) + +Alternatively, do consider if the F<*ish.h> files might be a better +place for your changes. + +=head2 MANIFEST + +Make sure the MANIFEST is up-to-date. You can use dist's B<manicheck> +program for this. You can also use + + perl -w -MExtUtils::Manifest=fullcheck -e fullcheck + +Both commands will also list extra files in the directory that are not +listed in MANIFEST. + +The MANIFEST is normally sorted, with one exception. Perl includes +both a F<Configure> script and a F<configure> script. The +F<configure> script is a front-end to the main F<Configure>, but +is there to aid folks who use autoconf-generated F<configure> files +for other software. The problem is that F<Configure> and F<configure> +are the same on case-insensitive file systems, so I deliberately put +F<configure> first in the MANIFEST so that the extraction of +F<Configure> will overwrite F<configure> and leave you with the +correct script. (The F<configure> script must also have write +permission for this to work, so it's the only file in the distribution +I normally have with write permission.) + +If you are using metaconfig to regenerate Configure, then you should note +that metaconfig actually uses MANIFEST.new, so you want to be sure +MANIFEST.new is up-to-date too. I haven't found the MANIFEST/MANIFEST.new +distinction particularly useful, but that's probably because I still haven't +learned how to use the full suite of tools in the dist distribution. + +=head2 Check permissions + +All the tests in the t/ directory ought to be executable. The +main makefile used to do a 'chmod t/*/*.t', but that resulted in +a self-modifying distribution--something some users would strongly +prefer to avoid. Probably, the F<t/TEST> script should check for this +and do the chmod if needed, but it doesn't currently. + +In all, the following files should probably be executable: + + Configure + configpm + configure + embed.pl + installperl + installman + keywords.pl + myconfig + opcode.pl + perly.fixer + t/TEST + t/*/*.t + *.SH + vms/ext/Stdio/test.pl + vms/ext/filespec.t + vms/fndvers.com + x2p/*.SH + +Other things ought to be readable, at least :-). + +Probably, the permissions for the files could be encoded in MANIFEST +somehow, but I'm reluctant to change MANIFEST itself because that +could break old scripts that use MANIFEST. + +I seem to recall that some SVR3 systems kept some sort of file that listed +permissions for system files; something like that might be appropriate. + +=head2 Run Configure + +This will build a config.sh and config.h. You can skip this if you haven't +changed Configure or config_h.SH at all. + +=head2 Update config_H + +The config_H file is provided to help those folks who can't run Configure. +It is important to keep it up-to-date. If you have changed config_h.SH, +those changes must be reflected in config_H as well. (The name config_H was +chosen to distinguish the file from config.h even on case-insensitive file +systems.) Simply edit the existing config_H file; keep the first few +explanatory lines and then copy your new config.h below. + +It may also be necessary to update vms/config.vms and +plan9/config.plan9, though you should be quite careful in doing so if +you are not familiar with those systems. You might want to issue your +patch with a promise to quickly issue a follow-up that handles those +directories. + +=head2 make run_byacc + +If you have byacc-1.8.2 (available from CPAN), and if there have been +changes to F<perly.y>, you can regenerate the F<perly.c> file. The +run_byacc makefile target does this by running byacc and then applying +some patches so that byacc dynamically allocates space, rather than +having fixed limits. This patch is handled by the F<perly.fixer> +script. Depending on the nature of the changes to F<perly.y>, you may +or may not have to hand-edit the patch to apply correctly. If you do, +you should include the edited patch in the new distribution. If you +have byacc-1.9, the patch won't apply cleanly. Changes to the printf +output statements mean the patch won't apply cleanly. Long ago I +started to fix F<perly.fixer> to detect this, but I never completed the +task. + +Some additional notes from Larry on this: + +Don't forget to regenerate perly.c.diff. + + byacc -d perly.y + mv y.tab.c perly.c + patch perly.c <perly.c.diff + # manually apply any failed hunks + diff -c2 perly.c.orig perly.c >perly.c.diff + +One chunk of lines that often fails begins with + + #line 29 "perly.y" + +and ends one line before + + #define YYERRCODE 256 + +This only happens when you add or remove a token type. I suppose this +could be automated, but it doesn't happen very often nowadays. + +Larry + +=head2 make regen_headers + +The F<embed.h>, F<keywords.h>, and F<opcode.h> files are all automatically +generated by perl scripts. Since the user isn't guaranteed to have a +working perl, we can't require the user to generate them. Hence you have +to, if you're making a distribution. + +I used to include rules like the following in the makefile: + + # The following three header files are generated automatically + # The correct versions should be already supplied with the perl kit, + # in case you don't have perl or 'sh' available. + # The - is to ignore error return codes in case you have the source + # installed read-only or you don't have perl yet. + keywords.h: keywords.pl + @echo "Don't worry if this fails." + - perl keywords.pl + + +However, I got B<lots> of mail consisting of people worrying because the +command failed. I eventually decided that I would save myself time +and effort by manually running C<make regen_headers> myself rather +than answering all the questions and complaints about the failing +command. + +=head2 global.sym, interp.sym and perlio.sym + +Make sure these files are up-to-date. Read the comments in these +files and in perl_exp.SH to see what to do. + +=head2 Binary compatibility + +If you do change F<global.sym> or F<interp.sym>, think carefully about +what you are doing. To the extent reasonable, we'd like to maintain +souce and binary compatibility with older releases of perl. That way, +extensions built under one version of perl will continue to work with +new versions of perl. + +Of course, some incompatible changes may well be necessary. I'm just +suggesting that we not make any such changes without thinking carefully +about them first. If possible, we should provide +backwards-compatibility stubs. There's a lot of XS code out there. +Let's not force people to keep changing it. + +=head2 Changes + +Be sure to update the F<Changes> file. Try to include both an overall +summary as well as detailed descriptions of the changes. Your +audience will include other developers and users, so describe +user-visible changes (if any) in terms they will understand, not in +code like "initialize foo variable in bar function". + +There are differing opinions on whether the detailed descriptions +ought to go in the Changes file or whether they ought to be available +separately in the patch file (or both). There is no disagreement that +detailed descriptions ought to be easily available somewhere. + +=head2 OS/2-specific updates + +In the os2 directory is F<diff.configure>, a set of OS/2-specific +diffs against B<Configure>. If you make changes to Configure, you may +want to consider regenerating this diff file to save trouble for the +OS/2 maintainer. + +You can also consider the OS/2 diffs as reminders of portability +things that need to be fixed in Configure. + +=head2 VMS-specific updates + +If you have changed F<perly.y>, then you may want to update +F<vms/perly_{h,c}.vms> by running C<perl vms/vms_yfix.pl>. + +The Perl version number appears in several places under F<vms>. +It is courteous to update these versions. For example, if you are +making 5.004_42, replace "5.00441" with "5.00442". + +=head2 Making the new distribution + +Suppose, for example, that you want to make version 5.004_08. Then you can +do something like the following + + mkdir ../perl5.004_08 + awk '{print $1}' MANIFEST | cpio -pdm ../perl5.004_08 + cd ../ + tar cf perl5.004_08.tar perl5.004_08 + gzip --best perl5.004_08.tar + +These steps, with extra checks, are automated by the Porting/makerel +script. + +=head2 Making a new patch + +I find the F<makepatch> utility quite handy for making patches. +You can obtain it from any CPAN archive under +http://www.perl.com/CPAN/authors/Johan_Vromans/ . There are a couple +of differences between my version and the standard one. I have mine do +a + + # Print a reassuring "End of Patch" note so people won't + # wonder if their mailer truncated patches. + print "\n\nEnd of Patch.\n"; + +at the end. That's because I used to get questions from people asking +if their mail was truncated. + +It also writes Index: lines which include the new directory prefix +(change Index: print, approx line 294 or 310 depending on the version, +to read: print PATCH ("Index: $newdir$new\n");). That helps patches +work with more POSIX conformant patch programs. + +Here's how I generate a new patch. I'll use the hypothetical +5.004_07 to 5.004_08 patch as an example. + + # unpack perl5.004_07/ + gzip -d -c perl5.004_07.tar.gz | tar -xof - + # unpack perl5.004_08/ + gzip -d -c perl5.004_08.tar.gz | tar -xof - + makepatch perl5.004_07 perl5.004_08 > perl5.004_08.pat + +Makepatch will automatically generate appropriate B<rm> commands to remove +deleted files. Unfortunately, it will not correctly set permissions +for newly created files, so you may have to do so manually. For example, +patch 5.003_04 created a new test F<t/op/gv.t> which needs to be executable, +so at the top of the patch, I inserted the following lines: + + # Make a new test + touch t/op/gv.t + chmod +x t/opt/gv.t + +Now, of course, my patch is now wrong because makepatch didn't know I +was going to do that command, and it patched against /dev/null. + +So, what I do is sort out all such shell commands that need to be in the +patch (including possible mv-ing of files, if needed) and put that in the +shell commands at the top of the patch. Next, I delete all the patch parts +of perl5.004_08.pat, leaving just the shell commands. Then, I do the +following: + + cd perl5.004_07 + sh ../perl5.004_08.pat + cd .. + makepatch perl5.004_07 perl5.004_08 >> perl5.004_08.pat + +(Note the append to preserve my shell commands.) +Now, my patch will line up with what the end users are going to do. + +=head2 Testing your patch + +It seems obvious, but be sure to test your patch. That is, verify that +it produces exactly the same thing as your full distribution. + + rm -rf perl5.004_07 + gzip -d -c perl5.004_07.tar.gz | tar -xf - + cd perl5.004_07 + sh ../perl5.004_08.pat + patch -p1 -N < ../perl5.004_08.pat + cd .. + gdiff -r perl5.004_07 perl5.004_08 + +where B<gdiff> is GNU diff. Other diff's may also do recursive checking. + +=head2 More testing + +Again, it's obvious, but you should test your new version as widely as you +can. You can be sure you'll hear about it quickly if your version doesn't +work on both ANSI and pre-ANSI compilers, and on common systems such as +SunOS 4.1.[34], Solaris, and Linux. + +If your changes include conditional code, try to test the different +branches as thoroughly as you can. For example, if your system +supports dynamic loading, you can also test static loading with + + sh Configure -Uusedl + +You can also hand-tweak your config.h to try out different #ifdef +branches. + +=head1 Common Gotcha's + +=over 4 + +=item #elif + +The '#elif' preprocessor directive is not understood on all systems. +Specifically, I know that Pyramids don't understand it. Thus instead of the +simple + + #if defined(I_FOO) + # include <foo.h> + #elif defined(I_BAR) + # include <bar.h> + #else + # include <fubar.h> + #endif + +You have to do the more Byzantine + + #if defined(I_FOO) + # include <foo.h> + #else + # if defined(I_BAR) + # include <bar.h> + # else + # include <fubar.h> + # endif + #endif + +Incidentally, whitespace between the leading '#' and the preprocessor +command is not guaranteed, but is very portable and you may use it freely. +I think it makes things a bit more readable, especially once things get +rather deeply nested. I also think that things should almost never get +too deeply nested, so it ought to be a moot point :-) + +=item Probably Prefer POSIX + +It's often the case that you'll need to choose whether to do +something the BSD-ish way or the POSIX-ish way. It's usually not +a big problem when the two systems use different names for similar +functions, such as memcmp() and bcmp(). The perl.h header file +handles these by appropriate #defines, selecting the POSIX mem*() +functions if available, but falling back on the b*() functions, if +need be. + +More serious is the case where some brilliant person decided to +use the same function name but give it a different meaning or +calling sequence :-). getpgrp() and setpgrp() come to mind. +These are a real problem on systems that aim for conformance to +one standard (e.g. POSIX), but still try to support the other way +of doing things (e.g. BSD). My general advice (still not really +implemented in the source) is to do something like the following. +Suppose there are two alternative versions, fooPOSIX() and +fooBSD(). + + #ifdef HAS_FOOPOSIX + /* use fooPOSIX(); */ + #else + # ifdef HAS_FOOBSD + /* try to emulate fooPOSIX() with fooBSD(); + perhaps with the following: */ + # define fooPOSIX fooBSD + # else + # /* Uh, oh. We have to supply our own. */ + # define fooPOSIX Perl_fooPOSIX + # endif + #endif + +=item Think positively + +If you need to add an #ifdef test, it is usually easier to follow if you +think positively, e.g. + + #ifdef HAS_NEATO_FEATURE + /* use neato feature */ + #else + /* use some fallback mechanism */ + #endif + +rather than the more impenetrable + + #ifndef MISSING_NEATO_FEATURE + /* Not missing it, so we must have it, so use it */ + #else + /* Are missing it, so fall back on something else. */ + #endif + +Of course for this toy example, there's not much difference. But when +the #ifdef's start spanning a couple of screen fulls, and the #else's +are marked something like + + #else /* !MISSING_NEATO_FEATURE */ + +I find it easy to get lost. + +=item Providing Missing Functions -- Problem + +Not all systems have all the neat functions you might want or need, so +you might decide to be helpful and provide an emulation. This is +sound in theory and very kind of you, but please be careful about what +you name the function. Let me use the C<pause()> function as an +illustration. + +Perl5.003 has the following in F<perl.h> + + #ifndef HAS_PAUSE + #define pause() sleep((32767<<16)+32767) + #endif + +Configure sets HAS_PAUSE if the system has the pause() function, so +this #define only kicks in if the pause() function is missing. +Nice idea, right? + +Unfortunately, some systems apparently have a prototype for pause() +in F<unistd.h>, but don't actually have the function in the library. +(Or maybe they do have it in a library we're not using.) + +Thus, the compiler sees something like + + extern int pause(void); + /* . . . */ + #define pause() sleep((32767<<16)+32767) + +and dies with an error message. (Some compilers don't mind this; +others apparently do.) + +To work around this, 5.003_03 and later have the following in perl.h: + + /* Some unistd.h's give a prototype for pause() even though + HAS_PAUSE ends up undefined. This causes the #define + below to be rejected by the compiler. Sigh. + */ + #ifdef HAS_PAUSE + # define Pause pause + #else + # define Pause() sleep((32767<<16)+32767) + #endif + +This works. + +The curious reader may wonder why I didn't do the following in +F<util.c> instead: + + #ifndef HAS_PAUSE + void pause() + { + sleep((32767<<16)+32767); + } + #endif + +That is, since the function is missing, just provide it. +Then things would probably be been alright, it would seem. + +Well, almost. It could be made to work. The problem arises from the +conflicting needs of dynamic loading and namespace protection. + +For dynamic loading to work on AIX (and VMS) we need to provide a list +of symbols to be exported. This is done by the script F<perl_exp.SH>, +which reads F<global.sym> and F<interp.sym>. Thus, the C<pause> +symbol would have to be added to F<global.sym> So far, so good. + +On the other hand, one of the goals of Perl5 is to make it easy to +either extend or embed perl and link it with other libraries. This +means we have to be careful to keep the visible namespace "clean". +That is, we don't want perl's global variables to conflict with +those in the other application library. Although this work is still +in progress, the way it is currently done is via the F<embed.h> file. +This file is built from the F<global.sym> and F<interp.sym> files, +since those files already list the globally visible symbols. If we +had added C<pause> to global.sym, then F<embed.h> would contain the +line + + #define pause Perl_pause + +and calls to C<pause> in the perl sources would now point to +C<Perl_pause>. Now, when B<ld> is run to build the F<perl> executable, +it will go looking for C<perl_pause>, which probably won't exist in any +of the standard libraries. Thus the build of perl will fail. + +Those systems where C<HAS_PAUSE> is not defined would be ok, however, +since they would get a C<Perl_pause> function in util.c. The rest of +the world would be in trouble. + +And yes, this scenario has happened. On SCO, the function C<chsize> +is available. (I think it's in F<-lx>, the Xenix compatibility +library.) Since the perl4 days (and possibly before), Perl has +included a C<chsize> function that gets called something akin to + + #ifndef HAS_CHSIZE + I32 chsize(fd, length) + /* . . . */ + #endif + +When 5.003 added + + #define chsize Perl_chsize + +to F<embed.h>, the compile started failing on SCO systems. + +The "fix" is to give the function a different name. The one +implemented in 5.003_05 isn't optimal, but here's what was done: + + #ifdef HAS_CHSIZE + # ifdef my_chsize /* Probably #defined to Perl_my_chsize in embed.h */ + # undef my_chsize + # endif + # define my_chsize chsize + #endif + +My explanatory comment in patch 5.003_05 said: + + Undef and then re-define my_chsize from Perl_my_chsize to + just plain chsize if this system HAS_CHSIZE. This probably only + applies to SCO. This shows the perils of having internal + functions with the same name as external library functions :-). + +Now, we can safely put C<my_chsize> in F<global.sym>, export it, and +hide it with F<embed.h>. + +To be consistent with what I did for C<pause>, I probably should have +called the new function C<Chsize>, rather than C<my_chsize>. +However, the perl sources are quite inconsistent on this (Consider +New, Mymalloc, and Myremalloc, to name just a few.) + +There is a problem with this fix, however, in that C<Perl_chsize> +was available as a F<libperl.a> library function in 5.003, but it +isn't available any more (as of 5.003_07). This means that we've +broken binary compatibility. This is not good. + +=item Providing missing functions -- some ideas + +We currently don't have a standard way of handling such missing +function names. Right now, I'm effectively thinking aloud about a +solution. Some day, I'll try to formally propose a solution. + +Part of the problem is that we want to have some functions listed as +exported but not have their names mangled by embed.h or possibly +conflict with names in standard system headers. We actually already +have such a list at the end of F<perl_exp.SH> (though that list is +out-of-date): + + # extra globals not included above. + cat <<END >> perl.exp + perl_init_ext + perl_init_fold + perl_init_i18nl14n + perl_alloc + perl_construct + perl_destruct + perl_free + perl_parse + perl_run + perl_get_sv + perl_get_av + perl_get_hv + perl_get_cv + perl_call_argv + perl_call_pv + perl_call_method + perl_call_sv + perl_requirepv + safecalloc + safemalloc + saferealloc + safefree + +This still needs much thought, but I'm inclined to think that one +possible solution is to prefix all such functions with C<perl_> in the +source and list them along with the other C<perl_*> functions in +F<perl_exp.SH>. + +Thus, for C<chsize>, we'd do something like the following: + + /* in perl.h */ + #ifdef HAS_CHSIZE + # define perl_chsize chsize + #endif + +then in some file (e.g. F<util.c> or F<doio.c>) do + + #ifndef HAS_CHSIZE + I32 perl_chsize(fd, length) + /* implement the function here . . . */ + #endif + +Alternatively, we could just always use C<chsize> everywhere and move +C<chsize> from F<global.sym> to the end of F<perl_exp.SH>. That would +probably be fine as long as our C<chsize> function agreed with all the +C<chsize> function prototypes in the various systems we'll be using. +As long as the prototypes in actual use don't vary that much, this is +probably a good alternative. (As a counter-example, note how Configure +and perl have to go through hoops to find and use get Malloc_t and +Free_t for C<malloc> and C<free>.) + +At the moment, this latter option is what I tend to prefer. + +=item All the world's a VAX + +Sorry, showing my age:-). Still, all the world is not BSD 4.[34], +SVR4, or POSIX. Be aware that SVR3-derived systems are still quite +common (do you have any idea how many systems run SCO?) If you don't +have a bunch of v7 manuals handy, the metaconfig units (by default +installed in F</usr/local/lib/dist/U>) are a good resource to look at +for portability. + +=back + +=head1 Miscellaneous Topics + +=head2 Autoconf + +Why does perl use a metaconfig-generated Configure script instead of an +autoconf-generated configure script? + +Metaconfig and autoconf are two tools with very similar purposes. +Metaconfig is actually the older of the two, and was originally written +by Larry Wall, while autoconf is probably now used in a wider variety of +packages. The autoconf info file discusses the history of autoconf and +how it came to be. The curious reader is referred there for further +information. + +Overall, both tools are quite good, I think, and the choice of which one +to use could be argued either way. In March, 1994, when I was just +starting to work on Configure support for Perl5, I considered both +autoconf and metaconfig, and eventually decided to use metaconfig for the +following reasons: + +=over 4 + +=item Compatibility with Perl4 + +Perl4 used metaconfig, so many of the #ifdef's were already set up for +metaconfig. Of course metaconfig had evolved some since Perl4's days, +but not so much that it posed any serious problems. + +=item Metaconfig worked for me + +My system at the time was Interactive 2.2, a SVR3.2/386 derivative that +also had some POSIX support. Metaconfig-generated Configure scripts +worked fine for me on that system. On the other hand, autoconf-generated +scripts usually didn't. (They did come quite close, though, in some +cases.) At the time, I actually fetched a large number of GNU packages +and checked. Not a single one configured and compiled correctly +out-of-the-box with the system's cc compiler. + +=item Configure can be interactive + +With both autoconf and metaconfig, if the script works, everything is +fine. However, one of my main problems with autoconf-generated scripts +was that if it guessed wrong about something, it could be B<very> hard to +go back and fix it. For example, autoconf always insisted on passing the +-Xp flag to cc (to turn on POSIX behavior), even when that wasn't what I +wanted or needed for that package. There was no way short of editing the +configure script to turn this off. You couldn't just edit the resulting +Makefile at the end because the -Xp flag influenced a number of other +configure tests. + +Metaconfig's Configure scripts, on the other hand, can be interactive. +Thus if Configure is guessing things incorrectly, you can go back and fix +them. This isn't as important now as it was when we were actively +developing Configure support for new features such as dynamic loading, +but it's still useful occasionally. + +=item GPL + +At the time, autoconf-generated scripts were covered under the GNU Public +License, and hence weren't suitable for inclusion with Perl, which has a +different licensing policy. (Autoconf's licensing has since changed.) + +=item Modularity + +Metaconfig builds up Configure from a collection of discrete pieces +called "units". You can override the standard behavior by supplying your +own unit. With autoconf, you have to patch the standard files instead. +I find the metaconfig "unit" method easier to work with. Others +may find metaconfig's units clumsy to work with. + +=back + +=head2 @INC search order + +By default, the list of perl library directories in @INC is the +following: + + $archlib + $privlib + $sitearch + $sitelib + +Specifically, on my Solaris/x86 system, I run +B<sh Configure -Dprefix=/opt/perl> and I have the following +directories: + + /opt/perl/lib/i86pc-solaris/5.00307 + /opt/perl/lib + /opt/perl/lib/site_perl/i86pc-solaris + /opt/perl/lib/site_perl + +That is, perl's directories come first, followed by the site-specific +directories. + +The site libraries come second to support the usage of extensions +across perl versions. Read the relevant section in F<INSTALL> for +more information. If we ever make $sitearch version-specific, this +topic could be revisited. + +=head2 Why isn't there a directory to override Perl's library? + +Mainly because no one's gotten around to making one. Note that +"making one" involves changing perl.c, Configure, config_h.SH (and +associated files, see above), and I<documenting> it all in the +INSTALL file. + +Apparently, most folks who want to override one of the standard library +files simply do it by overwriting the standard library files. + +=head2 APPLLIB + +In the perl.c sources, you'll find an undocumented APPLLIB_EXP +variable, sort of like PRIVLIB_EXP and ARCHLIB_EXP (which are +documented in config_h.SH). Here's what APPLLIB_EXP is for, from +a mail message from Larry: + + The main intent of APPLLIB_EXP is for folks who want to send out a + version of Perl embedded in their product. They would set the symbol + to be the name of the library containing the files needed to run or to + support their particular application. This works at the "override" + level to make sure they get their own versions of any library code that + they absolutely must have configuration control over. + + As such, I don't see any conflict with a sysadmin using it for a + override-ish sort of thing, when installing a generic Perl. It should + probably have been named something to do with overriding though. Since + it's undocumented we could still change it... :-) + +Given that it's already there, you can use it to override +distribution modules. If you do + + sh Configure -Dccflags='-DAPPLLIB_EXP=/my/override' + +then perl.c will put /my/override ahead of ARCHLIB and PRIVLIB. + +=head1 Upload Your Work to CPAN + +You can upload your work to CPAN if you have a CPAN id. Check out +http://www.perl.com/CPAN/modules/04pause.html for information on +_PAUSE_, the Perl Author's Upload Server. + +I typically upload both the patch file, e.g. F<perl5.004_08.pat.gz> +and the full tar file, e.g. F<perl5.004_08.tar.gz>. + +If you want your patch to appear in the F<src/5.0/unsupported> +directory on CPAN, send e-mail to the CPAN master librarian. (Check +out http://www.perl.com/CPAN/CPAN.html ). + +=head1 Help Save the World + +You should definitely announce your patch on the perl5-porters list. +You should also consider announcing your patch on +comp.lang.perl.announce, though you should make it quite clear that a +subversion is not a production release, and be prepared to deal with +people who will not read your disclaimer. + +=head1 Todo + +Here, in no particular order, are some Configure and build-related +items that merit consideration. This list isn't exhaustive, it's just +what I came up with off the top of my head. + +=head2 Good ideas waiting for round tuits + +=over 4 + +=item installprefix + +I think we ought to support + + Configure -Dinstallprefix=/blah/blah + +Currently, we support B<-Dprefix=/blah/blah>, but the changing the install +location has to be handled by something like the F<config.over> trick +described in F<INSTALL>. AFS users also are treated specially. +We should probably duplicate the metaconfig prefix stuff for an +install prefix. + +=item Configure -Dsrcdir=/blah/blah + +We should be able to emulate B<configure --srcdir>. Tom Tromey +tromey@creche.cygnus.com has submitted some patches to +the dist-users mailing list along these lines. Eventually, they ought +to get folded back into the main distribution. + +=item Hint file fixes + +Various hint files work around Configure problems. We ought to fix +Configure so that most of them aren't needed. + +=item Hint file information + +Some of the hint file information (particularly dynamic loading stuff) +ought to be fed back into the main metaconfig distribution. + +=back + +=head2 Probably good ideas waiting for round tuits + +=over 4 + +=item GNU configure --options + +I've received sensible suggestions for --exec_prefix and other +GNU configure --options. It's not always obvious exactly what is +intended, but this merits investigation. + +=item make clean + +Currently, B<make clean> isn't all that useful, though +B<make realclean> and B<make distclean> are. This needs a bit of +thought and documentation before it gets cleaned up. + +=item Try gcc if cc fails + +Currently, we just give up. + +=item bypassing safe*alloc wrappers + +On some systems, it may be safe to call the system malloc directly +without going through the util.c safe* layers. (Such systems would +accept free(0), for example.) This might be a time-saver for systems +that already have a good malloc. (Recent Linux libc's apparently have +a nice malloc that is well-tuned for the system.) + +=back + +=head2 Vague possibilities + +=over 4 + +=item MacPerl + +Get some of the Macintosh stuff folded back into the main distribution. + +=item gconvert replacement + +Maybe include a replacement function that doesn't lose data in rare +cases of coercion between string and numerical values. + +=item long long + +Can we support C<long long> on systems where C<long long> is larger +than what we've been using for C<IV>? What if you can't C<sprintf> +a C<long long>? + +=item Improve makedepend + +The current makedepend process is clunky and annoyingly slow, but it +works for most folks. Alas, it assumes that there is a filename +$firstmakefile that the B<make> command will try to use before it uses +F<Makefile>. Such may not be the case for all B<make> commands, +particularly those on non-Unix systems. + +Probably some variant of the BSD F<.depend> file will be useful. +We ought to check how other packages do this, if they do it at all. +We could probably pre-generate the dependencies (with the exception of +malloc.o, which could probably be determined at F<Makefile.SH> +extraction time. + +=item GNU Makefile standard targets + +GNU software generally has standardized Makefile targets. Unless we +have good reason to do otherwise, I see no reason not to support them. + +=item File locking + +Somehow, straighten out, document, and implement lockf(), flock(), +and/or fcntl() file locking. It's a mess. + +=back + +=head1 AUTHORS + +Original author: Andy Dougherty doughera@lafcol.lafayette.edu . +Additions by Chip Salzenberg chip@perl.com and +Tim Bunce Tim.Bunce@ig.co.uk . + +All opinions expressed herein are those of the authorZ<>(s). + +=head1 LAST MODIFIED + +$Id: pumpkin.pod,v 1.13 1997/08/28 18:26:40 doughera Released $ diff --git a/gnu/usr.bin/perl/README.amiga b/gnu/usr.bin/perl/README.amiga new file mode 100644 index 00000000000..55167cb44d8 --- /dev/null +++ b/gnu/usr.bin/perl/README.amiga @@ -0,0 +1,240 @@ +If you read this file _as_is_, just ignore the funny characters you +see. It is written in the POD format (see perlpod manpage) which is +specially designed to be readable as is. + +=head1 NAME + +perlamiga - Perl under Amiga OS + +=head1 SYNOPSIS + +One can read this document in the following formats: + + man perlamiga + multiview perlamiga.guide + +to list some (not all may be available simultaneously), or it may +be read I<as is>: either as F<README.amiga>, or F<pod/perlamiga.pod>. + +=cut + +Contents + + perlamiga - Perl under Amiga OS + + NAME + SYNOPSIS + DESCRIPTION + - Prerequisites + - Starting Perl programs under AmigaOS + - Shortcomings of Perl under AmigaOS + INSTALLATION + Accessing documentation + - Manpages + - HTML + - GNU info files + - LaTeX docs + BUILD + - Prerequisites + - Getting the perl source + - Application of the patches + - Making + - Testing + - Installing the built perl + AUTHOR + SEE ALSO + +=head1 DESCRIPTION + +=head2 Prerequisites + +=over 6 + +=item B<Unix emulation for AmigaOS: ixemul.library> + +You need the Unix emulation for AmigaOS, whose most important part is +B<ixemul.library>. For a minimum setup, get the following archives from +ftp://ftp.ninemoons.com/pub/ade/current or a mirror: + +ixemul-46.0-bin.lha +ixemul-46.0-env-bin.lha +pdksh-4.9-bin.lha +ADE-misc-bin.lha + +Note that there might be newer versions available by the time you read +this. + +Note also that this is a minimum setup; you might want to add other +packages of B<ADE> (the I<Amiga Developers Environment>). + +=item B<Version of Amiga OS> + +You need at the very least AmigaOS version 2.0. Recommended is version 3.1. + +=back + +=head2 Starting Perl programs under AmigaOS + +Start your Perl program F<foo> with arguments C<arg1 arg2 arg3> the +same way as on any other platform, by + + perl foo arg1 arg2 arg3 + +If you want to specify perl options C<-my_opts> to the perl itself (as +opposed to to your program), use + + perl -my_opts foo arg1 arg2 arg3 + +Alternately, you can try to get a replacement for the system's B<Execute> +command that honors the #!/usr/bin/perl syntax in scripts and set the s-Bit +of your scripts. Then you can invoke your scripts like under UNIX with + + foo arg1 arg2 arg3 + +(Note that having *nixish full path to perl F</usr/bin/perl> is not +necessary, F<perl> would be enough, but having full path would make it +easier to use your script under *nix.) + +=head2 Shortcomings of Perl under AmigaOS + +Perl under AmigaOS lacks some features of perl under UNIX because of +deficiencies in the UNIX-emulation, most notably: + +=over 6 + +=item fork() + +=item some features of the UNIX filesystem regarding link count and file dates + +=item inplace operation (the -i switch) without backup file + +=item umask() works, but the correct permissions are only set when the file is + finally close()d + +=back + +=head1 INSTALLATION + +Change to the installation directory (most probably ADE:), and +extract the binary distribution: + +lha -mraxe x perl-5.003-bin.lha + +or + +tar xvzpf perl-5.003-bin.tgz + +(Of course you need lha or tar and gunzip for this.) + +For installation of the Unix emulation, read the appropriate docs. + +=head1 Accessing documentation + +=head2 Manpages + +If you have C<man> installed on your system, and you installed perl +manpages, use something like this: + + man perlfunc + man less + man ExtUtils.MakeMaker + +to access documentation for different components of Perl. Start with + + man perl + +Note: You have to modify your man.conf file to search for manpages +in the /ade/lib/perl5/man/man3 directory, or the man pages for the +perl library will not be found. + +Note that dot (F<.>) is used as a package separator for documentation +for packages, and as usual, sometimes you need to give the section - C<3> +above - to avoid shadowing by the I<less(1) manpage>. + + +=head2 B<HTML> + +If you have some WWW browser available, you can build B<HTML> docs. +Cd to directory with F<.pod> files, and do like this + + cd /ade/lib/perl5/pod + pod2html + +After this you can direct your browser the file F<perl.html> in this +directory, and go ahead with reading docs. + +Alternatively you may be able to get these docs prebuilt from C<CPAN>. + +=head2 B<GNU> C<info> files + +Users of C<Emacs> would appreciate it very much, especially with +C<CPerl> mode loaded. You need to get latest C<pod2info> from C<CPAN>, +or, alternately, prebuilt info pages. + +=head2 C<LaTeX> docs + +can be constructed using C<pod2latex>. + +=head1 BUILD + +Here we discuss how to build Perl under AmigaOS. + +=head2 Prerequisites + +You need to have the latest B<ADE> (Amiga Developers Environment) +from ftp://ftp.ninemoons.com/pub/ade/current. +Also, you need a lot of free memory, probably at least 8MB. + +=head2 Getting the perl source + +You can either get the latest perl-for-amiga source from Ninemoons +and extract it with: + + tar xvzpf perl-5.004-src.tgz + +or get the official source from CPAN: + + http://www.perl.com/CPAN/src/5.0 + +Extract it like this + + tar xvzpf perl5.004.tar.gz + +You will see a message about errors while extracting F<Configure>. This +is normal and expected. (There is a conflict with a similarly-named file +F<configure>, but it causes no harm.) + +=head2 Making + + sh configure.gnu --prefix=/ade + +Now + + make + +=head2 Testing + +Now run + + make test + +Some tests will be skipped because they need the fork() function: + +F<io/pipe.t>, F<op/fork.t>, F<lib/filehand.t>, F<lib/open2.t>, F<lib/open3.t>, +F<lib/io_pipe.t>, F<lib/io_sock.t> + +=head2 Installing the built perl + +Run + + make install + +=head1 AUTHOR + +Norbert Pueschel, pueschel@imsdd.meb.uni-bonn.de + +=head1 SEE ALSO + +perl(1). + +=cut diff --git a/gnu/usr.bin/perl/README.cygwin32 b/gnu/usr.bin/perl/README.cygwin32 new file mode 100644 index 00000000000..d7950f63d44 --- /dev/null +++ b/gnu/usr.bin/perl/README.cygwin32 @@ -0,0 +1,59 @@ +The following assumes you have the GNU-Win32 package, version b17.1 or +later, installed and configured on your system. See +http://www.cygnus.com/misc/gnu-win32/ for details on the GNU-Win32 +project and the Cygwin32 API. + +1) Copy the contents of the cygwin32 directory to the Perl source + root directory. + +2) Modify the ld2 script by making the PERLPATH variable contain the + Perl source root directory. For example, if you extracted perl to + "/perl5.004", change the script so it contains the line: + + PERLPATH=/perl5.004 + +3) Copy the two scripts ld2 and gcc2 from the cygwin32 subdirectory to a + directory in your PATH environment variable. For example, copy to + /bin, assuming /bin is in your PATH. (These two scripts are 'wrapper' + scripts that encapsulate the multiple-pass dll building steps used by + GNU-Win32 ld/gcc.) + +4) Run the perl Configuration script as stated in the perl README file: + + sh Configure + + When confronted with this prompt: + + First time through, eh? I have some defaults handy for the + following systems: + . + . + . + Which of these apply, if any? + + Select "cygwin32". + + The defaults should be OK for everything, except for the specific + pathnames for the cygwin32 libs, include files, installation dirs, + etc. on your system; answer those questions appropriately. + + NOTE: On windows 95, the configuration script only stops every other + time for responses from the command line. In this case you can manually + copy hints/cygwin32.sh to config.sh, edit config.sh for your paths, and + run Configure non-interactively using sh Configure -d. + +5) Run "make" as stated in the perl README file. + +6) Run "make test". Some tests will fail, but you should get around a + 83% success rate. (Most failures seem to be due to Unixisms that don't + apply to win32.) + +7) Install. If you just run "perl installperl", it appears that perl + can't find itself when it forks because it changes to another directory + during the install process. You can get around this by invoking the + install script using a full pathname for perl, such as: + + /perl5.004/perl installperl + + This should complete the installation process. + diff --git a/gnu/usr.bin/perl/README.os2 b/gnu/usr.bin/perl/README.os2 new file mode 100644 index 00000000000..667423c382a --- /dev/null +++ b/gnu/usr.bin/perl/README.os2 @@ -0,0 +1,1493 @@ +If you read this file _as_is_, just ignore the funny characters you +see. It is written in the POD format (see perlpod manpage) which is +specially designed to be readable as is. + +=head1 NAME + +perlos2 - Perl under OS/2, DOS, Win0.3*, Win0.95 and WinNT. + +=head1 SYNOPSIS + +One can read this document in the following formats: + + man perlos2 + view perl perlos2 + explorer perlos2.html + info perlos2 + +to list some (not all may be available simultaneously), or it may +be read I<as is>: either as F<README.os2>, or F<pod/perlos2.pod>. + +To read the F<.INF> version of documentation (B<very> recommended) +outside of OS/2, one needs an IBM's reader (may be available on IBM +ftp sites (?) (URL anyone?)) or shipped with PC DOS 7.0 and IBM's +Visual Age C++ 3.5. + +A copy of a Win* viewer is contained in the "Just add OS/2 Warp" package + + ftp://ftp.software.ibm.com/ps/products/os2/tools/jaow/jaow.zip + +in F<?:\JUST_ADD\view.exe>. This gives one an access to EMX's +F<.INF> docs as well (text form is available in F</emx/doc> in +EMX's distribution). + +Note that if you have F<lynx.exe> installed, you can follow WWW links +from this document in F<.INF> format. If you have EMX docs installed +correctly, you can follow library links (you need to have C<view emxbook> +working by setting C<EMXBOOK> environment variable as it is described +in EMX docs). + +=cut + +Contents + + perlos2 - Perl under OS/2, DOS, Win0.3*, Win0.95 and WinNT. + + NAME + SYNOPSIS + DESCRIPTION + - Target + - Other OSes + - Prerequisites + - Starting Perl programs under OS/2 (and DOS and...) + - Starting OS/2 (and DOS) programs under Perl + Frequently asked questions + - I cannot run external programs + - I cannot embed perl into my program, or use perl.dll from my program. + - `` and pipe-open do not work under DOS. + - Cannot start find.exe "pattern" file + INSTALLATION + - Automatic binary installation + - Manual binary installation + - Warning + Accessing documentation + - OS/2 .INF file + - Plain text + - Manpages + - HTML + - GNU info files + - .PDF files + - LaTeX docs + BUILD + - Prerequisites + - Getting perl source + - Application of the patches + - Hand-editing + - Making + - Testing + - Installing the built perl + - a.out-style build + Build FAQ + - Some / became \ in pdksh. + - 'errno' - unresolved external + - Problems with tr + - Some problem (forget which ;-) + - Library ... not found + - Segfault in make + Specific (mis)features of EMX port + - setpriority, getpriority + - system() + - extproc on the first line + - Additional modules: + - Prebuilt methods: + - Misfeatures + - Modifications + Perl flavors + - perl.exe + - perl_.exe + - perl__.exe + - perl___.exe + - Why strange names? + - Why dynamic linking? + - Why chimera build? + ENVIRONMENT + - PERLLIB_PREFIX + - PERL_BADLANG + - PERL_BADFREE + - PERL_SH_DIR + - TMP or TEMP + Evolution + - Priorities + - DLL name mangling + - Threading + - Calls to external programs + - Memory allocation + AUTHOR + SEE ALSO + +=head1 DESCRIPTION + +=head2 Target + +The target is to make OS/2 the best supported platform for +using/building/developing Perl and I<Perl applications>, as well as +make Perl the best language to use under OS/2. The secondary target is +to try to make this work under DOS and Win* as well (but not B<too> hard). + +The current state is quite close to this target. Known limitations: + +=over 5 + +=item * + +Some *nix programs use fork() a lot, but currently fork() is not +supported after I<use>ing dynamically loaded extensions. + +=item * + +You need a separate perl executable F<perl__.exe> (see L<perl__.exe>) +to use PM code in your application (like the forthcoming Perl/Tk). + +=item * + +There is no simple way to access WPS objects. The only way I know +is via C<OS2::REXX> extension (see L<OS2::REXX>), and we do not have access to +convenience methods of Object-REXX. (Is it possible at all? I know +of no Object-REXX API.) + +=back + +Please keep this list up-to-date by informing me about other items. + +=head2 Other OSes + +Since OS/2 port of perl uses a remarkable EMX environment, it can +run (and build extensions, and - possibly - be build itself) under any +environment which can run EMX. The current list is DOS, +DOS-inside-OS/2, Win0.3*, Win0.95 and WinNT. Out of many perl flavors, +only one works, see L<"perl_.exe">. + +Note that not all features of Perl are available under these +environments. This depends on the features the I<extender> - most +probably RSX - decided to implement. + +Cf. L<Prerequisites>. + +=head2 Prerequisites + +=over 6 + +=item EMX + +EMX runtime is required (may be substituted by RSX). Note that +it is possible to make F<perl_.exe> to run under DOS without any +external support by binding F<emx.exe>/F<rsx.exe> to it, see L<emxbind>. Note +that under DOS for best results one should use RSX runtime, which +has much more functions working (like C<fork>, C<popen> and so on). In +fact RSX is required if there is no VCPI present. Note the +RSX requires DPMI. + +Only the latest runtime is supported, currently C<0.9c>. Perl may run +under earlier versions of EMX, but this is not tested. + +One can get different parts of EMX from, say + + ftp://ftp.cdrom.com/pub/os2/emx09c/ + ftp://hobbes.nmsu.edu/os2/unix/emx09c/ + +The runtime component should have the name F<emxrt.zip>. + +B<NOTE>. It is enough to have F<emx.exe>/F<rsx.exe> on your path. One +does not need to specify them explicitly (though this + + emx perl_.exe -de 0 + +will work as well.) + +=item RSX + +To run Perl on DPMI platforms one needs RSX runtime. This is +needed under DOS-inside-OS/2, Win0.3*, Win0.95 and WinNT (see +L<"Other OSes">). RSX would not work with VCPI +only, as EMX would, it requires DMPI. + +Having RSX and the latest F<sh.exe> one gets a fully functional +B<*nix>-ish environment under DOS, say, C<fork>, C<``> and +pipe-C<open> work. In fact, MakeMaker works (for static build), so one +can have Perl development environment under DOS. + +One can get RSX from, say + + ftp://ftp.cdrom.com/pub/os2/emx09c/contrib + ftp://ftp.uni-bielefeld.de/pub/systems/msdos/misc + ftp://ftp.leo.org/pub/comp/os/os2/leo/devtools/emx+gcc/contrib + +Contact the author on C<rainer@mathematik.uni-bielefeld.de>. + +The latest F<sh.exe> with DOS hooks is available at + + ftp://ftp.math.ohio-state.edu/pub/users/ilya/os2/sh_dos.zip + +=item HPFS + +Perl does not care about file systems, but to install the whole perl +library intact one needs a file system which supports long file names. + +Note that if you do not plan to build the perl itself, it may be +possible to fool EMX to truncate file names. This is not supported, +read EMX docs to see how to do it. + +=item pdksh + +To start external programs with complicated command lines (like with +pipes in between, and/or quoting of arguments), Perl uses an external +shell. With EMX port such shell should be named <sh.exe>, and located +either in the wired-in-during-compile locations (usually F<F:/bin>), +or in configurable location (see L<"PERL_SH_DIR">). + +For best results use EMX pdksh. The soon-to-be-available standard +binary (5.2.12?) runs under DOS (with L<RSX>) as well, meanwhile use +the binary from + + ftp://ftp.math.ohio-state.edu/pub/users/ilya/os2/sh_dos.zip + +=back + +=head2 Starting Perl programs under OS/2 (and DOS and...) + +Start your Perl program F<foo.pl> with arguments C<arg1 arg2 arg3> the +same way as on any other platform, by + + perl foo.pl arg1 arg2 arg3 + +If you want to specify perl options C<-my_opts> to the perl itself (as +opposed to to your program), use + + perl -my_opts foo.pl arg1 arg2 arg3 + +Alternately, if you use OS/2-ish shell, like CMD or 4os2, put +the following at the start of your perl script: + + extproc perl -S -my_opts + +rename your program to F<foo.cmd>, and start it by typing + + foo arg1 arg2 arg3 + +Note that because of stupid OS/2 limitations the full path of the perl +script is not available when you use C<extproc>, thus you are forced to +use C<-S> perl switch, and your script should be on path. As a plus +side, if you know a full path to your script, you may still start it +with + + perl ../../blah/foo.cmd arg1 arg2 arg3 + +(note that the argument C<-my_opts> is taken care of by the C<extproc> line +in your script, see L<C<extproc> on the first line>). + +To understand what the above I<magic> does, read perl docs about C<-S> +switch - see L<perlrun>, and cmdref about C<extproc>: + + view perl perlrun + man perlrun + view cmdref extproc + help extproc + +or whatever method you prefer. + +There are also endless possibilities to use I<executable extensions> of +4os2, I<associations> of WPS and so on... However, if you use +*nixish shell (like F<sh.exe> supplied in the binary distribution), +you need to follow the syntax specified in L<perlrun/"Switches">. + +Note that B<-S> switch enables a search with additional extensions +F<.cmd>, F<.btm>, F<.bat>, F<.pl> as well. + +=head2 Starting OS/2 (and DOS) programs under Perl + +This is what system() (see L<perlfunc/system>), C<``> (see +L<perlop/"I/O Operators">), and I<open pipe> (see L<perlfunc/open>) +are for. (Avoid exec() (see L<perlfunc/exec>) unless you know what you +do). + +Note however that to use some of these operators you need to have a +sh-syntax shell installed (see L<"Pdksh">, +L<"Frequently asked questions">), and perl should be able to find it +(see L<"PERL_SH_DIR">). + +The only cases when the shell is not used is the multi-argument +system() (see L<perlfunc/system>)/exec() (see L<perlfunc/exec>), and +one-argument version thereof without redirection and shell +meta-characters. + +=head1 Frequently asked questions + +=head2 I cannot run external programs + +=over 4 + +=item + +Did you run your programs with C<-w> switch? See +L<Starting OS/2 (and DOS) programs under Perl>. + +=item + +Do you try to run I<internal> shell commands, like C<`copy a b`> +(internal for F<cmd.exe>), or C<`glob a*b`> (internal for ksh)? You +need to specify your shell explicitly, like C<`cmd /c copy a b`>, +since Perl cannot deduce which commands are internal to your shell. + +=back + +=head2 I cannot embed perl into my program, or use F<perl.dll> from my +program. + +=over 4 + +=item Is your program EMX-compiled with C<-Zmt -Zcrtdll>? + +If not, you need to build a stand-alone DLL for perl. Contact me, I +did it once. Sockets would not work, as a lot of other stuff. + +=item Did you use L<ExtUtils::Embed>? + +I had reports it does not work. Somebody would need to fix it. + +=back + +=head2 C<``> and pipe-C<open> do not work under DOS. + +This may a variant of just L<"I cannot run external programs">, or a +deeper problem. Basically: you I<need> RSX (see L<"Prerequisites">) +for these commands to work, and you may need a port of F<sh.exe> which +understands command arguments. One of such ports is listed in +L<"Prerequisites"> under RSX. Do not forget to set variable +C<L<"PERL_SH_DIR">> as well. + +DPMI is required for RSX. + +=head2 Cannot start C<find.exe "pattern" file> + +Use one of + + system 'cmd', '/c', 'find "pattern" file'; + `cmd /c 'find "pattern" file'` + +This would start F<find.exe> via F<cmd.exe> via C<sh.exe> via +C<perl.exe>, but this is a price to pay if you want to use +non-conforming program. In fact F<find.exe> cannot be started at all +using C library API only. Otherwise the following command-lines were +equivalent: + + find "pattern" file + find pattern file + +=head1 INSTALLATION + +=head2 Automatic binary installation + +The most convenient way of installing perl is via perl installer +F<install.exe>. Just follow the instructions, and 99% of the +installation blues would go away. + +Note however, that you need to have F<unzip.exe> on your path, and +EMX environment I<running>. The latter means that if you just +installed EMX, and made all the needed changes to F<Config.sys>, +you may need to reboot in between. Check EMX runtime by running + + emxrev + +A folder is created on your desktop which contains some useful +objects. + +B<Things not taken care of by automatic binary installation:> + +=over 15 + +=item C<PERL_BADLANG> + +may be needed if you change your codepage I<after> perl installation, +and the new value is not supported by EMX. See L<"PERL_BADLANG">. + +=item C<PERL_BADFREE> + +see L<"PERL_BADFREE">. + +=item F<Config.pm> + +This file resides somewhere deep in the location you installed your +perl library, find it out by + + perl -MConfig -le "print $INC{'Config.pm'}" + +While most important values in this file I<are> updated by the binary +installer, some of them may need to be hand-edited. I know no such +data, please keep me informed if you find one. + +=back + +B<NOTE>. Because of a typo the binary installer of 5.00305 +would install a variable C<PERL_SHPATH> into F<Config.sys>. Please +remove this variable and put C<L<PERL_SH_DIR>> instead. + +=head2 Manual binary installation + +As of version 5.00305, OS/2 perl binary distribution comes split +into 11 components. Unfortunately, to enable configurable binary +installation, the file paths in the zip files are not absolute, but +relative to some directory. + +Note that the extraction with the stored paths is still necessary +(default with unzip, specify C<-d> to pkunzip). However, you +need to know where to extract the files. You need also to manually +change entries in F<Config.sys> to reflect where did you put the +files. Note that if you have some primitive unzipper (like +pkunzip), you may get a lot of warnings/errors during +unzipping. Upgrade to C<(w)unzip>. + +Below is the sample of what to do to reproduce the configuration on my +machine: + +=over 3 + +=item Perl VIO and PM executables (dynamically linked) + + unzip perl_exc.zip *.exe *.ico -d f:/emx.add/bin + unzip perl_exc.zip *.dll -d f:/emx.add/dll + +(have the directories with C<*.exe> on PATH, and C<*.dll> on +LIBPATH); + +=item Perl_ VIO executable (statically linked) + + unzip perl_aou.zip -d f:/emx.add/bin + +(have the directory on PATH); + +=item Executables for Perl utilities + + unzip perl_utl.zip -d f:/emx.add/bin + +(have the directory on PATH); + +=item Main Perl library + + unzip perl_mlb.zip -d f:/perllib/lib + +If this directory is preserved, you do not need to change +anything. However, for perl to find it if it is changed, you need to +C<set PERLLIB_PREFIX> in F<Config.sys>, see L<"PERLLIB_PREFIX">. + +=item Additional Perl modules + + unzip perl_ste.zip -d f:/perllib/lib/site_perl + +If you do not change this directory, do nothing. Otherwise put this +directory and subdirectory F<./os2> in C<PERLLIB> or C<PERL5LIB> +variable. Do not use C<PERL5LIB> unless you have it set already. See +L<perl/"ENVIRONMENT">. + +=item Tools to compile Perl modules + + unzip perl_blb.zip -d f:/perllib/lib + +If this directory is preserved, you do not need to change +anything. However, for perl to find it if it is changed, you need to +C<set PERLLIB_PREFIX> in F<Config.sys>, see L<"PERLLIB_PREFIX">. + +=item Manpages for Perl and utilities + + unzip perl_man.zip -d f:/perllib/man + +This directory should better be on C<MANPATH>. You need to have a +working man to access these files. + +=item Manpages for Perl modules + + unzip perl_mam.zip -d f:/perllib/man + +This directory should better be on C<MANPATH>. You need to have a +working man to access these files. + +=item Source for Perl documentation + + unzip perl_pod.zip -d f:/perllib/lib + +This is used by by C<perldoc> program (see L<perldoc>), and may be used to +generate HTML documentation usable by WWW browsers, and +documentation in zillions of other formats: C<info>, C<LaTeX>, +C<Acrobat>, C<FrameMaker> and so on. + +=item Perl manual in F<.INF> format + + unzip perl_inf.zip -d d:/os2/book + +This directory should better be on C<BOOKSHELF>. + +=item Pdksh + + unzip perl_sh.zip -d f:/bin + +This is used by perl to run external commands which explicitly +require shell, like the commands using I<redirection> and I<shell +metacharacters>. It is also used instead of explicit F</bin/sh>. + +Set C<PERL_SH_DIR> (see L<"PERL_SH_DIR">) if you move F<sh.exe> from +the above location. + +B<Note.> It may be possible to use some other sh-compatible shell +(I<not tested>). + +=back + +After you installed the components you needed and updated the +F<Config.sys> correspondingly, you need to hand-edit +F<Config.pm>. This file resides somewhere deep in the location you +installed your perl library, find it out by + + perl -MConfig -le "print $INC{'Config.pm'}" + +You need to correct all the entries which look like file paths (they +currently start with C<f:/>). + +=head2 B<Warning> + +The automatic and manual perl installation leave precompiled paths +inside perl executables. While these paths are overwriteable (see +L<"PERLLIB_PREFIX">, L<"PERL_SH_DIR">), one may get better results by +binary editing of paths inside the executables/DLLs. + +=head1 Accessing documentation + +Depending on how you built/installed perl you may have (otherwise +identical) Perl documentation in the following formats: + +=head2 OS/2 F<.INF> file + +Most probably the most convenient form. Under OS/2 view it as + + view perl + view perl perlfunc + view perl less + view perl ExtUtils::MakeMaker + +(currently the last two may hit a wrong location, but this may improve +soon). Under Win* see L<"SYNOPSIS">. + +If you want to build the docs yourself, and have I<OS/2 toolkit>, run + + pod2ipf > perl.ipf + +in F</perllib/lib/pod> directory, then + + ipfc /inf perl.ipf + +(Expect a lot of errors during the both steps.) Now move it on your +BOOKSHELF path. + +=head2 Plain text + +If you have perl documentation in the source form, perl utilities +installed, and GNU groff installed, you may use + + perldoc perlfunc + perldoc less + perldoc ExtUtils::MakeMaker + +to access the perl documentation in the text form (note that you may get +better results using perl manpages). + +Alternately, try running pod2text on F<.pod> files. + +=head2 Manpages + +If you have man installed on your system, and you installed perl +manpages, use something like this: + + man perlfunc + man 3 less + man ExtUtils.MakeMaker + +to access documentation for different components of Perl. Start with + + man perl + +Note that dot (F<.>) is used as a package separator for documentation +for packages, and as usual, sometimes you need to give the section - C<3> +above - to avoid shadowing by the I<less(1) manpage>. + +Make sure that the directory B<above> the directory with manpages is +on our C<MANPATH>, like this + + set MANPATH=c:/man;f:/perllib/man + +=head2 HTML + +If you have some WWW browser available, installed the Perl +documentation in the source form, and Perl utilities, you can build +HTML docs. Cd to directory with F<.pod> files, and do like this + + cd f:/perllib/lib/pod + pod2html + +After this you can direct your browser the file F<perl.html> in this +directory, and go ahead with reading docs, like this: + + explore file:///f:/perllib/lib/pod/perl.html + +Alternatively you may be able to get these docs prebuilt from CPAN. + +=head2 GNU C<info> files + +Users of Emacs would appreciate it very much, especially with +C<CPerl> mode loaded. You need to get latest C<pod2info> from C<CPAN>, +or, alternately, prebuilt info pages. + +=head2 F<.PDF> files + +for C<Acrobat> are available on CPAN (for slightly old version of +perl). + +=head2 C<LaTeX> docs + +can be constructed using C<pod2latex>. + +=head1 BUILD + +Here we discuss how to build Perl under OS/2. There is an alternative +(but maybe older) view on L<http://www.shadow.net/~troc/os2perl.html>. + +=head2 Prerequisites + +You need to have the latest EMX development environment, the full +GNU tool suite (gawk renamed to awk, and GNU F<find.exe> +earlier on path than the OS/2 F<find.exe>, same with F<sort.exe>, to +check use + + find --version + sort --version + +). You need the latest version of F<pdksh> installed as F<sh.exe>. + +Possible locations to get this from are + + ftp://hobbes.nmsu.edu/os2/unix/ + ftp://ftp.cdrom.com/pub/os2/unix/ + ftp://ftp.cdrom.com/pub/os2/dev32/ + ftp://ftp.cdrom.com/pub/os2/emx09c/ + +It is reported that the following archives contain enough utils to +build perl: gnufutil.zip, gnusutil.zip, gnututil.zip, gnused.zip, +gnupatch.zip, gnuawk.zip, gnumake.zip and ksh527rt.zip. Note that +all these utilities are known to be available from LEO: + + ftp://ftp.leo.org/pub/comp/os/os2/leo/gnu + +Make sure that no copies or perl are currently running. Later steps +of the build may fail since an older version of perl.dll loaded into +memory may be found. + +Also make sure that you have F</tmp> directory on the current drive, +and F<.> directory in your C<LIBPATH>. One may try to correct the +latter condition by + + set BEGINLIBPATH . + +if you use something like F<CMD.EXE> or latest versions of F<4os2.exe>. + +Make sure your gcc is good for C<-Zomf> linking: run C<omflibs> +script in F</emx/lib> directory. + +Check that you have link386 installed. It comes standard with OS/2, +but may be not installed due to customization. If typing + + link386 + +shows you do not have it, do I<Selective install>, and choose C<Link +object modules> in I<Optional system utilities/More>. If you get into +link386, press C<Ctrl-C>. + +=head2 Getting perl source + +You need to fetch the latest perl source (including developers +releases). With some probability it is located in + + http://www.perl.com/CPAN/src/5.0 + http://www.perl.com/CPAN/src/5.0/unsupported + +If not, you may need to dig in the indices to find it in the directory +of the current maintainer. + +Quick cycle of developers release may break the OS/2 build time to +time, looking into + + http://www.perl.com/CPAN/ports/os2/ilyaz/ + +may indicate the latest release which was publicly released by the +maintainer. Note that the release may include some additional patches +to apply to the current source of perl. + +Extract it like this + + tar vzxf perl5.00409.tar.gz + +You may see a message about errors while extracting F<Configure>. This is +because there is a conflict with a similarly-named file F<configure>. + +Change to the directory of extraction. + +=head2 Application of the patches + +You need to apply the patches in F<./os2/diff.*> and +F<./os2/POSIX.mkfifo> like this: + + gnupatch -p0 < os2\POSIX.mkfifo + gnupatch -p0 < os2\diff.configure + +You may also need to apply the patches supplied with the binary +distribution of perl. + +Note also that the F<db.lib> and F<db.a> from the EMX distribution +are not suitable for multi-threaded compile (note that currently perl +is not multithread-safe, but is compiled as multithreaded for +compatibility with XFree86-OS/2). Get a corrected one from + + ftp://ftp.math.ohio-state.edu/pub/users/ilya/os2/db_mt.zip + +=head2 Hand-editing + +You may look into the file F<./hints/os2.sh> and correct anything +wrong you find there. I do not expect it is needed anywhere. + +=head2 Making + + sh Configure -des -D prefix=f:/perllib + +C<prefix> means: where to install the resulting perl library. Giving +correct prefix you may avoid the need to specify C<PERLLIB_PREFIX>, +see L<"PERLLIB_PREFIX">. + +I<Ignore the message about missing C<ln>, and about C<-c> option to +tr>. In fact if you can trace where the latter spurious warning +comes from, please inform me. + +Now + + make + +At some moment the built may die, reporting a I<version mismatch> or +I<unable to run F<perl>>. This means that most of the build has been +finished, and it is the time to move the constructed F<perl.dll> to +some I<absolute> location in LIBPATH. After this is done the build +should finish without a lot of fuss. I<One can avoid the interruption +if one has the correct prebuilt version of F<perl.dll> on LIBPATH, but +probably this is not needed anymore, since F<miniperl.exe> is linked +statically now.> + +Warnings which are safe to ignore: I<mkfifo() redefined> inside +F<POSIX.c>. + +=head2 Testing + +Now run + + make test + +Some tests (4..6) should fail. Some perl invocations should end in a +segfault (system error C<SYS3175>). To get finer error reports, + + cd t + perl harness + +The report you get may look like + + Failed Test Status Wstat Total Fail Failed List of failed + --------------------------------------------------------------- + io/fs.t 26 11 42.31% 2-5, 7-11, 18, 25 + lib/io_pipe.t 3 768 6 ?? % ?? + lib/io_sock.t 3 768 5 ?? % ?? + op/stat.t 56 5 8.93% 3-4, 20, 35, 39 + Failed 4/140 test scripts, 97.14% okay. 27/2937 subtests failed, 99.08% okay. + +Note that using `make test' target two more tests may fail: C<op/exec:1> +because of (mis)feature of pdksh, and C<lib/posix:15>, which checks +that the buffers are not flushed on C<_exit> (this is a bug in the test +which assumes that tty output is buffered). + +I submitted a patch to EMX which makes it possible to fork() with EMX +dynamic libraries loaded, which makes F<lib/io*> tests pass. This means +that soon the number of failing tests may decrease yet more. + +However, the test F<lib/io_udp.t> is disabled, since it never terminates, I +do not know why. Comments/fixes welcome. + +The reasons for failed tests are: + +=over 8 + +=item F<io/fs.t> + +Checks I<file system> operations. Tests: + +=over 10 + +=item 2-5, 7-11 + +Check C<link()> and C<inode count> - nonesuch under OS/2. + +=item 18 + +Checks C<atime> and C<mtime> of C<stat()> - I could not understand this test. + +=item 25 + +Checks C<truncate()> on a filehandle just opened for write - I do not +know why this should or should not work. + +=back + +=item F<lib/io_pipe.t> + +Checks C<IO::Pipe> module. Some feature of EMX - test fork()s with +dynamic extension loaded - unsupported now. + +=item F<lib/io_sock.t> + +Checks C<IO::Socket> module. Some feature of EMX - test fork()s +with dynamic extension loaded - unsupported now. + +=item F<op/stat.t> + +Checks C<stat()>. Tests: + +=over 4 + +=item 3 + +Checks C<inode count> - nonesuch under OS/2. + +=item 4 + +Checks C<mtime> and C<ctime> of C<stat()> - I could not understand this test. + +=item 20 + +Checks C<-x> - determined by the file extension only under OS/2. + +=item 35 + +Needs F</usr/bin>. + +=item 39 + +Checks C<-t> of F</dev/null>. Should not fail! + +=back + +=back + +In addition to errors, you should get a lot of warnings. + +=over 4 + +=item A lot of `bad free' + +in databases related to Berkeley DB. This is a confirmed bug of +DB. You may disable this warnings, see L<"PERL_BADFREE">. + +=item Process terminated by SIGTERM/SIGINT + +This is a standard message issued by OS/2 applications. *nix +applications die in silence. It is considered a feature. One can +easily disable this by appropriate sighandlers. + +However the test engine bleeds these message to screen in unexpected +moments. Two messages of this kind I<should> be present during +testing. + +=item F<*/sh.exe>: ln: not found + +=item C<ls>: /dev: No such file or directory + +The last two should be self-explanatory. The test suite discovers that +the system it runs on is not I<that much> *nixish. + +=back + +A lot of `bad free'... in databases, bug in DB confirmed on other +platforms. You may disable it by setting PERL_BADFREE environment variable +to 1. + +=head2 Installing the built perl + +Run + + make install + +It would put the generated files into needed locations. Manually put +F<perl.exe>, F<perl__.exe> and F<perl___.exe> to a location on your +PATH, F<perl.dll> to a location on your LIBPATH. + +Run + + make cmdscripts INSTALLCMDDIR=d:/ir/on/path + +to convert perl utilities to F<.cmd> files and put them on +PATH. You need to put F<.EXE>-utilities on path manually. They are +installed in C<$prefix/bin>, here C<$prefix> is what you gave to +F<Configure>, see L<Making>. + +=head2 C<a.out>-style build + +Proceed as above, but make F<perl_.exe> (see L<"perl_.exe">) by + + make perl_ + +test and install by + + make aout_test + make aout_install + +Manually put F<perl_.exe> to a location on your PATH. + +Since C<perl_> has the extensions prebuilt, it does not suffer from +the I<dynamic extensions + fork()> syndrome, thus the failing tests +look like + + Failed Test Status Wstat Total Fail Failed List of failed + --------------------------------------------------------------- + io/fs.t 26 11 42.31% 2-5, 7-11, 18, 25 + op/stat.t 56 5 8.93% 3-4, 20, 35, 39 + Failed 2/118 test scripts, 98.31% okay. 16/2445 subtests failed, 99.35% okay. + +B<Note.> The build process for C<perl_> I<does not know> about all the +dependencies, so you should make sure that anything is up-to-date, +say, by doing + + make perl.dll + +first. + +=head1 Build FAQ + +=head2 Some C</> became C<\> in pdksh. + +You have a very old pdksh. See L<Prerequisites>. + +=head2 C<'errno'> - unresolved external + +You do not have MT-safe F<db.lib>. See L<Prerequisites>. + +=head2 Problems with tr + +reported with very old version of tr. + +=head2 Some problem (forget which ;-) + +You have an older version of F<perl.dll> on your LIBPATH, which +broke the build of extensions. + +=head2 Library ... not found + +You did not run C<omflibs>. See L<Prerequisites>. + +=head2 Segfault in make + +You use an old version of GNU make. See L<Prerequisites>. + +=head1 Specific (mis)features of OS/2 port + +=head2 C<setpriority>, C<getpriority> + +Note that these functions are compatible with *nix, not with the older +ports of '94 - 95. The priorities are absolute, go from 32 to -95, +lower is quicker. 0 is the default priority. + +=head2 C<system()> + +Multi-argument form of C<system()> allows an additional numeric +argument. The meaning of this argument is described in +L<OS2::Process>. + +=head2 C<extproc> on the first line + +If the first chars of a script are C<"extproc ">, this line is treated +as C<#!>-line, thus all the switches on this line are processed (twice +if script was started via cmd.exe). + +=head2 Additional modules: + +L<OS2::Process>, L<OS2::REXX>, L<OS2::PrfDB>, L<OS2::ExtAttr>. This +modules provide access to additional numeric argument for C<system>, +to DLLs having functions with REXX signature and to REXX runtime, to +OS/2 databases in the F<.INI> format, and to Extended Attributes. + +Two additional extensions by Andreas Kaiser, C<OS2::UPM>, and +C<OS2::FTP>, are included into my ftp directory, mirrored on CPAN. + +=head2 Prebuilt methods: + +=over 4 + +=item C<File::Copy::syscopy> + +used by C<File::Copy::copy>, see L<File::Copy>. + +=item C<DynaLoader::mod2fname> + +used by C<DynaLoader> for DLL name mangling. + +=item C<Cwd::current_drive()> + +Self explanatory. + +=item C<Cwd::sys_chdir(name)> + +leaves drive as it is. + +=item C<Cwd::change_drive(name)> + + +=item C<Cwd::sys_is_absolute(name)> + +means has drive letter and is_rooted. + +=item C<Cwd::sys_is_rooted(name)> + +means has leading C<[/\\]> (maybe after a drive-letter:). + +=item C<Cwd::sys_is_relative(name)> + +means changes with current dir. + +=item C<Cwd::sys_cwd(name)> + +Interface to cwd from EMX. Used by C<Cwd::cwd>. + +=item C<Cwd::sys_abspath(name, dir)> + +Really really odious function to implement. Returns absolute name of +file which would have C<name> if CWD were C<dir>. C<Dir> defaults to the +current dir. + +=item C<Cwd::extLibpath([type]) + +Get current value of extended library search path. If C<type> is +present and I<true>, works with END_LIBPATH, otherwise with +C<BEGIN_LIBPATH>. + +=item C<Cwd::extLibpath_set( path [, type ] )> + +Set current value of extended library search path. If C<type> is +present and I<true>, works with END_LIBPATH, otherwise with +C<BEGIN_LIBPATH>. + +=back + +(Note that some of these may be moved to different libraries - +eventually). + + +=head2 Misfeatures + +=over 4 + +=item + +Since L<flock(3)> is present in EMX, but is not functional, it is +emulated by perl. To disable the emulations, set environment variable +C<USE_PERL_FLOCK=0>. + +=item + +Here is the list of things which may be "broken" on +EMX (from EMX docs): + +=over + +=item * + +The functions L<recvmsg(3)>, L<sendmsg(3)>, and L<socketpair(3)> are not +implemented. + +=item * + +L<sock_init(3)> is not required and not implemented. + +=item * + +L<flock(3)> is not yet implemented (dummy function). (Perl has a workaround.) + +=item * + +L<kill(3)>: Special treatment of PID=0, PID=1 and PID=-1 is not implemented. + +=item * + +L<waitpid(3)>: + + WUNTRACED + Not implemented. + waitpid() is not implemented for negative values of PID. + +=back + +Note that C<kill -9> does not work with the current version of EMX. + +=item + +Since F<sh.exe> is used for globing (see L<perlfunc/glob>), the bugs +of F<sh.exe> plague perl as well. + +In particular, uppercase letters do not work in C<[...]>-patterns with +the current pdksh. + +=back + +=head2 Modifications + +Perl modifies some standard C library calls in the following ways: + +=over 9 + +=item C<popen> + +C<my_popen> uses F<sh.exe> if shell is required, cf. L<"PERL_SH_DIR">. + +=item C<tmpnam> + +is created using C<TMP> or C<TEMP> environment variable, via +C<tempnam>. + +=item C<tmpfile> + +If the current directory is not writable, file is created using modified +C<tmpnam>, so there may be a race condition. + +=item C<ctermid> + +a dummy implementation. + +=item C<stat> + +C<os2_stat> special-cases F</dev/tty> and F</dev/con>. + +=item C<flock> + +Since L<flock(3)> is present in EMX, but is not functional, it is +emulated by perl. To disable the emulations, set environment variable +C<USE_PERL_FLOCK=0>. + +=back + +=head1 Perl flavors + +Because of idiosyncrasies of OS/2 one cannot have all the eggs in the +same basket (though EMX environment tries hard to overcome this +limitations, so the situation may somehow improve). There are 4 +executables for Perl provided by the distribution: + +=head2 F<perl.exe> + +The main workhorse. This is a chimera executable: it is compiled as an +C<a.out>-style executable, but is linked with C<omf>-style dynamic +library F<perl.dll>, and with dynamic CRT DLL. This executable is a +VIO application. + +It can load perl dynamic extensions, and it can fork(). Unfortunately, +with the current version of EMX it cannot fork() with dynamic +extensions loaded (may be fixed by patches to EMX). + +B<Note.> Keep in mind that fork() is needed to open a pipe to yourself. + +=head2 F<perl_.exe> + +This is a statically linked C<a.out>-style executable. It can fork(), +but cannot load dynamic Perl extensions. The supplied executable has a +lot of extensions prebuilt, thus there are situations when it can +perform tasks not possible using F<perl.exe>, like fork()ing when +having some standard extension loaded. This executable is a VIO +application. + +B<Note.> A better behaviour could be obtained from C<perl.exe> if it +were statically linked with standard I<Perl extensions>, but +dynamically linked with the I<Perl DLL> and CRT DLL. Then it would +be able to fork() with standard extensions, I<and> would be able to +dynamically load arbitrary extensions. Some changes to Makefiles and +hint files should be necessary to achieve this. + +I<This is also the only executable with does not require OS/2.> The +friends locked into C<M$> world would appreciate the fact that this +executable runs under DOS, Win0.3*, Win0.95 and WinNT with an +appropriate extender. See L<"Other OSes">. + +=head2 F<perl__.exe> + +This is the same executable as F<perl___.exe>, but it is a PM +application. + +B<Note.> Usually STDIN, STDERR, and STDOUT of a PM +application are redirected to C<nul>. However, it is possible to see +them if you start C<perl__.exe> from a PM program which emulates a +console window, like I<Shell mode> of Emacs or EPM. Thus it I<is +possible> to use Perl debugger (see L<perldebug>) to debug your PM +application. + +This flavor is required if you load extensions which use PM, like +the forthcoming C<Perl/Tk>. + +=head2 F<perl___.exe> + +This is an C<omf>-style executable which is dynamically linked to +F<perl.dll> and CRT DLL. I know no advantages of this executable +over C<perl.exe>, but it cannot fork() at all. Well, one advantage is +that the build process is not so convoluted as with C<perl.exe>. + +It is a VIO application. + +=head2 Why strange names? + +Since Perl processes the C<#!>-line (cf. +L<perlrun/DESCRIPTION>, L<perlrun/Switches>, +L<perldiag/"Not a perl script">, +L<perldiag/"No Perl script found in input">), it should know when a +program I<is a Perl>. There is some naming convention which allows +Perl to distinguish correct lines from wrong ones. The above names are +almost the only names allowed by this convention which do not contain +digits (which have absolutely different semantics). + +=head2 Why dynamic linking? + +Well, having several executables dynamically linked to the same huge +library has its advantages, but this would not substantiate the +additional work to make it compile. The reason is stupid-but-quick +"hard" dynamic linking used by OS/2. + +The address tables of DLLs are patched only once, when they are +loaded. The addresses of entry points into DLLs are guaranteed to be +the same for all programs which use the same DLL, which reduces the +amount of runtime patching - once DLL is loaded, its code is +read-only. + +While this allows some performance advantages, this makes life +terrible for developers, since the above scheme makes it impossible +for a DLL to be resolved to a symbol in the .EXE file, since this +would need a DLL to have different relocations tables for the +executables which use it. + +However, a Perl extension is forced to use some symbols from the perl +executable, say to know how to find the arguments provided on the perl +internal evaluation stack. The solution is that the main code of +interpreter should be contained in a DLL, and the F<.EXE> file just loads +this DLL into memory and supplies command-arguments. + +This I<greatly> increases the load time for the application (as well as +the number of problems during compilation). Since interpreter is in a DLL, +the CRT is basically forced to reside in a DLL as well (otherwise +extensions would not be able to use CRT). + +=head2 Why chimera build? + +Current EMX environment does not allow DLLs compiled using Unixish +C<a.out> format to export symbols for data. This forces C<omf>-style +compile of F<perl.dll>. + +Current EMX environment does not allow F<.EXE> files compiled in +C<omf> format to fork(). fork() is needed for exactly three Perl +operations: + +=over 4 + +=item explicit fork() + +in the script, and + +=item open FH, "|-" + +=item open FH, "-|" + +opening pipes to itself. + +=back + +While these operations are not questions of life and death, a lot of +useful scripts use them. This forces C<a.out>-style compile of +F<perl.exe>. + + +=head1 ENVIRONMENT + +Here we list environment variables with are either OS/2- and DOS- and +Win*-specific, or are more important under OS/2 than under other OSes. + +=head2 C<PERLLIB_PREFIX> + +Specific for EMX port. Should have the form + + path1;path2 + +or + + path1 path2 + +If the beginning of some prebuilt path matches F<path1>, it is +substituted with F<path2>. + +Should be used if the perl library is moved from the default +location in preference to C<PERL(5)LIB>, since this would not leave wrong +entries in @INC. Say, if the compiled version of perl looks for @INC +in F<f:/perllib/lib>, and you want to install the library in +F<h:/opt/gnu>, do + + set PERLLIB_PREFIX=f:/perllib/lib;h:/opt/gnu + +=head2 C<PERL_BADLANG> + +If 1, perl ignores setlocale() failing. May be useful with some +strange I<locale>s. + +=head2 C<PERL_BADFREE> + +If 1, perl would not warn of in case of unwarranted free(). May be +useful in conjunction with the module DB_File, since Berkeley DB +memory handling code is buggy. + +=head2 C<PERL_SH_DIR> + +Specific for EMX port. Gives the directory part of the location for +F<sh.exe>. + +=head2 C<USE_PERL_FLOCK> + +Specific for EMX port. Since L<flock(3)> is present in EMX, but is not +functional, it is emulated by perl. To disable the emulations, set +environment variable C<USE_PERL_FLOCK=0>. + +=head2 C<TMP> or C<TEMP> + +Specific for EMX port. Used as storage place for temporary files, most +notably C<-e> scripts. + +=head1 Evolution + +Here we list major changes which could make you by surprise. + +=head2 Priorities + +C<setpriority> and C<getpriority> are not compatible with earlier +ports by Andreas Kaiser. See C<"setpriority, getpriority">. + +=head2 DLL name mangling + +With the release 5.003_01 the dynamically loadable libraries +should be rebuilt. In particular, DLLs are now created with the names +which contain a checksum, thus allowing workaround for OS/2 scheme of +caching DLLs. + +=head2 Threading + +As of release 5.003_01 perl is linked to multithreaded CRT +DLL. Perl itself is not multithread-safe, as is not perl +malloc(). However, extensions may use multiple thread on their own +risk. + +Needed to compile C<Perl/Tk> for XFree86-OS/2 out-of-the-box. + +=head2 Calls to external programs + +Due to a popular demand the perl external program calling has been +changed wrt Andreas Kaiser's port. I<If> perl needs to call an +external program I<via shell>, the F<f:/bin/sh.exe> will be called, or +whatever is the override, see L<"PERL_SH_DIR">. + +Thus means that you need to get some copy of a F<sh.exe> as well (I +use one from pdksh). The drive F: above is set up automatically during +the build to a correct value on the builder machine, but is +overridable at runtime, + +B<Reasons:> a consensus on C<perl5-porters> was that perl should use +one non-overridable shell per platform. The obvious choices for OS/2 +are F<cmd.exe> and F<sh.exe>. Having perl build itself would be impossible +with F<cmd.exe> as a shell, thus I picked up C<sh.exe>. Thus assures almost +100% compatibility with the scripts coming from *nix. As an added benefit +this works as well under DOS if you use DOS-enabled port of pdksh +(see L<"Prerequisites">). + +B<Disadvantages:> currently F<sh.exe> of pdksh calls external programs +via fork()/exec(), and there is I<no> functioning exec() on +OS/2. exec() is emulated by EMX by asyncroneous call while the caller +waits for child completion (to pretend that the C<pid> did not change). This +means that 1 I<extra> copy of F<sh.exe> is made active via fork()/exec(), +which may lead to some resources taken from the system (even if we do +not count extra work needed for fork()ing). + +Note that this a lesser issue now when we do not spawn F<sh.exe> +unless needed (metachars found). + +One can always start F<cmd.exe> explicitly via + + system 'cmd', '/c', 'mycmd', 'arg1', 'arg2', ... + +If you need to use F<cmd.exe>, and do not want to hand-edit thousands of your +scripts, the long-term solution proposed on p5-p is to have a directive + + use OS2::Cmd; + +which will override system(), exec(), C<``>, and +C<open(,'...|')>. With current perl you may override only system(), +readpipe() - the explicit version of C<``>, and maybe exec(). The code +will substitute the one-argument call to system() by +C<CORE::system('cmd.exe', '/c', shift)>. + +If you have some working code for C<OS2::Cmd>, please send it to me, +I will include it into distribution. I have no need for such a module, so +cannot test it. + +=head2 Memory allocation + +Perl uses its own malloc() under OS/2 - interpreters are usually malloc-bound +for speed, but perl is not, since its malloc is lightning-fast. +Unfortunately, it is also quite frivolous with memory usage as well. + +Since kitchen-top machines are usually low on memory, perl is compiled with +all the possible memory-saving options. This probably makes perl's +malloc() as greedy with memory as the neighbor's malloc(), but still +much quickier. Note that this is true only for a "typical" usage, +it is possible that the perl malloc will be worse for some very special usage. + +Combination of perl's malloc() and rigid DLL name resolution creates +a special problem with library functions which expect their return value to +be free()d by system's free(). To facilitate extensions which need to call +such functions, system memory-allocation functions are still available with +the prefix C<emx_> added. (Currently only DLL perl has this, it should +propagate to F<perl_.exe> shortly.) + +=cut + +OS/2 extensions +~~~~~~~~~~~~~~~ +I include 3 extensions by Andreas Kaiser, OS2::REXX, OS2::UPM, and OS2::FTP, +into my ftp directory, mirrored on CPAN. I made +some minor changes needed to compile them by standard tools. I cannot +test UPM and FTP, so I will appreciate your feedback. Other extensions +there are OS2::ExtAttr, OS2::PrfDB for tied access to EAs and .INI +files - and maybe some other extensions at the time you read it. + +Note that OS2 perl defines 2 pseudo-extension functions +OS2::Copy::copy and DynaLoader::mod2fname (many more now, see +L<Prebuilt methods>). + +The -R switch of older perl is deprecated. If you need to call a REXX code +which needs access to variables, include the call into a REXX compartment +created by + REXX_call {...block...}; + +Two new functions are supported by REXX code, + REXX_eval 'string'; + REXX_eval_with 'string', REXX_function_name => \&perl_sub_reference; + +If you have some other extensions you want to share, send the code to +me. At least two are available: tied access to EA's, and tied access +to system databases. + +=head1 AUTHOR + +Ilya Zakharevich, ilya@math.ohio-state.edu + +=head1 SEE ALSO + +perl(1). + +=cut + diff --git a/gnu/usr.bin/perl/README.plan9 b/gnu/usr.bin/perl/README.plan9 new file mode 100644 index 00000000000..f10f1d9b920 --- /dev/null +++ b/gnu/usr.bin/perl/README.plan9 @@ -0,0 +1,27 @@ +WELCOME to Plan 9 Perl, brave soul! + This is a preliminary alpha version of Plan 9 Perl. Still to be implemented are MakeMaker and DynaLoader. Many perl commands are missing or currently behave in an inscrutable manner. These gaps will, with perserverance and a modicum of luck, be remedied in the near future.To install this software: + + 1. Create the source directories and libraries for perl by running the plan9/setup.rc command (i.e., located in the plan9 subdirectory). Note: the setup routine assumes that you haven't dearchived these files into /sys/src/cmd/perl. After running setup.rc you may delete the copy of the source you originally detarred, as source code has now been installed in /sys/src/cmd/perl. If you plan on installing perl binaries for all architectures, run "setup.rc -a". +After + 2. Making sure that you have adequate privileges to build system software, from /sys/src/cmd/perl/5.00301 run: +mk install + If you wish to install perl versions for all architectures (68020, mips, sparc and 386) run: +mk installall + + 3. Wait. The build process will take a *long* time because perl bootstraps itself. A 75MHz Pentium, 16MB RAM machine takes roughly 30 minutes to build the distribution from scratch. + +INSTALLING DOCUMENTATION +This perl distribution comes with a tremendous amount of documentation. To add these to the built-in manuals that come with Plan 9, from /sys/src/cmd/perl/5.00301 run: +mk man +To begin your reading, start with: +man perl +This is a good introduction and will direct you towards other man pages that may interest you. For information specific to Plan 9 Perl, try: +man perlplan9 + +(Note: "mk man" may produce some extraneous noise. Fear not.) + +Direct questions, comments, and the unlikely bug report (ahem) direct comments toward: +lutherh@stratcom.com + +Luther Huffman +Strategic Computer Solutions, Inc. diff --git a/gnu/usr.bin/perl/README.qnx b/gnu/usr.bin/perl/README.qnx new file mode 100644 index 00000000000..0cfe3533cac --- /dev/null +++ b/gnu/usr.bin/perl/README.qnx @@ -0,0 +1,22 @@ +README.qnx + +Please see hints/qnx.sh for more detailed information about compiling +perl under QNX4. + +The files in the "qnx" directory are: + + * "qnx/ar" is a script that emulates the standard unix archive (aka + library) utility. Under Watcom 10.6, ar is linked to wlib and + provides the expected interface. With Watcom 9.5, a cover function + is required. This one is fairly crude but has proved adequate for + compiling perl. A more thorough version is available at: + + http://www.fdma.com/pub/qnx/porting/ar + + * "qnx/cpp" is a script that provides C preprocessing functionality. + Configure can generate a similar cover, but it doesn't handle all + the command-line options that perl throws at it. This might be + reasonably placed in /usr/local/bin. + +-- +Norton T. Allen (allen@huarp.harvard.edu) diff --git a/gnu/usr.bin/perl/README.win32 b/gnu/usr.bin/perl/README.win32 new file mode 100644 index 00000000000..1f8dd07f5f6 --- /dev/null +++ b/gnu/usr.bin/perl/README.win32 @@ -0,0 +1,583 @@ +If you read this file _as_is_, just ignore the funny characters you +see. It is written in the POD format (see pod/perlpod.pod) which is +specially designed to be readable as is. + +=head1 NAME + +perlwin32 - Perl under Win32 + +=head1 SYNOPSIS + +These are instructions for building Perl under Windows NT (versions +3.51 or 4.0), using Visual C++ (versions 2.0 through 5.0) or Borland +C++ (version 5.x). Currently, this port may also build under Windows95, +but you can expect problems stemming from the unmentionable command +shell that infests that platform. Note this caveat is only about +B<building> perl. Once built, you should be able to B<use> it on +either Win32 platform (modulo the problems arising from the inferior +command shell). + +=head1 DESCRIPTION + +Before you start, you should glance through the README file +found in the top-level directory where the Perl distribution +was extracted. Make sure you read and understand the terms under +which this software is being distributed. + +Also make sure you read L<BUGS AND CAVEATS> below for the +known limitations of this port. + +The INSTALL file in the perl top-level has much information that is +only relevant to people building Perl on Unix-like systems. In +particular, you can safely ignore any information that talks about +"Configure". + +You may also want to look at two other options for building +a perl that will work on Windows NT: the README.cygwin32 and +README.os2 files, which each give a different set of rules to build +a Perl that will work on Win32 platforms. Those two methods will +probably enable you to build a more Unix-compatible perl, but you +will also need to download and use various other build-time and +run-time support software described in those files. + +This set of instructions is meant to describe a so-called "native" +port of Perl to Win32 platforms. The resulting Perl requires no +additional software to run (other than what came with your operating +system). Currently, this port is capable of using either the +Microsoft Visual C++ compiler, or the Borland C++ compiler. The +ultimate goal is to support the other major compilers that can +generally be used to build Win32 applications. + +This port currently supports MakeMaker (the set of modules that +is used to build extensions to perl). Therefore, you should be +able to build and install most extensions found in the CPAN sites. +See L<Usage Hints> below for general hints about this. + +=head2 Setting Up + +=over 4 + +=item Command Shell + +Use the default "cmd" shell that comes with NT. In particular, do +*not* use the 4DOS/NT shell. The Makefile has commands that are not +compatible with that shell. The Makefile also has known +incompatibilites with the default shell that comes with Windows95, +so building under Windows95 should be considered "unsupported". + +=item Borland C++ + +If you are using the Borland compiler, you will need dmake, a freely +available make that has very nice macro features and parallelability. +(The make that Borland supplies is seriously crippled, and will not +work for MakeMaker builds--if you *have* to bug someone about this, +I suggest you bug Borland to fix their make :) + +A port of dmake for win32 platforms is available from +"http://www-personal.umich.edu/~gsar/dmake-4.0-win32.tar.gz". +Fetch and install dmake somewhere on your path. Also make sure you +copy the Borland dmake.ini file to some location where you keep +*.ini files. If you use the binary that comes with the above port, you +will need to set INIT in your environment to the directory where you +put the dmake.ini file. + +=item Microsoft Visual C++ + +The NMAKE that comes with Visual C++ will suffice for building. +If you did not choose to always initialize the Visual C++ compilation +environment variables when you installed Visual C++ on your system, you +will need to run the VCVARS32.BAT file usually found somewhere like +C:\MSDEV4.2\BIN. This will set your build environment. + +You can also use dmake to build using Visual C++, provided: you +copied the dmake.ini for Visual C++; set INIT to point to the +directory where you put it, as above; and edit win32/config.vc +and change "make=nmake" to "make=dmake". The last step is only +essential if you want to use dmake to be your default make for +building extensions using MakeMaker. + +=item Permissions + +Depending on how you extracted the distribution, you have to make sure +some of the files are writable by you. The easiest way to make sure of +this is to execute: + + attrib -R *.* /S + +from the perl toplevel directory. You don't I<have> to do this if you +used the right tools to extract the files in the standard distribution, +but it doesn't hurt to do so. + +=back + +=head2 Building + +=over 4 + +=item * + +Make sure you are in the "win32" subdirectory under the perl toplevel. +This directory contains a "Makefile" that will work with +versions of NMAKE that come with Visual C++ ver. 2.0 and above, and +a dmake "makefile.mk" that will work for both Borland and Visual C++ +builds. The defaults in the dmake makefile are setup to build using the +Borland compiler. + +=item * + +Edit the Makefile (or makefile.mk, if using dmake) and change the values +of INST_DRV and INST_TOP if you want perl to be installed in a location +other than "C:\PERL". If you are using Visual C++ ver. 2.0, uncomment +the line that sets "CCTYPE=MSVC20". + +You will also have to make sure CCHOME points to wherever you installed +your compiler. + +=item * + +Type "nmake" (or "dmake" if you are using that make). + +This should build everything. Specifically, it will create perl.exe, +perl.dll, and perlglob.exe at the perl toplevel, and various other +extension dll's under the lib\auto directory. If the build fails for +any reason, make sure you have done the previous steps correctly. + +The build process may produce "harmless" compiler warnings (more or +less copiously, depending on how picky your compiler gets). The +maintainers are aware of these warnings, thankyouverymuch. :) + +When building using Visual C++, a perl95.exe will also get built. This +executable is only needed on Windows95, and should be used instead of +perl.exe, and then only if you want sockets to work properly on Windows95. +This is necessitated by a bug in the Microsoft C Runtime that cannot be +worked around in the "normal" perl.exe. Again, if this bugs you, please +bug Microsoft :). perl95.exe gets built with its own private copy of the +C Runtime that is not accessible to extensions (which see the DLL version +of the CRT). Be aware, therefore, that this perl95.exe will have +esoteric problems with extensions like perl/Tk that themselves use the C +Runtime heavily, or want to free() pointers malloc()-ed by perl. + +You can avoid the perl95.exe problems completely if you use Borland +C++ for building perl (perl95.exe is not needed and will not be built +in that case). + +=back + +=head2 Testing + +Type "nmake test" (or "dmake test"). This will run most of the tests from +the testsuite (many tests will be skipped, and but no test should fail). + +If some tests do fail, it may be because you are using a different command +shell than the native "cmd.exe". + +If you used the Borland compiler, you may see a failure in op/taint.t +arising from the inability to find the Borland Runtime DLLs on the system +default path. You will need to copy the DLLs reported by the messages +from where Borland chose to install it, into the Windows system directory +(usually somewhere like C:\WINNT\SYSTEM32), and rerun the test. + +Please report any other failures as described under L<BUGS AND CAVEATS>. + +=head2 Installation + +Type "nmake install" (or "dmake install"). This will put the newly +built perl and the libraries under "C:\perl" (actually whatever you set +C<INST_TOP> to in the Makefile). It will also install the pod +documentation under C<$INST_TOP\lib\pod> and HTML versions of the same +under C<$INST_TOP\lib\pod\html>. To use the Perl you just installed, +set your PATH environment variable to "C:\perl\bin" (or C<$INST_TOP\bin>, +if you changed the default as above). + +=head2 Usage Hints + +=over 4 + +=item Environment Variables + +The installation paths that you set during the build get compiled +into perl, so you don't have to do anything additional to start +using that perl (except add its location to your PATH variable). + +If you put extensions in unusual places, you can set PERL5LIB +to a list of paths separated by semicolons where you want perl +to look for libraries. Look for descriptions of other environment +variables you can set in the perlrun podpage. + +Sometime in the future, some of the configuration information +for perl will be moved into the Windows registry. + +=item File Globbing + +By default, perl spawns an external program to do file globbing. +The install process installs both a perlglob.exe and a perlglob.bat +that perl can use for this purpose. Note that with the default +installation, perlglob.exe will be found by the system before +perlglob.bat. + +perlglob.exe relies on the argv expansion done by the C Runtime of +the particular compiler you used, and therefore behaves very +differently depending on the Runtime used to build it. To preserve +compatiblity, perlglob.bat (a perl script/module that can be +used portably) is installed. Besides being portable, perlglob.bat +also offers enhanced globbing functionality. + +If you want perl to use perlglob.bat instead of perlglob.exe, just +delete perlglob.exe from the install location (or move it somewhere +perl cannot find). Using File::DosGlob.pm (which is the same +as perlglob.bat) to override the internal CORE::glob() works about 10 +times faster than spawing perlglob.exe, and you should take this +approach when writing new modules. See File::DosGlob for details. + +=item Using perl from the command line + +If you are accustomed to using perl from various command-line +shells found in UNIX environments, you will be less than pleased +with what Windows NT offers by way of a command shell. + +The crucial thing to understand about the "cmd" shell (which is +the default on Windows NT) is that it does not do any wildcard +expansions of command-line arguments (so wildcards need not be +quoted). It also provides only rudimentary quoting. The only +(useful) quote character is the double quote ("). It can be used to +protect spaces in arguments and other special characters. The +Windows NT documentation has almost no description of how the +quoting rules are implemented, but here are some general observations +based on experiments: The shell breaks arguments at spaces and +passes them to programs in argc/argv. Doublequotes can be used +to prevent arguments with spaces in them from being split up. +You can put a double quote in an argument by escaping it with +a backslash and enclosing the whole argument within double quotes. +The backslash and the pair of double quotes surrounding the +argument will be stripped by the shell. + +The file redirection characters "<", ">", and "|" cannot be quoted +by double quotes (there are probably more such). Single quotes +will protect those three file redirection characters, but the +single quotes don't get stripped by the shell (just to make this +type of quoting completely useless). The caret "^" has also +been observed to behave as a quoting character (and doesn't get +stripped by the shell also). + +Here are some examples of usage of the "cmd" shell: + +This prints two doublequotes: + + perl -e "print '\"\"' " + +This does the same: + + perl -e "print \"\\\"\\\"\" " + +This prints "bar" and writes "foo" to the file "blurch": + + perl -e "print 'foo'; print STDERR 'bar'" > blurch + +This prints "foo" ("bar" disappears into nowhereland): + + perl -e "print 'foo'; print STDERR 'bar'" 2> nul + +This prints "bar" and writes "foo" into the file "blurch": + + perl -e "print 'foo'; print STDERR 'bar'" 1> blurch + +This pipes "foo" to the "less" pager and prints "bar" on the console: + + perl -e "print 'foo'; print STDERR 'bar'" | less + +This pipes "foo\nbar\n" to the less pager: + + perl -le "print 'foo'; print STDERR 'bar'" 2>&1 | less + +This pipes "foo" to the pager and writes "bar" in the file "blurch": + + perl -e "print 'foo'; print STDERR 'bar'" 2> blurch | less + + +Discovering the usefulness of the "command.com" shell on Windows95 +is left as an exercise to the reader :) + +=item Building Extensions + +The Comprehensive Perl Archive Network (CPAN) offers a wealth +of extensions, some of which require a C compiler to build. +Look in http://www.perl.com/ for more information on CPAN. + +Most extensions (whether they require a C compiler or not) can +be built, tested and installed with the standard mantra: + + perl Makefile.PL + $MAKE + $MAKE test + $MAKE install + +where $MAKE stands for NMAKE or DMAKE. Some extensions may not +provide a testsuite (so "$MAKE test" may not do anything, or fail), +but most serious ones do. + +If a module implements XSUBs, you will need one of the supported +C compilers. You must make sure you have set up the environment for +the compiler for command-line compilation. + +If a module does not build for some reason, look carefully for +why it failed, and report problems to the module author. If +it looks like the extension building support is at fault, report +that with full details of how the build failed using the perlbug +utility. + +=item Win32 Specific Extensions + +A number of extensions specific to the Win32 platform are available +from CPAN. You may find that many of these extensions are meant to +be used under the Activeware port of Perl, which used to be the only +native port for the Win32 platform. Since the Activeware port does not +have adequate support for Perl's extension building tools, these +extensions typically do not support those tools either, and therefore +cannot be built using the generic steps shown in the previous section. + +To ensure smooth transitioning of existing code that uses the +Activeware port, there is a bundle of Win32 extensions that contains +all of the Activeware extensions and most other Win32 extensions from +CPAN in source form, along with many added bugfixes, and with MakeMaker +support. This bundle is available at: + + http://www.perl.com/CPAN/authors/id/GSAR/libwin32-0.08.tar.gz + +See the README in that distribution for building and installation +instructions. Look for later versions that may be available at the +same location. + +It is expected that authors of Win32 specific extensions will begin +distributing their work in MakeMaker compatible form subsequent to +the 5.004 release of perl, at which point the need for a dedicated +bundle such as the above should diminish. + +=item Running Perl Scripts + +Perl scripts on UNIX use the "#!" (a.k.a "shebang") line to +indicate to the OS that it should execute the file using perl. +Win32 has no comparable means to indicate arbitrary files are +executables. + +Instead, all available methods to execute plain text files on +Win32 rely on the file "extension". There are three methods +to use this to execute perl scripts: + +=over 8 + +=item 1 + +There is a facility called "file extension associations" that will +work in Windows NT 4.0. This can be manipulated via the two +commands "assoc" and "ftype" that come standard with Windows NT +4.0. Type "ftype /?" for a complete example of how to set this +up for perl scripts (Say what? You thought Windows NT wasn't +perl-ready? :). + +=item 2 + +Since file associations don't work everywhere, and there are +reportedly bugs with file associations where it does work, the +old method of wrapping the perl script to make it look like a +regular batch file to the OS, may be used. The install process +makes available the "pl2bat.bat" script which can be used to wrap +perl scripts into batch files. For example: + + pl2bat foo.pl + +will create the file "FOO.BAT". Note "pl2bat" strips any +.pl suffix and adds a .bat suffix to the generated file. + +If you use the 4DOS/NT or similar command shell, note that +"pl2bat" uses the "%*" variable in the generated batch file to +refer to all the command line arguments, so you may need to make +sure that construct works in batch files. As of this writing, +4DOS/NT users will need a "ParameterChar = *" statement in their +4NT.INI file, or will need to execute "setdos /p*" in the 4DOS/NT +startup file to enable this to work. + +=item 3 + +Using "pl2bat" has a few problems: the file name gets changed, +so scripts that rely on C<$0> to find what they must do may not +run properly; running "pl2bat" replicates the contents of the +original script, and so this process can be maintenance intensive +if the originals get updated often. A different approach that +avoids both problems is possible. + +A script called "runperl.bat" is available that can be copied +to any filename (along with the .bat suffix). For example, +if you call it "foo.bat", it will run the file "foo" when it is +executed. Since you can run batch files on Win32 platforms simply +by typing the name (without the extension), this effectively +runs the file "foo", when you type either "foo" or "foo.bat". +With this method, "foo.bat" can even be in a different location +than the file "foo", as long as "foo" is available somewhere on +the PATH. If your scripts are on a filesystem that allows symbolic +links, you can even avoid copying "runperl.bat". + +Here's a diversion: copy "runperl.bat" to "runperl", and type +"runperl". Explain the observed behavior, or lack thereof. :) +Hint: .gnidnats llits er'uoy fi ,"lrepnur" eteled :tniH + +=back + +=item Miscellaneous Things + +A full set of HTML documentation is installed, so you should be +able to use it if you have a web browser installed on your +system. + +C<perldoc> is also a useful tool for browsing information contained +in the documentation, especially in conjunction with a pager +like C<less> (recent versions of which have Win32 support). You may +have to set the PAGER environment variable to use a specific pager. +"perldoc -f foo" will print information about the perl operator +"foo". + +If you find bugs in perl, you can run C<perlbug> to create a +bug report (you may have to send it manually if C<perlbug> cannot +find a mailer on your system). + +=back + +=head1 BUGS AND CAVEATS + +This port should be considered beta quality software at the present +time because some details are still in flux and there may be +changes in any of these areas: build process, installation structure, +supported utilities/modules, and supported perl functionality. +In particular, functionality specific to the Win32 environment may +ultimately be supported as either core modules or extensions. The +beta status implies, among other things, that you should be prepared +to recompile extensions when binary incompatibilites arise due to +changes in the internal structure of the code. + +An effort has been made to ensure that the DLLs produced by the two +supported compilers are compatible with each other (despite the +best efforts of the compiler vendors). Extension binaries produced +by one compiler should also coexist with a perl binary built by +a different compiler. In order to accomplish this, PERL.DLL provides +a layer of runtime code that uses the C Runtime that perl was compiled +with. Extensions which include "perl.h" will transparently access +the functions in this layer, thereby ensuring that both perl and +extensions use the same runtime functions. + +If you have had prior exposure to Perl on Unix platforms, you will notice +this port exhibits behavior different from what is documented. Most of the +differences fall under one of these categories. We do not consider +any of them to be serious limitations (especially when compared to the +limited nature of some of the Win32 OSes themselves :) + +=over 8 + +=item * + +C<stat()> and C<lstat()> functions may not behave as documented. They +may return values that bear no resemblance to those reported on Unix +platforms, and some fields (like the the one for inode) may be completely +bogus. + +=item * + +The following functions are currently unavailable: C<fork()>, +C<dump()>, C<chown()>, C<link()>, C<symlink()>, C<chroot()>, +C<setpgrp()>, C<getpgrp()>, C<setpriority()>, C<getpriority()>, +C<syscall()>, C<fcntl()>. This list is possibly very incomplete. + +=item * + +crypt() is not available due to silly export restrictions. It may +become available when the laws change. Meanwhile, look in CPAN for +extensions that provide it. + +=item * + +Various C<socket()> related calls are supported, but they may not +behave as on Unix platforms. + +=item * + +The four-argument C<select()> call is only supported on sockets. + +=item * + +C<$?> ends up with the exitstatus of the subprocess (this is different +from Unix, where the exitstatus is actually given by "$? >> 8"). +Failure to spawn() the subprocess is indicated by setting $? to +"255<<8". This is subject to change. + +=item * + +Building modules available on CPAN is mostly supported, but this +hasn't been tested much yet. Expect strange problems, and be +prepared to deal with the consequences. + +=item * + +C<utime()>, C<times()> and process-related functions may not +behave as described in the documentation, and some of the +returned values or effects may be bogus. + +=item * + +Signal handling may not behave as on Unix platforms (where it +doesn't exactly "behave", either :). For instance, calling C<die()> +or C<exit()> from signal handlers will cause an exception, since most +implementations of C<signal()> on Win32 are severely crippled. +Thus, signals may work only for simple things like setting a flag +variable in the handler. Using signals under this port should +currently be considered unsupported. + +=item * + +File globbing may not behave as on Unix platforms. In particular, +if you don't use perlglob.bat for globbing, it will understand +wildcards only in the filename component (and not in the pathname). +In other words, something like "print <*/*.pl>" will not print all the +perl scripts in all the subdirectories one level under the current one +(like it does on UNIX platforms). perlglob.exe is also dependent on +the particular implementation of wildcard expansion in the vendor +libraries used to build it (which varies wildly at the present time). +Using perlglob.bat (or File::DosGlob) avoids these limitations, but +still only provides DOS semantics (read "warts") for globbing. + +=back + +Please send detailed descriptions of any problems and solutions that +you may find to <F<perlbug@perl.com>>, along with the output produced +by C<perl -V>. + +=head1 AUTHORS + +=over 4 + +Gary Ng E<lt>71564.1743@CompuServe.COME<gt> + +Gurusamy Sarathy E<lt>gsar@umich.eduE<gt> + +Nick Ing-Simmons E<lt>nick@ni-s.u-net.comE<gt> + +=back + +This document is maintained by Gurusamy Sarathy. + +=head1 SEE ALSO + +L<perl> + +=head1 HISTORY + +This port was originally contributed by Gary Ng around 5.003_24, +and borrowed from the Hip Communications port that was available +at the time. + +Nick Ing-Simmons and Gurusamy Sarathy have made numerous and +sundry hacks since then. + +Borland support was added in 5.004_01 (Gurusamy Sarathy). + +Last updated: 25 July 1997 + +=cut + diff --git a/gnu/usr.bin/perl/configure.gnu b/gnu/usr.bin/perl/configure.gnu new file mode 100644 index 00000000000..fa465320940 --- /dev/null +++ b/gnu/usr.bin/perl/configure.gnu @@ -0,0 +1,124 @@ +#! /bin/sh +# +# $Id: configure,v 3.0.1.1 1995/07/25 14:16:21 ram Exp $ +# +# GNU configure-like front end to metaconfig's Configure. +# +# Written by Andy Dougherty <doughera@lafcol.lafayette.edu> +# and Matthew Green <mrg@mame.mu.oz.au>. +# +# Reformatted and modified for inclusion in the dist-3.0 package by +# Raphael Manfredi <ram@hptnos02.grenoble.hp.com>. +# +# This script belongs to the public domain and may be freely redistributed. +# +# The remaining of this leading shell comment may be removed if you +# include this script in your own package. +# +# $Log: configure,v $ +# Revision 3.0.1.1 1995/07/25 14:16:21 ram +# patch56: created +# + +(exit $?0) || exec sh $0 $argv:q + +case "$0" in +*configure) + if cmp $0 `echo $0 | sed -e s/configure/Configure/` >/dev/null; then + echo "Your configure and Configure scripts seem to be identical." + echo "This can happen on filesystems that aren't fully case sensitive." + echo "You'll have to explicitly extract Configure and run that." + exit 1 + fi + ;; +esac + +opts='' +verbose='' +create='-e' +while test $# -gt 0; do + case $1 in + --help) + cat <<EOM +Usage: configure.gnu [options] +This is GNU configure-like front end for a metaconfig-generated Configure. +It emulates the following GNU configure options (must be fully spelled out): + --help + --no-create + --prefix=PREFIX + --cache-file (ignored) + --quiet + --silent + --verbose + --version + +And it honours these environment variables: CC, CFLAGS and DEFS. +EOM + exit 0 + ;; + --no-create) + create='-E' + shift + ;; + --prefix=*) + arg=`echo $1 | sed 's/--prefix=/-Dprefix=/'` + opts="$opts $arg" + shift + ;; + --cache-file=*) + shift # Just ignore it. + ;; + --quiet|--silent) + exec >/dev/null 2>&1 + shift + ;; + --verbose) + verbose=true + shift + ;; + --version) + copt="$copt -V" + shift + ;; + --*) + opt=`echo $1 | sed 's/=.*//'` + echo "This GNU configure front end does not understand $opt" + exit 1 + ;; + *) + opts="$opts $1" + shift + ;; + esac +done + +case "$CC" in +'') ;; +*) opts="$opts -Dcc='$CC'";; +esac + +# Join DEFS and CFLAGS together. +ccflags='' +case "$DEFS" in +'') ;; +*) ccflags=$DEFS;; +esac +case "$CFLAGS" in +'') ;; +*) ccflags="$ccflags $CFLAGS";; +esac +case "$ccflags" in +'') ;; +*) opts="$opts -Dccflags='$ccflags'";; +esac + +# Don't use -s if they want verbose mode +case "$verbose" in +'') copt="$copt -ds";; +*) copt="$copt -d";; +esac + +set X sh Configure $copt $create $opts +shift +echo "$@" +exec "$@" diff --git a/gnu/usr.bin/perl/cygwin32/cw32imp.h b/gnu/usr.bin/perl/cygwin32/cw32imp.h new file mode 100644 index 00000000000..1fb11d3e03c --- /dev/null +++ b/gnu/usr.bin/perl/cygwin32/cw32imp.h @@ -0,0 +1,356 @@ +/* include file for building of extension libs using GNU-Win32 toolkit, + which is based on the Cygnus Cygwin32 API. This file is included by + the extension dlls when they are built. Global vars defined in perl + exe are referenced by the extension module dll by using __imp_varName, + where varName is the name of the global variable in perl.exe. + GNU-Win32 has no equivalent to MSVC's __declspec(dllimport) keyword to + define a imported global, so we have to use this approach to access + globals exported by perl.exe. + -jc 4/1/97 +*/ + +#define impure_setupptr (*__imp_impure_setupptr) +#define Perl_reall_srchlen (*__imp_Perl_reall_srchlen) +#define Perl_yychar (*__imp_Perl_yychar) +#define Perl_yycheck (*__imp_Perl_yycheck) +#define Perl_yydebug (*__imp_Perl_yydebug) +#define Perl_yydefred (*__imp_Perl_yydefred) +#define Perl_yydgoto (*__imp_Perl_yydgoto) +#define Perl_yyerrflag (*__imp_Perl_yyerrflag) +#define Perl_yygindex (*__imp_Perl_yygindex) +#define Perl_yylen (*__imp_Perl_yylen) +#define Perl_yylhs (*__imp_Perl_yylhs) +#define Perl_yylval (*__imp_Perl_yylval) +#define Perl_yynerrs (*__imp_Perl_yynerrs) +#define Perl_yyrindex (*__imp_Perl_yyrindex) +#define Perl_yysindex (*__imp_Perl_yysindex) +#define Perl_yytable (*__imp_Perl_yytable) +#define Perl_yyval (*__imp_Perl_yyval) +#define Perl_regarglen (*__imp_Perl_regarglen) +#define Perl_regdummy (*__imp_Perl_regdummy) +#define Perl_regkind (*__imp_Perl_regkind) +#define Perl_simple (*__imp_Perl_simple) +#define Perl_varies (*__imp_Perl_varies) +#define Perl_watchaddr (*__imp_Perl_watchaddr) +#define Perl_watchok (*__imp_Perl_watchok) +#define Argv (*__imp_Argv) +#define Cmd (*__imp_Cmd) +#define DBgv (*__imp_DBgv) +#define DBline (*__imp_DBline) +#define DBsignal (*__imp_DBsignal) +#define DBsingle (*__imp_DBsingle) +#define DBsub (*__imp_DBsub) +#define DBtrace (*__imp_DBtrace) +#define Error (*__imp_Error) +#define Perl_AMG_names (*__imp_Perl_AMG_names) +#define Perl_No (*__imp_Perl_No) +#define Perl_Sv (*__imp_Perl_Sv) +#define Perl_Xpv (*__imp_Perl_Xpv) +#define Perl_Yes (*__imp_Perl_Yes) +#define Perl_amagic_generation (*__imp_Perl_amagic_generation) +#define Perl_an (*__imp_Perl_an) +#define Perl_buf (*__imp_Perl_buf) +#define Perl_bufend (*__imp_Perl_bufend) +#define Perl_bufptr (*__imp_Perl_bufptr) +#define Perl_check (*__imp_Perl_check) +#define Perl_collation_ix (*__imp_Perl_collation_ix) +#define Perl_collation_name (*__imp_Perl_collation_name) +#define Perl_collation_standard (*__imp_Perl_collation_standard) +#define Perl_collxfrm_base (*__imp_Perl_collxfrm_base) +#define Perl_collxfrm_mult (*__imp_Perl_collxfrm_mult) +#define Perl_compcv (*__imp_Perl_compcv) +#define Perl_compiling (*__imp_Perl_compiling) +#define Perl_comppad (*__imp_Perl_comppad) +#define Perl_comppad_name (*__imp_Perl_comppad_name) +#define Perl_comppad_name_fill (*__imp_Perl_comppad_name_fill) +#define Perl_cop_seqmax (*__imp_Perl_cop_seqmax) +#define Perl_curcop (*__imp_Perl_curcop) +#define Perl_curcopdb (*__imp_Perl_curcopdb) +#define Perl_curinterp (*__imp_Perl_curinterp) +#define Perl_curpad (*__imp_Perl_curpad) +#define Perl_dc (*__imp_Perl_dc) +#define Perl_di (*__imp_Perl_di) +#define Perl_ds (*__imp_Perl_ds) +#define Perl_egid (*__imp_Perl_egid) +#define Perl_envgv (*__imp_Perl_envgv) +#define Perl_error_count (*__imp_Perl_error_count) +#define Perl_euid (*__imp_Perl_euid) +#define Perl_evalseq (*__imp_Perl_evalseq) +#define Perl_expect (*__imp_Perl_expect) +#define Perl_fold_locale (*__imp_Perl_fold_locale) +#define Perl_gid (*__imp_Perl_gid) +#define Perl_he_root (*__imp_Perl_he_root) +#define Perl_hexdigit (*__imp_Perl_hexdigit) +#define Perl_hints (*__imp_Perl_hints) +#define Perl_in_my (*__imp_Perl_in_my) +#define Perl_last_lop (*__imp_Perl_last_lop) +#define Perl_last_lop_op (*__imp_Perl_last_lop_op) +#define Perl_last_uni (*__imp_Perl_last_uni) +#define Perl_lex_brackets (*__imp_Perl_lex_brackets) +#define Perl_lex_brackstack (*__imp_Perl_lex_brackstack) +#define Perl_lex_casemods (*__imp_Perl_lex_casemods) +#define Perl_lex_casestack (*__imp_Perl_lex_casestack) +#define Perl_lex_defer (*__imp_Perl_lex_defer) +#define Perl_lex_dojoin (*__imp_Perl_lex_dojoin) +#define Perl_lex_expect (*__imp_Perl_lex_expect) +#define Perl_lex_fakebrack (*__imp_Perl_lex_fakebrack) +#define Perl_lex_formbrack (*__imp_Perl_lex_formbrack) +#define Perl_lex_inpat (*__imp_Perl_lex_inpat) +#define Perl_lex_inwhat (*__imp_Perl_lex_inwhat) +#define Perl_lex_op (*__imp_Perl_lex_op) +#define Perl_lex_repl (*__imp_Perl_lex_repl) +#define Perl_lex_starts (*__imp_Perl_lex_starts) +#define Perl_lex_state (*__imp_Perl_lex_state) +#define Perl_lex_stuff (*__imp_Perl_lex_stuff) +#define Perl_linestr (*__imp_Perl_linestr) +#define Perl_markstack (*__imp_Perl_markstack) +#define Perl_markstack_max (*__imp_Perl_markstack_max) +#define Perl_markstack_ptr (*__imp_Perl_markstack_ptr) +#define Perl_max_intro_pending (*__imp_Perl_max_intro_pending) +#define Perl_maxo (*__imp_Perl_maxo) +#define Perl_min_intro_pending (*__imp_Perl_min_intro_pending) +#define Perl_multi_close (*__imp_Perl_multi_close) +#define Perl_multi_end (*__imp_Perl_multi_end) +#define Perl_multi_open (*__imp_Perl_multi_open) +#define Perl_multi_start (*__imp_Perl_multi_start) +#define Perl_na (*__imp_Perl_na) +#define Perl_nexttoke (*__imp_Perl_nexttoke) +#define Perl_nexttype (*__imp_Perl_nexttype) +#define Perl_nextval (*__imp_Perl_nextval) +#define Perl_nomemok (*__imp_Perl_nomemok) +#define Perl_numeric_local (*__imp_Perl_numeric_local) +#define Perl_numeric_name (*__imp_Perl_numeric_name) +#define Perl_numeric_standard (*__imp_Perl_numeric_standard) +#define Perl_oldbufptr (*__imp_Perl_oldbufptr) +#define Perl_oldoldbufptr (*__imp_Perl_oldoldbufptr) +#define Perl_op (*__imp_Perl_op) +#define Perl_op_desc (*__imp_Perl_op_desc) +#define Perl_op_name (*__imp_Perl_op_name) +#define Perl_op_seqmax (*__imp_Perl_op_seqmax) +#define Perl_opargs (*__imp_Perl_opargs) +#define Perl_origalen (*__imp_Perl_origalen) +#define Perl_origenviron (*__imp_Perl_origenviron) +#define Perl_osname (*__imp_Perl_osname) +#define Perl_padix (*__imp_Perl_padix) +#define Perl_patleave (*__imp_Perl_patleave) +#define Perl_pidstatus (*__imp_Perl_pidstatus) +#define Perl_ppaddr (*__imp_Perl_ppaddr) +#define Perl_profiledata (*__imp_Perl_profiledata) +#define Perl_psig_name (*__imp_Perl_psig_name) +#define Perl_psig_ptr (*__imp_Perl_psig_ptr) +#define Perl_regbol (*__imp_Perl_regbol) +#define Perl_regcode (*__imp_Perl_regcode) +#define Perl_regendp (*__imp_Perl_regendp) +#define Perl_regeol (*__imp_Perl_regeol) +#define Perl_reginput (*__imp_Perl_reginput) +#define Perl_reglastparen (*__imp_Perl_reglastparen) +#define Perl_regnaughty (*__imp_Perl_regnaughty) +#define Perl_regnpar (*__imp_Perl_regnpar) +#define Perl_regparse (*__imp_Perl_regparse) +#define Perl_regprecomp (*__imp_Perl_regprecomp) +#define Perl_regprev (*__imp_Perl_regprev) +#define Perl_regsawback (*__imp_Perl_regsawback) +#define Perl_regsize (*__imp_Perl_regsize) +#define Perl_regstartp (*__imp_Perl_regstartp) +#define Perl_regtill (*__imp_Perl_regtill) +#define Perl_regxend (*__imp_Perl_regxend) +#define Perl_retstack (*__imp_Perl_retstack) +#define Perl_retstack_ix (*__imp_Perl_retstack_ix) +#define Perl_retstack_max (*__imp_Perl_retstack_max) +#define Perl_rsfp (*__imp_Perl_rsfp) +#define Perl_rsfp_filters (*__imp_Perl_rsfp_filters) +#define Perl_savestack (*__imp_Perl_savestack) +#define Perl_savestack_ix (*__imp_Perl_savestack_ix) +#define Perl_savestack_max (*__imp_Perl_savestack_max) +#define Perl_scopestack (*__imp_Perl_scopestack) +#define Perl_scopestack_ix (*__imp_Perl_scopestack_ix) +#define Perl_scopestack_max (*__imp_Perl_scopestack_max) +#define Perl_scrgv (*__imp_Perl_scrgv) +#define Perl_sh_path (*__imp_Perl_sh_path) +#define Perl_sig_name (*__imp_Perl_sig_name) +#define Perl_sig_num (*__imp_Perl_sig_num) +#define Perl_siggv (*__imp_Perl_siggv) +#define Perl_stack_base (*__imp_Perl_stack_base) +#define Perl_stack_max (*__imp_Perl_stack_max) +#define Perl_stack_sp (*__imp_Perl_stack_sp) +#define Perl_statbuf (*__imp_Perl_statbuf) +#define Perl_sub_generation (*__imp_Perl_sub_generation) +#define Perl_subline (*__imp_Perl_subline) +#define Perl_subname (*__imp_Perl_subname) +#define Perl_sv_no (*__imp_Perl_sv_no) +#define Perl_sv_undef (*__imp_Perl_sv_undef) +#define Perl_sv_yes (*__imp_Perl_sv_yes) +#define Perl_tainting (*__imp_Perl_tainting) +#define Perl_thisexpr (*__imp_Perl_thisexpr) +#define Perl_timesbuf (*__imp_Perl_timesbuf) +#define Perl_tokenbuf (*__imp_Perl_tokenbuf) +#define Perl_uid (*__imp_Perl_uid) +#define Perl_vert (*__imp_Perl_vert) +#define Perl_vtbl_amagic (*__imp_Perl_vtbl_amagic) +#define Perl_vtbl_amagicelem (*__imp_Perl_vtbl_amagicelem) +#define Perl_vtbl_arylen (*__imp_Perl_vtbl_arylen) +#define Perl_vtbl_bm (*__imp_Perl_vtbl_bm) +#define Perl_vtbl_collxfrm (*__imp_Perl_vtbl_collxfrm) +#define Perl_vtbl_dbline (*__imp_Perl_vtbl_dbline) +#define Perl_vtbl_env (*__imp_Perl_vtbl_env) +#define Perl_vtbl_envelem (*__imp_Perl_vtbl_envelem) +#define Perl_vtbl_fm (*__imp_Perl_vtbl_fm) +#define Perl_vtbl_glob (*__imp_Perl_vtbl_glob) +#define Perl_vtbl_isa (*__imp_Perl_vtbl_isa) +#define Perl_vtbl_isaelem (*__imp_Perl_vtbl_isaelem) +#define Perl_vtbl_itervar (*__imp_Perl_vtbl_itervar) +#define Perl_vtbl_mglob (*__imp_Perl_vtbl_mglob) +#define Perl_vtbl_nkeys (*__imp_Perl_vtbl_nkeys) +#define Perl_vtbl_pack (*__imp_Perl_vtbl_pack) +#define Perl_vtbl_packelem (*__imp_Perl_vtbl_packelem) +#define Perl_vtbl_pos (*__imp_Perl_vtbl_pos) +#define Perl_vtbl_sig (*__imp_Perl_vtbl_sig) +#define Perl_vtbl_sigelem (*__imp_Perl_vtbl_sigelem) +#define Perl_vtbl_substr (*__imp_Perl_vtbl_substr) +#define Perl_vtbl_sv (*__imp_Perl_vtbl_sv) +#define Perl_vtbl_taint (*__imp_Perl_vtbl_taint) +#define Perl_vtbl_uvar (*__imp_Perl_vtbl_uvar) +#define Perl_vtbl_vec (*__imp_Perl_vtbl_vec) +#define Perl_xiv_arenaroot (*__imp_Perl_xiv_arenaroot) +#define Perl_xiv_root (*__imp_Perl_xiv_root) +#define Perl_xnv_root (*__imp_Perl_xnv_root) +#define Perl_xpv_root (*__imp_Perl_xpv_root) +#define Perl_xrv_root (*__imp_Perl_xrv_root) +#define ampergv (*__imp_ampergv) +#define argvgv (*__imp_argvgv) +#define argvoutgv (*__imp_argvoutgv) +#define basetime (*__imp_basetime) +#define beginav (*__imp_beginav) +#define bodytarget (*__imp_bodytarget) +#define cddir (*__imp_cddir) +#define chopset (*__imp_chopset) +#define comppad_name_floor (*__imp_comppad_name_floor) +#define copline (*__imp_copline) +#define curpm (*__imp_curpm) +#define curstack (*__imp_curstack) +#define curstash (*__imp_curstash) +#define curstname (*__imp_curstname) +#define cxstack (*__imp_cxstack) +#define cxstack_ix (*__imp_cxstack_ix) +#define cxstack_max (*__imp_cxstack_max) +#define dbargs (*__imp_dbargs) +#define debdelim (*__imp_debdelim) +#define debname (*__imp_debname) +#define debstash (*__imp_debstash) +#define debug (*__imp_debug) +#define defgv (*__imp_defgv) +#define defoutgv (*__imp_defoutgv) +#define defstash (*__imp_defstash) +#define delaymagic (*__imp_delaymagic) +#define diehook (*__imp_diehook) +#define dirty (*__imp_dirty) +#define dlevel (*__imp_dlevel) +#define dlmax (*__imp_dlmax) +#define do_undump (*__imp_do_undump) +#define doextract (*__imp_doextract) +#define doswitches (*__imp_doswitches) +#define dowarn (*__imp_dowarn) +#define dumplvl (*__imp_dumplvl) +#define e_fp (*__imp_e_fp) +#define e_tmpname (*__imp_e_tmpname) +#define endav (*__imp_endav) +#define errgv (*__imp_errgv) +#define eval_root (*__imp_eval_root) +#define eval_start (*__imp_eval_start) +#define fdpid (*__imp_fdpid) +#define filemode (*__imp_filemode) +#define firstgv (*__imp_firstgv) +#define forkprocess (*__imp_forkprocess) +#define formfeed (*__imp_formfeed) +#define formtarget (*__imp_formtarget) +#define gensym (*__imp_gensym) +#define in_eval (*__imp_in_eval) +#define incgv (*__imp_incgv) +#define inplace (*__imp_inplace) +#define last_in_gv (*__imp_last_in_gv) +#define lastfd (*__imp_lastfd) +#define lastscream (*__imp_lastscream) +#define lastsize (*__imp_lastsize) +#define lastspbase (*__imp_lastspbase) +#define laststatval (*__imp_laststatval) +#define laststype (*__imp_laststype) +#define leftgv (*__imp_leftgv) +#define lineary (*__imp_lineary) +#define localizing (*__imp_localizing) +#define localpatches (*__imp_localpatches) +#define main_cv (*__imp_main_cv) +#define main_root (*__imp_main_root) +#define main_start (*__imp_main_start) +#define mainstack (*__imp_mainstack) +#define maxscream (*__imp_maxscream) +#define maxsysfd (*__imp_maxsysfd) +#define minus_F (*__imp_minus_F) +#define minus_a (*__imp_minus_a) +#define minus_c (*__imp_minus_c) +#define minus_l (*__imp_minus_l) +#define minus_n (*__imp_minus_n) +#define minus_p (*__imp_minus_p) +#define multiline (*__imp_multiline) +#define mystack_base (*__imp_mystack_base) +#define mystack_max (*__imp_mystack_max) +#define mystack_sp (*__imp_mystack_sp) +#define mystrk (*__imp_mystrk) +#define nice_chunk (*__imp_nice_chunk) +#define nice_chunk_size (*__imp_nice_chunk_size) +#define nrs (*__imp_nrs) +#define ofmt (*__imp_ofmt) +#define ofs (*__imp_ofs) +#define ofslen (*__imp_ofslen) +#define oldlastpm (*__imp_oldlastpm) +#define oldname (*__imp_oldname) +#define op_mask (*__imp_op_mask) +#define origargc (*__imp_origargc) +#define origargv (*__imp_origargv) +#define origfilename (*__imp_origfilename) +#define ors (*__imp_ors) +#define orslen (*__imp_orslen) +#define pad_reset_pending (*__imp_pad_reset_pending) +#define padix_floor (*__imp_padix_floor) +#define parsehook (*__imp_parsehook) +#define patchlevel (*__imp_patchlevel) +#define perl_destruct_level (*__imp_perl_destruct_level) +#define perldb (*__imp_perldb) +#define preambleav (*__imp_preambleav) +#define preambled (*__imp_preambled) +#define preprocess (*__imp_preprocess) +#define regflags (*__imp_regflags) +#define restartop (*__imp_restartop) +#define rightgv (*__imp_rightgv) +#define rs (*__imp_rs) +#define runlevel (*__imp_runlevel) +#define sawampersand (*__imp_sawampersand) +#define sawstudy (*__imp_sawstudy) +#define sawvec (*__imp_sawvec) +#define screamfirst (*__imp_screamfirst) +#define screamnext (*__imp_screamnext) +#define secondgv (*__imp_secondgv) +#define signalstack (*__imp_signalstack) +#define sortcop (*__imp_sortcop) +#define sortstack (*__imp_sortstack) +#define sortstash (*__imp_sortstash) +#define splitstr (*__imp_splitstr) +#define statcache (*__imp_statcache) +#define statgv (*__imp_statgv) +#define statname (*__imp_statname) +#define statusvalue (*__imp_statusvalue) +#define stdingv (*__imp_stdingv) +#define strchop (*__imp_strchop) +#define strtab (*__imp_strtab) +#define sv_arenaroot (*__imp_sv_arenaroot) +#define sv_count (*__imp_sv_count) +#define sv_objcount (*__imp_sv_objcount) +#define sv_root (*__imp_sv_root) +#define tainted (*__imp_tainted) +#define tmps_floor (*__imp_tmps_floor) +#define tmps_ix (*__imp_tmps_ix) +#define tmps_max (*__imp_tmps_max) +#define tmps_stack (*__imp_tmps_stack) +#define top_env (*__imp_top_env) +#define toptarget (*__imp_toptarget) +#define unsafe (*__imp_unsafe) +#define warnhook (*__imp_warnhook) diff --git a/gnu/usr.bin/perl/cygwin32/gcc2 b/gnu/usr.bin/perl/cygwin32/gcc2 new file mode 100644 index 00000000000..3da705cdbf4 --- /dev/null +++ b/gnu/usr.bin/perl/cygwin32/gcc2 @@ -0,0 +1,12 @@ +#!/bin/sh +# +# gcc wrapper for building dynamic lib version of perl +# if -buildperl found on command line, then all args passed to +# perlgcc, else pass all args to gcc. +# jc 3/24/97 +# + +case "$*" in +*-buildperl*) miniperl perlgcc "$@" ;; +*) gcc "$@" ;; +esac diff --git a/gnu/usr.bin/perl/cygwin32/ld2 b/gnu/usr.bin/perl/cygwin32/ld2 new file mode 100644 index 00000000000..9aec8798fed --- /dev/null +++ b/gnu/usr.bin/perl/cygwin32/ld2 @@ -0,0 +1,9 @@ +#!/bin/sh +# +# ld wrapper for building dynamic lib version of perl; +# passes all args to ld. +# + +PERLPATH=/perl5.004 + +$PERLPATH/perl $PERLPATH/perlld "$@" diff --git a/gnu/usr.bin/perl/cygwin32/perlgcc b/gnu/usr.bin/perl/cygwin32/perlgcc new file mode 100644 index 00000000000..97d7d1a8a53 --- /dev/null +++ b/gnu/usr.bin/perl/cygwin32/perlgcc @@ -0,0 +1,77 @@ +# + +# Perl script be a wrapper around the gnu gcc. the exportable perl.exe +# is built, special processing is done. +# This script is caled by the gcc2 shell script when the flag +# -buildperl is passed to gcc2 + +print "perlgcc: building exportable perl...\n"; + +# get all libs: +my @libobs; +my @obs; +my @libFlags; +my $libstring; +foreach (@ARGV){ + if( /\.[a]$/){ + push @libobs,$_; + } + elsif(/^\-l/){ + push @libFlags,$_; + } + if( /\.[o]$/){ + push @obs,$_; + } +} +$libstring = join(" ",@libobs); +$obsString = join(" ",@obs); +$libflagString = join(" ",@libFlags); + +# make exports file +my $command = "echo EXPORTS > perl.def"; +print "$command\n"; +system($command); + +$command ="nm $libstring | grep '^........ [TCD] _'| grep -v _impure_ptr | sed 's/[^_]*_//' >> perl.def"; +print "$command\n"; +system($command); + +# Build the perl.a lib to link to: +$command ="dlltool --as=as --dllname perl.exe --def perl.def --output-lib perl.a"; +print "$command\n"; +system($command); + +# change name of export lib to libperlexp so that is can be understood by ld2/perlld +$command ="mv perl.a libperlexp.a"; +print "$command\n"; +system($command); + +# get the full path name of a few libs: +my $crt0 = `gcc -print-file-name=crt0.o`; +chomp $crt0; +my $libdir = `gcc -print-file-name=libcygwin.a`; +chomp $libdir; +$libdir =~ s/libcygwin\.a//g; + +# Link exe: +$command = "ld --base-file perl.base -o perl.exe $crt0 $obsString $libstring -L$libdir $libflagString"; +print "$command\n"; +system($command); + +$command = "dlltool --as=as --dllname perl.exe --def perl.def --base-file perl.base --output-exp perl.exp"; +print "$command\n"; +system($command); + +$command = "ld --base-file perl.base perl.exp -o perl.exe $crt0 $obsString $libstring -L$libdir $libflagString"; +print "$command\n"; +system($command); + +$command = "dlltool --as=as --dllname perl.exe --def perl.def --base-file perl.base --output-exp perl.exp"; +print "$command\n"; +system($command); + +$command = "ld perl.exp -o perl.exe $crt0 $obsString $libstring -L$libdir $libflagString"; +print "$command\n"; +system($command); + +print "perlgcc: Completed\n"; diff --git a/gnu/usr.bin/perl/cygwin32/perlld b/gnu/usr.bin/perl/cygwin32/perlld new file mode 100644 index 00000000000..1622f2ffaf2 --- /dev/null +++ b/gnu/usr.bin/perl/cygwin32/perlld @@ -0,0 +1,192 @@ +# +# Perl script be a wrapper around the gnu ld. When a dll is specified to +# to be built, special processing is done, else the standard ld is called. +# +# Modified 3/14/97 to include the impure_ptr setup routine in init.cc +# Modified to make dll in current directory then copy to another dir if +# a path name specified on the command name with the -o parm. +# + +my $args = join(" ",@ARGV); # get args +my $arg; + +my @objs; +my @flags; +my $libname; +my $init = "init"; +my $fixup = "fixup"; + +my $path; + + +sub writefixup; +sub writeInit; + +if( $args=~/\-o (.+?)\.dll/i){ + $libname = $1; + # print "libname = <$libname>\n"; + # Check for path: + if( $libname =~ /($\.+?\/)(\w+$)/){ + $path = $1; + $libname = $2; + # print "<$path> <$libname>\n"; + } + + foreach $arg(@ARGV){ + if( $arg=~/\.[oa]$/){ + push @objs,$arg; + next; + } + if( $arg =~/\-o/ or $arg =~ /.+?\.dll/i ){ + next; + } + push @flags,$arg; + } + + writefixup(); + writeInit(); + $command = "gcc -c $fixup.c\n"; + print $command; + system($command); + $command = "gcc -c $init.cc\n"; + print $command; + system($command); + + $command = "echo EXPORTS > $libname.def\n"; + print $command; + system($command); + $command = "nm ".join(" ",@objs)." $init.o $fixup.o | grep '^........ [TCD] _' | sed 's/[^_]*_//' >> $libname.def\n"; + print $command; + system($command); + + $command = "ld --base-file $libname.base --dll -o $libname.dll ".join(" ",@objs)." $init.o $fixup.o "; + $command .= join(" ",@flags)." -e _dll_entry\@12 \n"; + print $command; + system($command); + + $command = "dlltool --as=as --dllname $libname.dll --def $libname.def --base-file $libname.base --output-exp $libname.exp\n"; + print $command; + system($command); + + $command = "ld --base-file $libname.base $libname.exp --dll -o $libname.dll ".join(" ",@objs)." $init.o $fixup.o "; + $command .= join(" ",@flags)." -e _dll_entry\@12 \n"; + print $command; + system($command); + + $command = "dlltool --as=as --dllname $libname.dll --def $libname.def --base-file $libname.base --output-exp $libname.exp\n"; + print $command; + system($command); + + $command = "ld $libname.exp --dll -o $libname.dll ".join(" ",@objs)." $init.o $fixup.o "; + $command .= join(" ",@flags)." -e _dll_entry\@12 \n"; + print $command; + system($command); + + print "Build the import lib\n"; + $command = "dlltool --as=as --dllname $libname.dll --def $libname.def --output-lib $libname.a\n"; + print $command; + system($command); + + # if there was originally a path, copy the dll and a to that location: + if($path && $path ne "./" && $path."\n" ne "`pwd`"){ + $command = "mv $libname.dll $path".$libname.".dll\n"; + print $command; + system($command); + $command = "mv $libname.a $path".$libname.".a\n"; + print $command; + system($command); + + } + +} +else{ # no special processing, just call ld + $command = "ld $args\n"; + print $command; + system($command); +} + +#--------------------------------------------------------------------------- +sub writeInit{ + +open(OUTFILE,">$init.cc") or die("Can't open $init.cc\n"); + +print OUTFILE <<'EOF'; +/* init.cc for WIN32. + + Copyright 1996 Cygnus Solutions + +This program is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program; if not, write to the Free Software +Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + +// Added impure_ptr initialization routine. This is needed for any DLL that needs +// to output to the main (calling) executable's stdout, stderr, etc. This routine +// needs to be called from the executable using the DLL before any other DLL +// routines are called. jc 3/14/97 + +#include <windows.h> + +extern "C" +{ + int WINAPI dll_entry (HANDLE h, DWORD reason, void *ptr); + void impure_setup(struct _reent *_impure_ptrMain); +}; + +struct _reent *_impure_ptr; // this will be the Dlls local copy of impure ptr + +int WINAPI dll_entry (HANDLE , + DWORD reason, + void *) +{ + switch (reason) + { + case DLL_PROCESS_ATTACH: + break; + case DLL_PROCESS_DETACH: + break; + case DLL_THREAD_ATTACH: + break; + case DLL_THREAD_DETACH: + break; + } + return 1; +} + + +//******************************************** +// Function to set our local (in this dll) copy of impure_ptr to the +// main's (calling executable's) impure_ptr +void impure_setup(struct _reent *_impure_ptrMain){ + + _impure_ptr = _impure_ptrMain; + +} +EOF + +close OUTFILE; + +} + +#--------------------------------------------------------------------------- +sub writefixup{ + +open(OUTFILE,">$fixup.c") or die("Can't open $fixup.c\n"); + +print OUTFILE <<'EOF'; +/* This is needed to terminate the list of inport stuff */ +/* Copied from winsup/dcrt0.cc in the cygwin32 source distribution. */ + asm(".section .idata$3\n" ".long 0,0,0,0, 0,0,0,0"); + +EOF +close OUTFILE; +} diff --git a/gnu/usr.bin/perl/eg/cgi/RunMeFirst b/gnu/usr.bin/perl/eg/cgi/RunMeFirst new file mode 100644 index 00000000000..c96d79eb628 --- /dev/null +++ b/gnu/usr.bin/perl/eg/cgi/RunMeFirst @@ -0,0 +1,29 @@ +#!/usr/local/bin/perl + +# Make a world-writeable directory for saving state. +$ww = 'WORLD_WRITABLE'; +unless (-w $ww) { + $u = umask 0; + mkdir $ww, 0777; + umask $u; +} + +# Decode the sample image. +for $bin (qw(wilogo.gif)) { + unless (open UU, "$bin.uu") { warn "Can't open $bin.uu: $!\n"; next } + unless (open BIN, "> $bin") { warn "Can't create $bin: $!\n"; next } + $_ = <UU>; + while (<UU>) { + chomp; + last if /^end/; + print BIN unpack "u", $_; + } + close BIN; + close UU; +} + +# Create symlinks from *.txt to *.cgi for documentation purposes. +foreach (<*.cgi>) { + ($target = $_) =~ s/cgi$/txt/; + symlink $_, $target unless -e $target; +} diff --git a/gnu/usr.bin/perl/eg/cgi/clickable_image.cgi b/gnu/usr.bin/perl/eg/cgi/clickable_image.cgi new file mode 100644 index 00000000000..81daf09690f --- /dev/null +++ b/gnu/usr.bin/perl/eg/cgi/clickable_image.cgi @@ -0,0 +1,26 @@ +#!/usr/local/bin/perl + +use CGI; +$query = new CGI; +print $query->header; +print $query->start_html("A Clickable Image"); +print <<END; +<H1>A Clickable Image</H1> +</A> +END +print "Sorry, this isn't very exciting!\n"; + +print $query->startform; +print $query->image_button('picture',"./wilogo.gif"); +print "Give me a: ",$query->popup_menu('letter',['A','B','C','D','E','W']),"\n"; # +print "<P>Magnification: ",$query->radio_group('magnification',['1X','2X','4X','20X']),"\n"; +print "<HR>\n"; + +if ($query->param) { + print "<P>Magnification, <EM>",$query->param('magnification'),"</EM>\n"; + print "<P>Selected Letter, <EM>",$query->param('letter'),"</EM>\n"; + ($x,$y) = ($query->param('picture.x'),$query->param('picture.y')); + print "<P>Selected Position <EM>($x,$y)</EM>\n"; +} + +print $query->end_html; diff --git a/gnu/usr.bin/perl/eg/cgi/cookie.cgi b/gnu/usr.bin/perl/eg/cgi/cookie.cgi new file mode 100644 index 00000000000..98adda196ed --- /dev/null +++ b/gnu/usr.bin/perl/eg/cgi/cookie.cgi @@ -0,0 +1,88 @@ +#!/usr/local/bin/perl + +use CGI qw(:standard); + +@ANIMALS=sort qw/lion tiger bear pig porcupine ferret zebra gnu ostrich + emu moa goat weasel yak chicken sheep hyena dodo lounge-lizard + squirrel rat mouse hedgehog racoon baboon kangaroo hippopotamus + giraffe/; + +# Recover the previous animals from the magic cookie. +# The cookie has been formatted as an associative array +# mapping animal name to the number of animals. +%zoo = cookie('animals'); + +# Recover the new animal(s) from the parameter 'new_animal' +@new = param('new_animals'); + +# If the action is 'add', then add new animals to the zoo. Otherwise +# delete them. +foreach (@new) { + if (param('action') eq 'Add') { + $zoo{$_}++; + } elsif (param('action') eq 'Delete') { + $zoo{$_}-- if $zoo{$_}; + delete $zoo{$_} unless $zoo{$_}; + } +} + +# Add new animals to old, and put them in a cookie +$the_cookie = cookie(-name=>'animals', + -value=>\%zoo, + -expires=>'+1h'); + +# Print the header, incorporating the cookie and the expiration date... +print header(-cookie=>$the_cookie); + +# Now we're ready to create our HTML page. +print start_html('Animal crackers'); + +print <<EOF; +<h1>Animal Crackers</h1> +Choose the animals you want to add to the zoo, and click "add". +Come back to this page any time within the next hour and the list of +animals in the zoo will be resurrected. You can even quit Netscape +completely! +<p> +Try adding the same animal several times to the list. Does this +remind you vaguely of a shopping cart? +<p> +<em>This script only works with Netscape browsers</em> +<p> +<center> +<table border> +<tr><th>Add/Delete<th>Current Contents +EOF + ; + +print "<tr><td>",start_form; +print scrolling_list(-name=>'new_animals', + -values=>[@ANIMALS], + -multiple=>1, + -override=>1, + -size=>10),"<br>"; +print submit(-name=>'action',-value=>'Delete'), + submit(-name=>'action',-value=>'Add'); +print end_form; + +print "<td>"; +if (%zoo) { # make a table + print "<ul>\n"; + foreach (sort keys %zoo) { + print "<li>$zoo{$_} $_\n"; + } + print "</ul>\n"; +} else { + print "<strong>The zoo is empty.</strong>\n"; +} +print "</table></center>"; + +print <<EOF; +<hr> +<ADDRESS>Lincoln D. Stein</ADDRESS><BR> +<A HREF="./">More Examples</A> +EOF + ; +print end_html; + + diff --git a/gnu/usr.bin/perl/eg/cgi/crash.cgi b/gnu/usr.bin/perl/eg/cgi/crash.cgi new file mode 100644 index 00000000000..64f03c7b3db --- /dev/null +++ b/gnu/usr.bin/perl/eg/cgi/crash.cgi @@ -0,0 +1,6 @@ +#!/usr/local/bin/perl + +use CGI::Carp qw(fatalsToBrowser); + +# This line invokes a fatal error message at compile time. +foo bar baz; diff --git a/gnu/usr.bin/perl/eg/cgi/customize.cgi b/gnu/usr.bin/perl/eg/cgi/customize.cgi new file mode 100644 index 00000000000..c1c81875144 --- /dev/null +++ b/gnu/usr.bin/perl/eg/cgi/customize.cgi @@ -0,0 +1,92 @@ +#!/usr/local/bin/perl + +use CGI qw(:standard :html3); + +# Some constants to use in our form. +@colors=qw/aqua black blue fuschia gray green lime maroon navy olive + purple red silver teal white yellow/; +@sizes=("<default>",1..7); + +# recover the "preferences" cookie. +%preferences = cookie('preferences'); + +# If the user wants to change the background color or her +# name, they will appear among our CGI parameters. +foreach ('text','background','name','size') { + $preferences{$_} = param($_) || $preferences{$_}; +} + +# Set some defaults +$preferences{'background'} = $preferences{'background'} || 'silver'; +$preferences{'text'} = $preferences{'text'} || 'black'; + +# Refresh the cookie so that it doesn't expire. This also +# makes any changes the user made permanent. +$the_cookie = cookie(-name=>'preferences', + -value=>\%preferences, + -expires=>'+30d'); +print header(-cookie=>$the_cookie); + +# Adjust the title to incorporate the user's name, if provided. +$title = $preferences{'name'} ? + "Welcome back, $preferences{name}!" : "Customizable Page"; + +# Create the HTML page. We use several of Netscape's +# extended tags to control the background color and the +# font size. It's safe to use Netscape features here because +# cookies don't work anywhere else anyway. +print start_html(-title=>$title, + -bgcolor=>$preferences{'background'}, + -text=>$preferences{'text'} + ); + +print basefont({SIZE=>$preferences{size}}) if $preferences{'size'} > 0; + +print h1($title),<<END; +You can change the appearance of this page by submitting +the fill-out form below. If you return to this page any time +within 30 days, your preferences will be restored. +END + ; + +# Create the form +print hr(), + start_form, + + "Your first name: ", + textfield(-name=>'name', + -default=>$preferences{'name'}, + -size=>30),br, + + table( + TR( + td("Preferred"), + td("Page color:"), + td(popup_menu(-name=>'background', + -values=>\@colors, + -default=>$preferences{'background'}) + ), + ), + TR( + td(''), + td("Text color:"), + td(popup_menu(-name=>'text', + -values=>\@colors, + -default=>$preferences{'text'}) + ) + ), + TR( + td(''), + td("Font size:"), + td(popup_menu(-name=>'size', + -values=>\@sizes, + -default=>$preferences{'size'}) + ) + ) + ), + + submit(-label=>'Set preferences'), + hr; + +print a({HREF=>"/"},'Go to the home page'); +print end_html; diff --git a/gnu/usr.bin/perl/eg/cgi/diff_upload.cgi b/gnu/usr.bin/perl/eg/cgi/diff_upload.cgi new file mode 100644 index 00000000000..913f9ca1791 --- /dev/null +++ b/gnu/usr.bin/perl/eg/cgi/diff_upload.cgi @@ -0,0 +1,68 @@ +#!/usr/local/bin/perl + +$DIFF = "/usr/bin/diff"; +$PERL = "/usr/bin/perl"; + +use CGI qw(:standard); +use CGI::Carp; + +print header; +print start_html("File Diff Example"); +print "<strong>Version </strong>$CGI::VERSION<p>"; + +print <<EOF; +<H1>File Diff Example</H1> +Enter two files. When you press "submit" their diff will be +produced. +EOF + ; + +# Start a multipart form. +print start_multipart_form; +print "File #1:",filefield(-name=>'file1',-size=>45),"<BR>\n"; +print "File #2:",filefield(-name=>'file2',-size=>45),"<BR>\n"; +print "Diff type: ",radio_group(-name=>'type', + -value=>['context','normal']),"<br>\n"; +print reset,submit(-name=>'submit',-value=>'Do Diff'); +print endform; + +# Process the form if there is a file name entered +$file1 = param('file1'); +$file2 = param('file2'); + +$|=1; # for buffering +if ($file1 && $file2) { + $realfile1 = tmpFileName($file1); + $realfile2 = tmpFileName($file2); + print "<HR>\n"; + print "<H2>$file1 vs $file2</H2>\n"; + + print "<PRE>\n"; + $options = "-c" if param('type') eq 'context'; + system "$DIFF $options $realfile1 $realfile2 | $PERL -pe 's/>/>/g; s/</</g;'"; + close $file1; + close $file2; + print "</PRE>\n"; +} + +print <<EOF; +<HR> +<A HREF="../cgi_docs.html">CGI documentation</A> +<HR> +<ADDRESS> +<A HREF="/~lstein">Lincoln D. Stein</A> +</ADDRESS><BR> +Last modified 17 July 1996 +EOF + ; +print end_html; + +sub sanitize { + my $name = shift; + my($safe) = $name=~/([a-zA-Z0-9._~#,]+)/; + unless ($safe) { + print "<strong>$name is not a valid Unix filename -- sorry</strong>"; + exit 0; + } + return $safe; +} diff --git a/gnu/usr.bin/perl/eg/cgi/file_upload.cgi b/gnu/usr.bin/perl/eg/cgi/file_upload.cgi new file mode 100644 index 00000000000..1f9eaec3321 --- /dev/null +++ b/gnu/usr.bin/perl/eg/cgi/file_upload.cgi @@ -0,0 +1,63 @@ +#!/usr/local/bin/perl + +use CGI qw(:standard); +use CGI::Carp; + +print header(); +print start_html("File Upload Example"); +print strong("Version "),$CGI::VERSION,p; + +print h1("File Upload Example"), + 'This example demonstrates how to prompt the remote user to + select a remote file for uploading. ', + strong("This feature only works with Netscape 2.0 browsers."), + p, + 'Select the ',cite('browser'),' button to choose a text file + to upload. When you press the submit button, this script + will count the number of lines, words, and characters in + the file.'; + +@types = ('count lines','count words','count characters'); + +# Start a multipart form. +print start_multipart_form(), + "Enter the file to process:", + filefield('filename','',45), + br, + checkbox_group('count',\@types,\@types), + p, + reset,submit('submit','Process File'), + endform; + +# Process the form if there is a file name entered +if ($file = param('filename')) { + $tmpfile=tmpFileName($file); + print hr(), + h2($file), + h3($tmpfile); + my($lines,$words,$characters,@words) = (0,0,0,0); + while (<$file>) { + $lines++; + $words += @words=split(/\s+/); + $characters += length($_); + } + close $file; + grep($stats{$_}++,param('count')); + if (%stats) { + print strong("Lines: "),$lines,br if $stats{'count lines'}; + print strong("Words: "),$words,br if $stats{'count words'}; + print strong("Characters: "),$characters,br if $stats{'count characters'}; + } else { + print strong("No statistics selected."); + } +} + +print hr(), + a({href=>"../cgi_docs.html"},"CGI documentation"), + hr, + address( + a({href=>'/~lstein'},"Lincoln D. Stein")), + br, + 'Last modified July 17, 1996', + end_html; + diff --git a/gnu/usr.bin/perl/eg/cgi/frameset.cgi b/gnu/usr.bin/perl/eg/cgi/frameset.cgi new file mode 100644 index 00000000000..fc86e92e9ac --- /dev/null +++ b/gnu/usr.bin/perl/eg/cgi/frameset.cgi @@ -0,0 +1,81 @@ +#!/usr/local/bin/perl + +use CGI; +$query = new CGI; +print $query->header; +$TITLE="Frameset Example"; + +# We use the path information to distinguish between calls +# to the script to: +# (1) create the frameset +# (2) create the query form +# (3) create the query response + +$path_info = $query->path_info; + +# If no path information is provided, then we create +# a side-by-side frame set +if (!$path_info) { + &print_frameset; + exit 0; +} + +# If we get here, then we either create the query form +# or we create the response. +&print_html_header; +&print_query if $path_info=~/query/; +&print_response if $path_info=~/response/; +&print_end; + + +# Create the frameset +sub print_frameset { + $script_name = $query->script_name; + print <<EOF; +<html><head><title>$TITLE</title></head> +<frameset cols="50,50"> +<frame src="$script_name/query" name="query"> +<frame src="$script_name/response" name="response"> +</frameset> +EOF + ; + exit 0; +} + +sub print_html_header { + print $query->start_html($TITLE); +} + +sub print_end { + print qq{<P><hr><A HREF="../index.html" TARGET="_top">More Examples</A>}; + print $query->end_html; +} + +sub print_query { + $script_name = $query->script_name; + print "<H1>Frameset Query</H1>\n"; + print $query->startform(-action=>"$script_name/response",-TARGET=>"response"); + print "What's your name? ",$query->textfield('name'); + print "<P>What's the combination?<P>", + $query->checkbox_group(-name=>'words', + -values=>['eenie','meenie','minie','moe']); + + print "<P>What's your favorite color? ", + $query->popup_menu(-name=>'color', + -values=>['red','green','blue','chartreuse']), + "<P>"; + print $query->submit; + print $query->endform; +} + +sub print_response { + print "<H1>Frameset Result</H1>\n"; + unless ($query->param) { + print "<b>No query submitted yet.</b>"; + return; + } + print "Your name is <EM>",$query->param(name),"</EM>\n"; + print "<P>The keywords are: <EM>",join(", ",$query->param(words)),"</EM>\n"; + print "<P>Your favorite color is <EM>",$query->param(color),"</EM>\n"; +} + diff --git a/gnu/usr.bin/perl/eg/cgi/index.html b/gnu/usr.bin/perl/eg/cgi/index.html new file mode 100644 index 00000000000..9eafd5f1086 --- /dev/null +++ b/gnu/usr.bin/perl/eg/cgi/index.html @@ -0,0 +1,111 @@ +<HTML> <HEAD> +<TITLE>More Examples of Scripts Created with CGI.pm</TITLE> +</HEAD> + +<BODY> +<H1>More Examples of Scripts Created with CGI.pm</H1> + +<H2> Basic Non Sequitur Questionnaire</H2> +<UL> + <LI> <A HREF="tryit.cgi">Try the script</A> + <LI> <A HREF="tryit.txt">Look at its source code</A> +</UL> + +<H2> Advanced Non Sequitur Questionnaire</H2> +<UL> + <LI> <A HREF="monty.cgi">Try the script</A> + <LI> <A HREF="monty.txt">Look at its source code</A> +</UL> + +<H2> Save and restore the state of a form to a file</H2> +<UL> + <LI> <A HREF="save_state.cgi">Try the script</A> + <LI> <A HREF="save_state.txt">Look at its source code</A> +</UL> + +<H2> Read the coordinates from a clickable image map</H2> +<UL> + <LI> <A HREF="clickable_image.cgi">Try the script</A> + <LI> <A HREF="clickable_image.txt">Look at its source code</A> +</UL> + +<H2> Multiple independent forms on the same page</H2> +<UL> + <LI> <A HREF="multiple_forms.cgi">Try the script</A> + <LI> <A HREF="multiple_forms.txt">Look at its source code</A> +</UL> + +<H2> How to maintain state on a page with internal links</H2> +<UL> + <LI> <A HREF="internal_links.cgi">Try the script</A> + <LI> <A HREF="internal_links.txt">Look at its source code</A> +</UL> + +<h2>Echo fatal script errors to the browser</h2> +<ul> + <li><a href="crash.cgi">Try the script</a> + <li><a href="crash.txt">Look at its source code</a> +</ul> + +<EM>The Following Scripts only Work with Netscape 2.0 & Internet Explorer only!</EM> + +<H2> Prompt for a file to upload and process it</H2> +<UL> + <LI> <A HREF="file_upload.cgi">Try the script</A> + <LI> <A HREF="file_upload.txt">Look at its source code</A> +</UL> + +<h2> A Continuously-Updated Page using Server Push</h2> +<ul> + <li><a href="nph-clock.cgi">Try the script</a> + <li><a href="nph-clock.txt">Look at its source code</a> +</ul> + +<h2>Compute the "diff" between two uploaded files</h2> +<ul> + <li><a href="diff_upload.cgi">Try the script</a> + <li><a href="diff_upload.txt">Look at its source code</a> +</ul> + +<h2>Maintain state over a long period with a cookie</h2> +<ul> + <li><a href="cookie.cgi">Try the script</a> + <li><a href="cookie.txt">Look at its source code</a> +</ul> + +<h2>Permanently customize the appearance of a page</h2> +<ul> + <li><a href="customize.cgi">Try the script</a> + <li><a href="customize.txt">Look at its source code</a> +</ul> + +<h2> Popup the response in a new window</h2> +<ul> + <li><a href="popup.cgi">Try the script</a> + <li><a href="popup.txt">Look at its source code</a> +</ul> + +<h2> Side-by-side form and response using frames</h2> +<ul> + <li><a href="frameset.cgi">Try the script</a> + <li><a href="frameset.txt">Look at its source code</a> +</ul> + +<h2>Verify the Contents of a fill-out form with JavaScript</h2> +<ul> + <li><a href="javascript.cgi">Try the script</a> + <li><a href="javascript.txt">Look at its source code</a> +</ul> + +<HR> +<MENU> + <LI> <A HREF="../cgi_docs.html">CGI.pm documentation</A> + <LI> <A HREF="../CGI.pm.tar.gz">Download the CGI.pm distribution</A> +</MENU> +<HR> +<ADDRESS>Lincoln D. Stein, lstein@genome.wi.mit.edu<br> +<a href="/">Whitehead Institute/MIT Center for Genome Research</a></ADDRESS> +<!-- hhmts start --> +Last modified: Mon Dec 2 06:23:25 EST 1996 +<!-- hhmts end --> +</BODY> </HTML> diff --git a/gnu/usr.bin/perl/installhtml b/gnu/usr.bin/perl/installhtml new file mode 100644 index 00000000000..b677cc29dbc --- /dev/null +++ b/gnu/usr.bin/perl/installhtml @@ -0,0 +1,584 @@ +#!./perl -w + +# This file should really be a extracted from a .PL + +use lib 'lib'; # use source library if present + +use Config; # for config options in the makefile +use Getopt::Long; # for command-line parsing +use Cwd; +use Pod::Html; + +umask 022; + +=head1 NAME + +installhtml - converts a collection of POD pages to HTML format. + +=head1 SYNOPSIS + + installhtml [--help] [--podpath=<name>:...:<name>] [--podroot=<name>] + [--htmldir=<name>] [--htmlroot=<name>] [--norecurse] [--recurse] + [--splithead=<name>,...,<name>] [--splititem=<name>,...,<name>] + [--libpods=<name>,...,<name>] [--verbose] + +=head1 DESCRIPTION + +I<installhtml> converts a collection of POD pages to a corresponding +collection of HTML pages. This is primarily used to convert the pod +pages found in the perl distribution. + +=head1 OPTIONS + +=over 4 + +=item B<--help> help + +Displays the usage. + +=item B<--podroot> POD search path base directory + +The base directory to search for all .pod and .pm files to be converted. +Default is current directory. + +=item B<--podpath> POD search path + +The list of directories to search for .pod and .pm files to be converted. +Default is `podroot/.'. + +=item B<--recurse> recurse on subdirectories + +Whether or not to convert all .pm and .pod files found in subdirectories +too. Default is to not recurse. + +=item B<--htmldir> HTML destination directory + +The base directory which all HTML files will be written to. This should +be a path relative to the filesystem, not the resulting URL. + +=item B<--htmlroot> URL base directory + +The base directory which all resulting HTML files will be visible at in +a URL. The default is `/'. + +=item B<--splithead> POD files to split on =head directive + +Colon-separated list of pod files to split by the =head directive. The +.pod suffix is optional. These files should have names specified +relative to podroot. + +=item B<--splititem> POD files to split on =item directive + +Colon-separated list of all pod files to split by the =item directive. +The .pod suffix is optional. I<installhtml> does not do the actual +split, rather it invokes I<splitpod> to do the dirty work. As with +--splithead, these files should have names specified relative to podroot. + +=item B<--splitpod> Directory containing the splitpod program + +The directory containing the splitpod program. The default is `podroot/pod'. + +=item B<--libpods> library PODs for LE<lt>E<gt> links + +Colon-separated list of "library" pod files. This is the same list that +will be passed to pod2html when any pod is converted. + +=item B<--verbose> verbose output + +Self-explanatory. + +=back + +=head1 EXAMPLE + +The following command-line is an example of the one we use to convert +perl documentation: + + ./installhtml --podpath=lib:ext:pod:vms \ + --podroot=/usr/src/perl \ + --htmldir=/perl/nmanual \ + --htmlroot=/perl/nmanual \ + --splithead=pod/perlipc \ + --splititem=pod/perlfunc \ + --libpods=perlfunc:perlguts:perlvar:perlrun:perlop \ + --recurse \ + --verbose + +=head1 AUTHOR + +Chris Hall E<lt>hallc@cs.colorado.eduE<gt> + +=head1 TODO + +=cut + +$usage =<<END_OF_USAGE; +Usage: $0 --help --podpath=<name>:...:<name> --podroot=<name> + --htmldir=<name> --htmlroot=<name> --norecurse --recurse + --splithead=<name>,...,<name> --splititem=<name>,...,<name> + --libpods=<name>,...,<name> --verbose + + --help - this message + --podpath - colon-separated list of directories containing .pod and + .pm files to be converted (. by default). + --podroot - filesystem base directory from which all relative paths in + podpath stem (default is .). + --htmldir - directory to store resulting html files in relative + to the filesystem (\$podroot/html by default). + --htmlroot - http-server base directory from which all relative paths + in podpath stem (default is /). + --libpods - comma-separated list of files to search for =item pod + directives in as targets of C<> and implicit links (empty + by default). + --norecurse - don't recurse on those subdirectories listed in podpath. + (default behavior). + --recurse - recurse on those subdirectories listed in podpath + --splithead - comma-separated list of .pod or .pm files to split. will + split each file into several smaller files at every occurrence + of a pod =head[1-6] directive. + --splititem - comma-separated list of .pod or .pm files to split using + splitpod. + --splitpod - directory where the program splitpod can be found + (\$podroot/pod by default). + --verbose - self-explanatory. + +END_OF_USAGE + +@libpods = (); +@podpath = ( "." ); # colon-separated list of directories containing .pod + # and .pm files to be converted. +$podroot = "."; # assume the pods we want are here +$htmldir = ""; # nothing for now... +$htmlroot = "/"; # default value +$recurse = 0; # default behavior +@splithead = (); # don't split any files by default +@splititem = (); # don't split any files by default +$splitpod = ""; # nothing for now. + +$verbose = 0; # whether or not to print debugging info + +$pod2html = "pod/pod2html"; + +usage("") unless @ARGV; + +# parse the command-line +$result = GetOptions( qw( + help + podpath=s + podroot=s + htmldir=s + htmlroot=s + libpods=s + recurse! + splithead=s + splititem=s + splitpod=s + verbose +)); +usage("invalid parameters") unless $result; +parse_command_line(); + + +# set these variables to appropriate values if the user didn't specify +# values for them. +$htmldir = "$htmlroot/html" unless $htmldir; +$splitpod = "$podroot/pod" unless $splitpod; + + +# make sure that the destination directory exists +(mkdir($htmldir, 0755) || + die "$0: cannot make directory $htmldir: $!\n") if ! -d $htmldir; + + +# the following array will eventually contain files that are to be +# ignored in the conversion process. these are files that have been +# process by splititem or splithead and should not be converted as a +# result. +@ignore = (); + + +# split pods. its important to do this before convert ANY pods because +# it may effect some of the links +@splitdirs = (); # files in these directories won't get an index +split_on_head($podroot, $htmldir, \@splitdirs, \@ignore, @splithead); +split_on_item($podroot, \@splitdirs, \@ignore, @splititem); + + +# convert the pod pages found in @poddirs +#warn "converting files\n" if $verbose; +#warn "\@ignore\t= @ignore\n" if $verbose; +foreach $dir (@podpath) { + installdir($dir, $recurse, $podroot, \@splitdirs, \@ignore); +} + + +# now go through and create master indices for each pod we split +foreach $dir (@splititem) { + print "creating index $htmldir/$dir.html\n" if $verbose; + create_index("$htmldir/$dir.html", "$htmldir/$dir"); +} + +foreach $dir (@splithead) { + $dir .= ".pod" unless $dir =~ /(\.pod|\.pm)$/; + # let pod2html create the file + runpod2html($dir, 1); + + # now go through and truncate after the index + $dir =~ /^(.*?)(\.pod|\.pm)?$/sm; + $file = "$htmldir/$1"; + print "creating index $file.html\n" if $verbose; + + # read in everything until what would have been the first =head + # directive, patching the index as we go. + open(H, "<$file.html") || + die "$0: error opening $file.html for input: $!\n"; + $/ = ""; + @data = (); + while (<H>) { + last if /NAME=/; + s,HREF="#(.*)">,HREF="$file/$1.html">,g; + push @data, $_; + } + close(H); + + # now rewrite the file + open(H, ">$file.html") || + die "$0: error opening $file.html for output: $!\n"; + print H "@data\n"; + close(H); +} + +############################################################################## + + +sub usage { + warn "$0: @_\n" if @_; + die $usage; +} + + +sub parse_command_line { + usage() if defined $opt_help; + $opt_help = ""; # make -w shut up + + # list of directories + @podpath = split(":", $opt_podpath) if defined $opt_podpath; + + # lists of files + @splithead = split(",", $opt_splithead) if defined $opt_splithead; + @splititem = split(",", $opt_splititem) if defined $opt_splititem; + @libpods = split(",", $opt_libpods) if defined $opt_libpods; + + $htmldir = $opt_htmldir if defined $opt_htmldir; + $htmlroot = $opt_htmlroot if defined $opt_htmlroot; + $podroot = $opt_podroot if defined $opt_podroot; + $splitpod = $opt_splitpod if defined $opt_splitpod; + + $recurse = $opt_recurse if defined $opt_recurse; + $verbose = $opt_verbose if defined $opt_verbose; +} + + +sub absolute_path { + my($cwd, $path) = @_; + return "$cwd/$path" unless $path =~ m:/:; + # add cwd if path is not already an absolute path + $path = "$cwd/$path" if (substr($path,0,1) ne '/'); + return $path; +} + + +sub create_index { + my($html, $dir) = @_; + my(@files, @filedata, @index, $file); + + # get the list of .html files in this directory + opendir(DIR, $dir) || + die "$0: error opening directory $dir for reading: $!\n"; + @files = sort(grep(/\.html$/, readdir(DIR))); + closedir(DIR); + + open(HTML, ">$html") || + die "$0: error opening $html for output: $!\n"; + + # for each .html file in the directory, extract the index + # embedded in the file and throw it into the big index. + print HTML "<DL COMPACT>\n"; + foreach $file (@files) { + $/ = ""; + + open(IN, "<$dir/$file") || + die "$0: error opening $dir/$file for input: $!\n"; + @filedata = <IN>; + close(IN); + + # pull out the NAME section + ($name) = grep(/NAME=/, @filedata); + $name =~ m,/H1>\s(\S+)\s[\s-]*(.*?)\s*$,sm; + print HTML qq(<A HREF="$dir/$file">); + print HTML "<DT>$1</A><DD>$2\n" if defined $1; +# print HTML qq(<A HREF="$dir/$file">$1</A><BR>\n") if defined $1; + + next; + + @index = grep(/<!-- INDEX BEGIN -->.*<!-- INDEX END -->/s, + @filedata); + for (@index) { + s/<!-- INDEX BEGIN -->(\s*<!--)(.*)(-->\s*)<!-- INDEX END -->/$2/s; + s,#,$dir/$file#,g; + # print HTML "$_\n"; + print HTML "$_\n<P><HR><P>\n"; + } + } + print HTML "</DL>\n"; + + close(HTML); +} + + +sub split_on_head { + my($podroot, $htmldir, $splitdirs, $ignore, @splithead) = @_; + my($pod, $dirname, $filename); + + # split the files specified in @splithead on =head[1-6] pod directives + print "splitting files by head.\n" if $verbose && $#splithead >= 0; + foreach $pod (@splithead) { + # figure out the directory name and filename + $pod =~ s,^([^/]*)$,/$1,; + $pod =~ m,(.*?)/(.*?)(\.pod)?$,; + $dirname = $1; + $filename = "$2.pod"; + + # since we are splitting this file it shouldn't be converted. + push(@$ignore, "$podroot/$dirname/$filename"); + + # split the pod + splitpod("$podroot/$dirname/$filename", "$podroot/$dirname", $htmldir, + $splitdirs); + } +} + + +sub split_on_item { + my($podroot, $splitdirs, $ignore, @splititem) = @_; + my($pwd, $dirname, $filename); + + print "splitting files by item.\n" if $verbose && $#splititem >= 0; + $pwd = getcwd(); + my $splitter = absolute_path($pwd, "$splitpod/splitpod"); + foreach $pod (@splititem) { + # figure out the directory to split into + $pod =~ s,^([^/]*)$,/$1,; + $pod =~ m,(.*?)/(.*?)(\.pod)?$,; + $dirname = "$1/$2"; + $filename = "$2.pod"; + + # since we are splitting this file it shouldn't be converted. + push(@$ignore, "$podroot/$dirname.pod"); + + # split the pod + push(@$splitdirs, "$podroot/$dirname"); + if (! -d "$podroot/$dirname") { + mkdir("$podroot/$dirname", 0755) || + die "$0: error creating directory $podroot/$dirname: $!\n"; + } + chdir("$podroot/$dirname") || + die "$0: error changing to directory $podroot/$dirname: $!\n"; + die "$splitter not found. Use '-splitpod dir' option.\n" + unless -f $splitter; + system("perl", $splitter, "../$filename") && + warn "$0: error running '$splitter ../$filename'" + ." from $podroot/$dirname"; + } + chdir($pwd); +} + + +# +# splitpod - splits a .pod file into several smaller .pod files +# where a new file is started each time a =head[1-6] pod directive +# is encountered in the input file. +# +sub splitpod { + my($pod, $poddir, $htmldir, $splitdirs) = @_; + my(@poddata, @filedata, @heads); + my($file, $i, $j, $prevsec, $section, $nextsec); + + print "splitting $pod\n" if $verbose; + + # read the file in paragraphs + $/ = ""; + open(SPLITIN, "<$pod") || + die "$0: error opening $pod for input: $!\n"; + @filedata = <SPLITIN>; + close(SPLITIN) || + die "$0: error closing $pod: $!\n"; + + # restore the file internally by =head[1-6] sections + @poddata = (); + for ($i = 0, $j = -1; $i <= $#filedata; $i++) { + $j++ if ($filedata[$i] =~ /^\s*=head[1-6]/); + if ($j >= 0) { + $poddata[$j] = "" unless defined $poddata[$j]; + $poddata[$j] .= "\n$filedata[$i]" if $j >= 0; + } + } + + # create list of =head[1-6] sections so that we can rewrite + # L<> links as necessary. + %heads = (); + foreach $i (0..$#poddata) { + $heads{htmlize($1)} = 1 if $poddata[$i] =~ /=head[1-6]\s+(.*)/; + } + + # create a directory of a similar name and store all the + # files in there + $pod =~ s,.*/(.*),$1,; # get the last part of the name + $dir = $pod; + $dir =~ s/\.pod//g; + push(@$splitdirs, "$poddir/$dir"); + mkdir("$poddir/$dir", 0755) || + die "$0: could not create directory $poddir/$dir: $!\n" + unless -d "$poddir/$dir"; + + $poddata[0] =~ /^\s*=head[1-6]\s+(.*)/; + $section = ""; + $nextsec = $1; + + # for each section of the file create a separate pod file + for ($i = 0; $i <= $#poddata; $i++) { + # determine the "prev" and "next" links + $prevsec = $section; + $section = $nextsec; + if ($i < $#poddata) { + $poddata[$i+1] =~ /^\s*=head[1-6]\s+(.*)/; + $nextsec = $1; + } else { + $nextsec = ""; + } + + # determine an appropriate filename (this must correspond with + # what pod2html will try and guess) + # $poddata[$i] =~ /^\s*=head[1-6]\s+(.*)/; + $file = "$dir/" . htmlize($section) . ".pod"; + + # create the new .pod file + print "\tcreating $poddir/$file\n" if $verbose; + open(SPLITOUT, ">$poddir/$file") || + die "$0: error opening $poddir/$file for output: $!\n"; + $poddata[$i] =~ s,L<([^<>]*)>, + defined $heads{htmlize($1)} ? "L<$dir/$1>" : "L<$1>" + ,ge; + print SPLITOUT $poddata[$i]."\n\n"; + print SPLITOUT "=over 4\n\n"; + print SPLITOUT "=item *\n\nBack to L<$dir/\"$prevsec\">\n\n" if $prevsec; + print SPLITOUT "=item *\n\nForward to L<$dir/\"$nextsec\">\n\n" if $nextsec; + print SPLITOUT "=item *\n\nUp to L<$dir>\n\n"; + print SPLITOUT "=back\n\n"; + close(SPLITOUT) || + die "$0: error closing $poddir/$file: $!\n"; + } +} + + +# +# installdir - takes care of converting the .pod and .pm files in the +# current directory to .html files and then installing those. +# +sub installdir { + my($dir, $recurse, $podroot, $splitdirs, $ignore) = @_; + my(@dirlist, @podlist, @pmlist, $doindex); + + @dirlist = (); # directories to recurse on + @podlist = (); # .pod files to install + @pmlist = (); # .pm files to install + + # should files in this directory get an index? + $doindex = (grep($_ eq "$podroot/$dir", @$splitdirs) ? 0 : 1); + + opendir(DIR, "$podroot/$dir") + || die "$0: error opening directory $podroot/$dir: $!\n"; + + # find the directories to recurse on + @dirlist = map { "$dir/$_" } + grep(-d "$podroot/$dir/$_" && !/^\.{1,2}/, readdir(DIR)) if $recurse; + rewinddir(DIR); + + # find all the .pod files within the directory + @podlist = map { /^(.*)\.pod$/; "$dir/$1" } + grep(! -d "$podroot/$dir/$_" && /\.pod$/, readdir(DIR)); + rewinddir(DIR); + + # find all the .pm files within the directory + @pmlist = map { /^(.*)\.pm$/; "$dir/$1" } + grep(! -d "$podroot/$dir/$_" && /\.pm$/, readdir(DIR)); + + closedir(DIR); + + # recurse on all subdirectories we kept track of + foreach $dir (@dirlist) { + installdir($dir, $recurse, $podroot, $splitdirs, $ignore); + } + + # install all the pods we found + foreach $pod (@podlist) { + # check if we should ignore it. + next if grep($_ eq "$podroot/$pod.pod", @$ignore); + + # check if a .pm files exists too + if (grep($_ eq "$pod.pm", @pmlist)) { + print "$0: Warning both `$podroot/$pod.pod' and " + . "`$podroot/$pod.pm' exist, using pod\n"; + push(@ignore, "$pod.pm"); + } + runpod2html("$pod.pod", $doindex); + } + + # install all the .pm files we found + foreach $pm (@pmlist) { + # check if we should ignore it. + next if grep($_ eq "$pm.pm", @ignore); + + runpod2html("$pm.pm", $doindex); + } +} + + +# +# runpod2html - invokes pod2html to convert a .pod or .pm file to a .html +# file. +# +sub runpod2html { + my($pod, $doindex) = @_; + my($html, $i, $dir, @dirs); + + $html = $pod; + $html =~ s/\.(pod|pm)$/.html/g; + + # make sure the destination directories exist + @dirs = split("/", $html); + $dir = "$htmldir/"; + for ($i = 0; $i < $#dirs; $i++) { + if (! -d "$dir$dirs[$i]") { + mkdir("$dir$dirs[$i]", 0755) || + die "$0: error creating directory $dir$dirs[$i]: $!\n"; + } + $dir .= "$dirs[$i]/"; + } + + # invoke pod2html + print "$podroot/$pod => $htmldir/$html\n" if $verbose; +#system("./pod2html", + Pod::Html'pod2html( + #Pod::Html'pod2html($pod2html, + "--htmlroot=$htmlroot", + "--podpath=".join(":", @podpath), + "--podroot=$podroot", "--netscape", + ($doindex ? "--index" : "--noindex"), + "--" . ($recurse ? "" : "no") . "recurse", + ($#libpods >= 0) ? "--libpods=" . join(":", @libpods) : "", + "--infile=$podroot/$pod", "--outfile=$htmldir/$html"); + die "$0: error running $pod2html: $!\n" if $?; +} + +sub htmlize { htmlify(0, @_) } diff --git a/gnu/usr.bin/perl/nostdio.h b/gnu/usr.bin/perl/nostdio.h new file mode 100644 index 00000000000..256a638c9a7 --- /dev/null +++ b/gnu/usr.bin/perl/nostdio.h @@ -0,0 +1,26 @@ +/* This is an 1st attempt to stop other include files pulling + in real <stdio.h>. + A more ambitious set of possible symbols can be found in + sfio.h (inside an _cplusplus gard). +*/ +#if !defined(_STDIO_H) && !defined(FILE) && !defined(_STDIO_INCLUDED) && !defined(__STDIO_LOADED) +#define _STDIO_H +#define _STDIO_INCLUDED +#define __STDIO_LOADED +struct _FILE; +#define FILE struct _FILE +#endif + +#define _CANNOT "CANNOT" + +#undef stdin +#undef stdout +#undef stderr +#undef getc +#undef putc +#undef clearerr +#undef fflush +#undef feof +#undef ferror +#undef fileno + diff --git a/gnu/usr.bin/perl/perlio.c b/gnu/usr.bin/perl/perlio.c new file mode 100644 index 00000000000..f269dcdb1de --- /dev/null +++ b/gnu/usr.bin/perl/perlio.c @@ -0,0 +1,656 @@ +/* perlio.c + * + * Copyright (c) 1996, Nick Ing-Simmons + * + * You may distribute under the terms of either the GNU General Public + * License or the Artistic License, as specified in the README file. + * + */ + +#define VOIDUSED 1 +#include "config.h" + +#define PERLIO_NOT_STDIO 0 +#if !defined(PERLIO_IS_STDIO) && !defined(USE_SFIO) +#define PerlIO FILE +#endif +/* + * This file provides those parts of PerlIO abstraction + * which are not #defined in perlio.h. + * Which these are depends on various Configure #ifdef's + */ + +#include "EXTERN.h" +#include "perl.h" + +#ifdef PERLIO_IS_STDIO + +void +PerlIO_init() +{ + /* Does nothing (yet) except force this file to be included + in perl binary. That allows this file to force inclusion + of other functions that may be required by loadable + extensions e.g. for FileHandle::tmpfile + */ +} + +#undef PerlIO_tmpfile +PerlIO * +PerlIO_tmpfile() +{ + return tmpfile(); +} + +#else /* PERLIO_IS_STDIO */ + +#ifdef USE_SFIO + +#undef HAS_FSETPOS +#undef HAS_FGETPOS + +/* This section is just to make sure these functions + get pulled in from libsfio.a +*/ + +#undef PerlIO_tmpfile +PerlIO * +PerlIO_tmpfile() +{ + return sftmp(0); +} + +void +PerlIO_init() +{ + /* Force this file to be included in perl binary. Which allows + * this file to force inclusion of other functions that may be + * required by loadable extensions e.g. for FileHandle::tmpfile + */ + + /* Hack + * sfio does its own 'autoflush' on stdout in common cases. + * Flush results in a lot of lseek()s to regular files and + * lot of small writes to pipes. + */ + sfset(sfstdout,SF_SHARE,0); +} + +#else + +/* Implement all the PerlIO interface using stdio. + - this should be only file to include <stdio.h> +*/ + +#undef PerlIO_stderr +PerlIO * +PerlIO_stderr() +{ + return (PerlIO *) stderr; +} + +#undef PerlIO_stdin +PerlIO * +PerlIO_stdin() +{ + return (PerlIO *) stdin; +} + +#undef PerlIO_stdout +PerlIO * +PerlIO_stdout() +{ + return (PerlIO *) stdout; +} + +#undef PerlIO_fast_gets +int +PerlIO_fast_gets(f) +PerlIO *f; +{ +#if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE) && defined(STDIO_CNT_LVALUE) + return 1; +#else + return 0; +#endif +} + +#undef PerlIO_has_cntptr +int +PerlIO_has_cntptr(f) +PerlIO *f; +{ +#if defined(USE_STDIO_PTR) + return 1; +#else + return 0; +#endif +} + +#undef PerlIO_canset_cnt +int +PerlIO_canset_cnt(f) +PerlIO *f; +{ +#if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE) + return 1; +#else + return 0; +#endif +} + +#undef PerlIO_set_cnt +void +PerlIO_set_cnt(f,cnt) +PerlIO *f; +int cnt; +{ + if (cnt < -1) + warn("Setting cnt to %d\n",cnt); +#if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE) + FILE_cnt(f) = cnt; +#else + croak("Cannot set 'cnt' of FILE * on this system"); +#endif +} + +#undef PerlIO_set_ptrcnt +void +PerlIO_set_ptrcnt(f,ptr,cnt) +PerlIO *f; +STDCHAR *ptr; +int cnt; +{ +#ifdef FILE_bufsiz + STDCHAR *e = FILE_base(f) + FILE_bufsiz(f); + int ec = e - ptr; + if (ptr > e + 1) + warn("Setting ptr %p > end+1 %p\n", ptr, e + 1); + if (cnt != ec) + warn("Setting cnt to %d, ptr implies %d\n",cnt,ec); +#endif +#if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE) + FILE_ptr(f) = ptr; +#else + croak("Cannot set 'ptr' of FILE * on this system"); +#endif +#if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE) + FILE_cnt(f) = cnt; +#else + croak("Cannot set 'cnt' of FILE * on this system"); +#endif +} + +#undef PerlIO_get_cnt +int +PerlIO_get_cnt(f) +PerlIO *f; +{ +#ifdef FILE_cnt + return FILE_cnt(f); +#else + croak("Cannot get 'cnt' of FILE * on this system"); + return -1; +#endif +} + +#undef PerlIO_get_bufsiz +int +PerlIO_get_bufsiz(f) +PerlIO *f; +{ +#ifdef FILE_bufsiz + return FILE_bufsiz(f); +#else + croak("Cannot get 'bufsiz' of FILE * on this system"); + return -1; +#endif +} + +#undef PerlIO_get_ptr +STDCHAR * +PerlIO_get_ptr(f) +PerlIO *f; +{ +#ifdef FILE_ptr + return FILE_ptr(f); +#else + croak("Cannot get 'ptr' of FILE * on this system"); + return NULL; +#endif +} + +#undef PerlIO_get_base +STDCHAR * +PerlIO_get_base(f) +PerlIO *f; +{ +#ifdef FILE_base + return FILE_base(f); +#else + croak("Cannot get 'base' of FILE * on this system"); + return NULL; +#endif +} + +#undef PerlIO_has_base +int +PerlIO_has_base(f) +PerlIO *f; +{ +#ifdef FILE_base + return 1; +#else + return 0; +#endif +} + +#undef PerlIO_puts +int +PerlIO_puts(f,s) +PerlIO *f; +const char *s; +{ + return fputs(s,f); +} + +#undef PerlIO_open +PerlIO * +PerlIO_open(path,mode) +const char *path; +const char *mode; +{ + return fopen(path,mode); +} + +#undef PerlIO_fdopen +PerlIO * +PerlIO_fdopen(fd,mode) +int fd; +const char *mode; +{ + return fdopen(fd,mode); +} + +#undef PerlIO_reopen +PerlIO * +PerlIO_reopen(name, mode, f) +const char *name; +const char *mode; +PerlIO *f; +{ + return freopen(name,mode,f); +} + +#undef PerlIO_close +int +PerlIO_close(f) +PerlIO *f; +{ + return fclose(f); +} + +#undef PerlIO_eof +int +PerlIO_eof(f) +PerlIO *f; +{ + return feof(f); +} + +#undef PerlIO_getname +char * +PerlIO_getname(f,buf) +PerlIO *f; +char *buf; +{ +#ifdef VMS + return fgetname(f,buf); +#else + croak("Don't know how to get file name"); + return NULL; +#endif +} + +#undef PerlIO_getc +int +PerlIO_getc(f) +PerlIO *f; +{ + return fgetc(f); +} + +#undef PerlIO_error +int +PerlIO_error(f) +PerlIO *f; +{ + return ferror(f); +} + +#undef PerlIO_clearerr +void +PerlIO_clearerr(f) +PerlIO *f; +{ + clearerr(f); +} + +#undef PerlIO_flush +int +PerlIO_flush(f) +PerlIO *f; +{ + return Fflush(f); +} + +#undef PerlIO_fileno +int +PerlIO_fileno(f) +PerlIO *f; +{ + return fileno(f); +} + +#undef PerlIO_setlinebuf +void +PerlIO_setlinebuf(f) +PerlIO *f; +{ +#ifdef HAS_SETLINEBUF + setlinebuf(f); +#else +# ifdef __BORLANDC__ /* Borland doesn't like NULL size for _IOLBF */ + setvbuf(f, Nullch, _IOLBF, BUFSIZ); +# else + setvbuf(f, Nullch, _IOLBF, 0); +# endif +#endif +} + +#undef PerlIO_putc +int +PerlIO_putc(f,ch) +PerlIO *f; +int ch; +{ + return putc(ch,f); +} + +#undef PerlIO_ungetc +int +PerlIO_ungetc(f,ch) +PerlIO *f; +int ch; +{ + return ungetc(ch,f); +} + +#undef PerlIO_read +SSize_t +PerlIO_read(f,buf,count) +PerlIO *f; +void *buf; +Size_t count; +{ + return fread(buf,1,count,f); +} + +#undef PerlIO_write +SSize_t +PerlIO_write(f,buf,count) +PerlIO *f; +const void *buf; +Size_t count; +{ + return fwrite1(buf,1,count,f); +} + +#undef PerlIO_vprintf +int +PerlIO_vprintf(f,fmt,ap) +PerlIO *f; +const char *fmt; +va_list ap; +{ + return vfprintf(f,fmt,ap); +} + + +#undef PerlIO_tell +long +PerlIO_tell(f) +PerlIO *f; +{ + return ftell(f); +} + +#undef PerlIO_seek +int +PerlIO_seek(f,offset,whence) +PerlIO *f; +off_t offset; +int whence; +{ + return fseek(f,offset,whence); +} + +#undef PerlIO_rewind +void +PerlIO_rewind(f) +PerlIO *f; +{ + rewind(f); +} + +#undef PerlIO_printf +int +#ifdef I_STDARG +PerlIO_printf(PerlIO *f,const char *fmt,...) +#else +PerlIO_printf(f,fmt,va_alist) +PerlIO *f; +const char *fmt; +va_dcl +#endif +{ + va_list ap; + int result; +#ifdef I_STDARG + va_start(ap,fmt); +#else + va_start(ap); +#endif + result = vfprintf(f,fmt,ap); + va_end(ap); + return result; +} + +#undef PerlIO_stdoutf +int +#ifdef I_STDARG +PerlIO_stdoutf(const char *fmt,...) +#else +PerlIO_stdoutf(fmt, va_alist) +const char *fmt; +va_dcl +#endif +{ + va_list ap; + int result; +#ifdef I_STDARG + va_start(ap,fmt); +#else + va_start(ap); +#endif + result = PerlIO_vprintf(PerlIO_stdout(),fmt,ap); + va_end(ap); + return result; +} + +#undef PerlIO_tmpfile +PerlIO * +PerlIO_tmpfile() +{ + return tmpfile(); +} + +#undef PerlIO_importFILE +PerlIO * +PerlIO_importFILE(f,fl) +FILE *f; +int fl; +{ + return f; +} + +#undef PerlIO_exportFILE +FILE * +PerlIO_exportFILE(f,fl) +PerlIO *f; +int fl; +{ + return f; +} + +#undef PerlIO_findFILE +FILE * +PerlIO_findFILE(f) +PerlIO *f; +{ + return f; +} + +#undef PerlIO_releaseFILE +void +PerlIO_releaseFILE(p,f) +PerlIO *p; +FILE *f; +{ +} + +void +PerlIO_init() +{ + /* Does nothing (yet) except force this file to be included + in perl binary. That allows this file to force inclusion + of other functions that may be required by loadable + extensions e.g. for FileHandle::tmpfile + */ +} + +#endif /* USE_SFIO */ +#endif /* PERLIO_IS_STDIO */ + +#ifndef HAS_FSETPOS +#undef PerlIO_setpos +int +PerlIO_setpos(f,pos) +PerlIO *f; +const Fpos_t *pos; +{ + return PerlIO_seek(f,*pos,0); +} +#else +#ifndef PERLIO_IS_STDIO +#undef PerlIO_setpos +int +PerlIO_setpos(f,pos) +PerlIO *f; +const Fpos_t *pos; +{ + return fsetpos(f, pos); +} +#endif +#endif + +#ifndef HAS_FGETPOS +#undef PerlIO_getpos +int +PerlIO_getpos(f,pos) +PerlIO *f; +Fpos_t *pos; +{ + *pos = PerlIO_tell(f); + return 0; +} +#else +#ifndef PERLIO_IS_STDIO +#undef PerlIO_getpos +int +PerlIO_getpos(f,pos) +PerlIO *f; +Fpos_t *pos; +{ + return fgetpos(f, pos); +} +#endif +#endif + +#if (defined(PERLIO_IS_STDIO) || !defined(USE_SFIO)) && !defined(HAS_VPRINTF) + +int +vprintf(pat, args) +char *pat, *args; +{ + _doprnt(pat, args, stdout); + return 0; /* wrong, but perl doesn't use the return value */ +} + +int +vfprintf(fd, pat, args) +FILE *fd; +char *pat, *args; +{ + _doprnt(pat, args, fd); + return 0; /* wrong, but perl doesn't use the return value */ +} + +#endif + +#ifndef PerlIO_vsprintf +int +PerlIO_vsprintf(s,n,fmt,ap) +char *s; +const char *fmt; +int n; +va_list ap; +{ + int val = vsprintf(s, fmt, ap); + if (n >= 0) + { + if (strlen(s) >= (STRLEN)n) + { + PerlIO_puts(PerlIO_stderr(),"panic: sprintf overflow - memory corrupted!\n"); + my_exit(1); + } + } + return val; +} +#endif + +#ifndef PerlIO_sprintf +int +#ifdef I_STDARG +PerlIO_sprintf(char *s, int n, const char *fmt,...) +#else +PerlIO_sprintf(s, n, fmt, va_alist) +char *s; +int n; +const char *fmt; +va_dcl +#endif +{ + va_list ap; + int result; +#ifdef I_STDARG + va_start(ap,fmt); +#else + va_start(ap); +#endif + result = PerlIO_vsprintf(s, n, fmt, ap); + va_end(ap); + return result; +} +#endif + diff --git a/gnu/usr.bin/perl/perlio.h b/gnu/usr.bin/perl/perlio.h new file mode 100644 index 00000000000..59d1a193f85 --- /dev/null +++ b/gnu/usr.bin/perl/perlio.h @@ -0,0 +1,199 @@ +#ifndef H_PERLIO +#define H_PERLIO 1 + +/* Clean up (or at least document) the various possible #defines. + This section attempts to match the 5.003_03 Configure variables + onto the 5.003_02 header file values. + I can't figure out where USE_STDIO was supposed to be set. + --AD +*/ +#ifndef USE_PERLIO +# define PERLIO_IS_STDIO +#endif + +/* Below is the 5.003_02 stuff. */ +#ifdef USE_STDIO +# ifndef PERLIO_IS_STDIO +# define PERLIO_IS_STDIO +# endif +#else +extern void PerlIO_init _((void)); +#endif + +#include "perlsdio.h" + +#ifndef PERLIO_IS_STDIO +#ifdef USE_SFIO +#include "perlsfio.h" +#endif /* USE_SFIO */ +#endif /* PERLIO_IS_STDIO */ + +#ifndef EOF +#define EOF (-1) +#endif + +/* This is to catch case with no stdio */ +#ifndef BUFSIZ +#define BUFSIZ 1024 +#endif + +#ifndef SEEK_SET +#define SEEK_SET 0 +#endif + +#ifndef SEEK_CUR +#define SEEK_CUR 1 +#endif + +#ifndef SEEK_END +#define SEEK_END 2 +#endif + +#ifndef PerlIO +struct _PerlIO; +#define PerlIO struct _PerlIO +#endif /* No PerlIO */ + +#ifndef Fpos_t +#define Fpos_t long +#endif + +#ifndef NEXT30_NO_ATTRIBUTE +#ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */ +#ifdef __attribute__ /* Avoid possible redefinition errors */ +#undef __attribute__ +#endif +#define __attribute__(attr) +#endif +#endif + +#ifndef PerlIO_stdoutf +extern int PerlIO_stdoutf _((const char *,...)) + __attribute__((format (printf, 1, 2))); +#endif +#ifndef PerlIO_puts +extern int PerlIO_puts _((PerlIO *,const char *)); +#endif +#ifndef PerlIO_open +extern PerlIO * PerlIO_open _((const char *,const char *)); +#endif +#ifndef PerlIO_close +extern int PerlIO_close _((PerlIO *)); +#endif +#ifndef PerlIO_eof +extern int PerlIO_eof _((PerlIO *)); +#endif +#ifndef PerlIO_error +extern int PerlIO_error _((PerlIO *)); +#endif +#ifndef PerlIO_clearerr +extern void PerlIO_clearerr _((PerlIO *)); +#endif +#ifndef PerlIO_getc +extern int PerlIO_getc _((PerlIO *)); +#endif +#ifndef PerlIO_putc +extern int PerlIO_putc _((PerlIO *,int)); +#endif +#ifndef PerlIO_flush +extern int PerlIO_flush _((PerlIO *)); +#endif +#ifndef PerlIO_ungetc +extern int PerlIO_ungetc _((PerlIO *,int)); +#endif +#ifndef PerlIO_fileno +extern int PerlIO_fileno _((PerlIO *)); +#endif +#ifndef PerlIO_fdopen +extern PerlIO * PerlIO_fdopen _((int, const char *)); +#endif +#ifndef PerlIO_importFILE +extern PerlIO * PerlIO_importFILE _((FILE *,int)); +#endif +#ifndef PerlIO_exportFILE +extern FILE * PerlIO_exportFILE _((PerlIO *,int)); +#endif +#ifndef PerlIO_findFILE +extern FILE * PerlIO_findFILE _((PerlIO *)); +#endif +#ifndef PerlIO_releaseFILE +extern void PerlIO_releaseFILE _((PerlIO *,FILE *)); +#endif +#ifndef PerlIO_read +extern SSize_t PerlIO_read _((PerlIO *,void *,Size_t)); +#endif +#ifndef PerlIO_write +extern SSize_t PerlIO_write _((PerlIO *,const void *,Size_t)); +#endif +#ifndef PerlIO_setlinebuf +extern void PerlIO_setlinebuf _((PerlIO *)); +#endif +#ifndef PerlIO_printf +extern int PerlIO_printf _((PerlIO *, const char *,...)) + __attribute__((format (printf, 2, 3))); +#endif +#ifndef PerlIO_sprintf +extern int PerlIO_sprintf _((char *, int, const char *,...)) + __attribute__((format (printf, 3, 4))); +#endif +#ifndef PerlIO_vprintf +extern int PerlIO_vprintf _((PerlIO *, const char *, va_list)); +#endif +#ifndef PerlIO_tell +extern long PerlIO_tell _((PerlIO *)); +#endif +#ifndef PerlIO_seek +extern int PerlIO_seek _((PerlIO *,off_t,int)); +#endif +#ifndef PerlIO_rewind +extern void PerlIO_rewind _((PerlIO *)); +#endif +#ifndef PerlIO_has_base +extern int PerlIO_has_base _((PerlIO *)); +#endif +#ifndef PerlIO_has_cntptr +extern int PerlIO_has_cntptr _((PerlIO *)); +#endif +#ifndef PerlIO_fast_gets +extern int PerlIO_fast_gets _((PerlIO *)); +#endif +#ifndef PerlIO_canset_cnt +extern int PerlIO_canset_cnt _((PerlIO *)); +#endif +#ifndef PerlIO_get_ptr +extern STDCHAR * PerlIO_get_ptr _((PerlIO *)); +#endif +#ifndef PerlIO_get_cnt +extern int PerlIO_get_cnt _((PerlIO *)); +#endif +#ifndef PerlIO_set_cnt +extern void PerlIO_set_cnt _((PerlIO *,int)); +#endif +#ifndef PerlIO_set_ptrcnt +extern void PerlIO_set_ptrcnt _((PerlIO *,STDCHAR *,int)); +#endif +#ifndef PerlIO_get_base +extern STDCHAR * PerlIO_get_base _((PerlIO *)); +#endif +#ifndef PerlIO_get_bufsiz +extern int PerlIO_get_bufsiz _((PerlIO *)); +#endif +#ifndef PerlIO_tmpfile +extern PerlIO * PerlIO_tmpfile _((void)); +#endif +#ifndef PerlIO_stdin +extern PerlIO * PerlIO_stdin _((void)); +#endif +#ifndef PerlIO_stdout +extern PerlIO * PerlIO_stdout _((void)); +#endif +#ifndef PerlIO_stderr +extern PerlIO * PerlIO_stderr _((void)); +#endif +#ifndef PerlIO_getpos +extern int PerlIO_getpos _((PerlIO *,Fpos_t *)); +#endif +#ifndef PerlIO_setpos +extern int PerlIO_setpos _((PerlIO *,const Fpos_t *)); +#endif +#endif /* Include guard */ diff --git a/gnu/usr.bin/perl/perlio.sym b/gnu/usr.bin/perl/perlio.sym new file mode 100644 index 00000000000..d7a345c4ccb --- /dev/null +++ b/gnu/usr.bin/perl/perlio.sym @@ -0,0 +1,49 @@ +# Symbols which arise as part of the PerlIO abstraction + +PerlIO_stderr +PerlIO_stderr +PerlIO_stdin +PerlIO_stdout +PerlIO_fast_gets +PerlIO_has_cntptr +PerlIO_canset_cnt +PerlIO_set_cnt +PerlIO_set_ptrcnt +PerlIO_get_cnt +PerlIO_get_bufsiz +PerlIO_get_ptr +PerlIO_get_base +PerlIO_has_base +PerlIO_puts +PerlIO_open +PerlIO_fdopen +PerlIO_reopen +PerlIO_close +PerlIO_eof +PerlIO_getname +PerlIO_getc +PerlIO_error +PerlIO_clearerr +PerlIO_flush +PerlIO_fileno +PerlIO_setlinebuf +PerlIO_putc +PerlIO_ungetc +PerlIO_read +PerlIO_write +PerlIO_vprintf +PerlIO_tell +PerlIO_seek +PerlIO_rewind +PerlIO_printf +PerlIO_stdoutf +PerlIO_tmpfile +PerlIO_importFILE +PerlIO_exportFILE +PerlIO_findFILE +PerlIO_releaseFILE +PerlIO_init +PerlIO_setpos +PerlIO_getpos +PerlIO_vsprintf +PerlIO_sprintf diff --git a/gnu/usr.bin/perl/perlsdio.h b/gnu/usr.bin/perl/perlsdio.h new file mode 100644 index 00000000000..5a15a719ca7 --- /dev/null +++ b/gnu/usr.bin/perl/perlsdio.h @@ -0,0 +1,309 @@ +/* + * Although we may not want stdio to be used including <stdio.h> here + * avoids issues where stdio.h has strange side effects + */ +#include <stdio.h> + +#ifdef PERLIO_IS_STDIO +/* + * Make this as close to original stdio as possible. + */ +#define PerlIO FILE +#define PerlIO_stderr() stderr +#define PerlIO_stdout() stdout +#define PerlIO_stdin() stdin + +#define PerlIO_printf fprintf +#define PerlIO_stdoutf printf +#define PerlIO_vprintf(f,fmt,a) vfprintf(f,fmt,a) +#define PerlIO_write(f,buf,count) fwrite1(buf,1,count,f) +#define PerlIO_open fopen +#define PerlIO_fdopen fdopen +#define PerlIO_reopen freopen +#define PerlIO_close(f) fclose(f) +#define PerlIO_puts(f,s) fputs(s,f) +#define PerlIO_putc(f,c) fputc(c,f) +#if defined(VMS) +# if defined(__DECC) + /* Unusual definition of ungetc() here to accomodate fast_sv_gets()' + * belief that it can mix getc/ungetc with reads from stdio buffer */ + int decc$ungetc(int __c, FILE *__stream); +# define PerlIO_ungetc(f,c) ((c) == EOF ? EOF : \ + ((*(f) && !((*(f))->_flag & _IONBF) && \ + ((*(f))->_ptr > (*(f))->_base)) ? \ + ((*(f))->_cnt++, *(--(*(f))->_ptr) = (c)) : decc$ungetc(c,f))) +# else +# define PerlIO_ungetc(f,c) ungetc(c,f) +# endif + /* Work around bug in DECCRTL/AXP (DECC v5.x) and some versions of old + * VAXCRTL which causes read from a pipe after EOF has been returned + * once to hang. + */ +# define PerlIO_getc(f) \ + (feof(f) ? EOF : getc(f)) +# define PerlIO_read(f,buf,count) \ + (feof(f) ? 0 : (SSize_t)fread(buf,1,count,f)) +#else +# define PerlIO_ungetc(f,c) ungetc(c,f) +# define PerlIO_getc(f) getc(f) +# define PerlIO_read(f,buf,count) (SSize_t)fread(buf,1,count,f) +#endif +#define PerlIO_eof(f) feof(f) +#define PerlIO_getname(f,b) fgetname(f,b) +#define PerlIO_error(f) ferror(f) +#define PerlIO_fileno(f) fileno(f) +#define PerlIO_clearerr(f) clearerr(f) +#define PerlIO_flush(f) Fflush(f) +#define PerlIO_tell(f) ftell(f) +#define PerlIO_seek(f,o,w) fseek(f,o,w) +#ifdef HAS_FGETPOS +#define PerlIO_getpos(f,p) fgetpos(f,p) +#endif +#ifdef HAS_FSETPOS +#define PerlIO_setpos(f,p) fsetpos(f,p) +#endif + +#define PerlIO_rewind(f) rewind(f) +#define PerlIO_tmpfile() tmpfile() + +#define PerlIO_importFILE(f,fl) (f) +#define PerlIO_exportFILE(f,fl) (f) +#define PerlIO_findFILE(f) (f) +#define PerlIO_releaseFILE(p,f) ((void) 0) + +#ifdef HAS_SETLINEBUF +#define PerlIO_setlinebuf(f) setlinebuf(f); +#else +#define PerlIO_setlinebuf(f) setvbuf(f, Nullch, _IOLBF, 0); +#endif + +/* Now our interface to Configure's FILE_xxx macros */ + +#ifdef USE_STDIO_PTR +#define PerlIO_has_cntptr(f) 1 +#define PerlIO_get_ptr(f) FILE_ptr(f) +#define PerlIO_get_cnt(f) FILE_cnt(f) + +#ifdef STDIO_CNT_LVALUE +#define PerlIO_canset_cnt(f) 1 +#ifdef STDIO_PTR_LVALUE +#define PerlIO_fast_gets(f) 1 +#endif +#define PerlIO_set_cnt(f,c) (FILE_cnt(f) = (c)) +#else +#define PerlIO_canset_cnt(f) 0 +#define PerlIO_set_cnt(f,c) abort() +#endif + +#ifdef STDIO_PTR_LVALUE +#define PerlIO_set_ptrcnt(f,p,c) (FILE_ptr(f) = (p), PerlIO_set_cnt(f,c)) +#else +#define PerlIO_set_ptrcnt(f,p,c) abort() +#endif + +#else /* USE_STDIO_PTR */ + +#define PerlIO_has_cntptr(f) 0 +#define PerlIO_canset_cnt(f) 0 +#define PerlIO_get_cnt(f) (abort(),0) +#define PerlIO_get_ptr(f) (abort(),(void *)0) +#define PerlIO_set_cnt(f,c) abort() +#define PerlIO_set_ptrcnt(f,p,c) abort() + +#endif /* USE_STDIO_PTR */ + +#ifndef PerlIO_fast_gets +#define PerlIO_fast_gets(f) 0 +#endif + + +#ifdef FILE_base +#define PerlIO_has_base(f) 1 +#define PerlIO_get_base(f) FILE_base(f) +#define PerlIO_get_bufsiz(f) FILE_bufsiz(f) +#else +#define PerlIO_has_base(f) 0 +#define PerlIO_get_base(f) (abort(),(void *)0) +#define PerlIO_get_bufsiz(f) (abort(),0) +#endif +#else /* PERLIO_IS_STDIO */ +#ifdef PERL_CORE +#ifndef PERLIO_NOT_STDIO +#define PERLIO_NOT_STDIO 1 +#endif +#endif +#ifdef PERLIO_NOT_STDIO +#if PERLIO_NOT_STDIO +/* + * Strong denial of stdio - make all stdio calls (we can think of) errors + */ +#include "nostdio.h" +#undef fprintf +#undef tmpfile +#undef fclose +#undef fopen +#undef vfprintf +#undef fgetc +#undef fputc +#undef fputs +#undef ungetc +#undef fread +#undef fwrite +#undef fgetpos +#undef fseek +#undef fsetpos +#undef ftell +#undef rewind +#undef fdopen +#undef popen +#undef pclose +#undef getw +#undef putw +#undef freopen +#undef setbuf +#undef setvbuf +#undef fscanf +#undef fgets +#undef getc_unlocked +#undef putc_unlocked +#define fprintf _CANNOT _fprintf_ +#define stdin _CANNOT _stdin_ +#define stdout _CANNOT _stdout_ +#define stderr _CANNOT _stderr_ +#define tmpfile() _CANNOT _tmpfile_ +#define fclose(f) _CANNOT _fclose_ +#define fflush(f) _CANNOT _fflush_ +#define fopen(p,m) _CANNOT _fopen_ +#define freopen(p,m,f) _CANNOT _freopen_ +#define setbuf(f,b) _CANNOT _setbuf_ +#define setvbuf(f,b,x,s) _CANNOT _setvbuf_ +#define fscanf _CANNOT _fscanf_ +#define vfprintf(f,fmt,a) _CANNOT _vfprintf_ +#define fgetc(f) _CANNOT _fgetc_ +#define fgets(s,n,f) _CANNOT _fgets_ +#define fputc(c,f) _CANNOT _fputc_ +#define fputs(s,f) _CANNOT _fputs_ +#define getc(f) _CANNOT _getc_ +#define putc(c,f) _CANNOT _putc_ +#define ungetc(c,f) _CANNOT _ungetc_ +#define fread(b,s,c,f) _CANNOT _fread_ +#define fwrite(b,s,c,f) _CANNOT _fwrite_ +#define fgetpos(f,p) _CANNOT _fgetpos_ +#define fseek(f,o,w) _CANNOT _fseek_ +#define fsetpos(f,p) _CANNOT _fsetpos_ +#define ftell(f) _CANNOT _ftell_ +#define rewind(f) _CANNOT _rewind_ +#define clearerr(f) _CANNOT _clearerr_ +#define feof(f) _CANNOT _feof_ +#define ferror(f) _CANNOT _ferror_ +#define __filbuf(f) _CANNOT __filbuf_ +#define __flsbuf(c,f) _CANNOT __flsbuf_ +#define _filbuf(f) _CANNOT _filbuf_ +#define _flsbuf(c,f) _CANNOT _flsbuf_ +#define fdopen(fd,p) _CANNOT _fdopen_ +#define fileno(f) _CANNOT _fileno_ +#define flockfile(f) _CANNOT _flockfile_ +#define ftrylockfile(f) _CANNOT _ftrylockfile_ +#define funlockfile(f) _CANNOT _funlockfile_ +#define getc_unlocked(f) _CANNOT _getc_unlocked_ +#define putc_unlocked(c,f) _CANNOT _putc_unlocked_ +#define popen(c,m) _CANNOT _popen_ +#define getw(f) _CANNOT _getw_ +#define putw(v,f) _CANNOT _putw_ +#define pclose(f) _CANNOT _pclose_ + +#else /* if PERLIO_NOT_STDIO */ +/* + * PERLIO_NOT_STDIO defined as 0 + * Declares that both PerlIO and stdio can be used + */ +#endif /* if PERLIO_NOT_STDIO */ +#else /* ifdef PERLIO_NOT_STDIO */ +/* + * PERLIO_NOT_STDIO not defined + * This is "source level" stdio compatibility mode. + */ +#include "nostdio.h" +#undef FILE +#define FILE PerlIO +#undef fprintf +#undef tmpfile +#undef fclose +#undef fopen +#undef vfprintf +#undef fgetc +#undef fputc +#undef fputs +#undef ungetc +#undef fread +#undef fwrite +#undef fgetpos +#undef fseek +#undef fsetpos +#undef ftell +#undef rewind +#undef fdopen +#undef popen +#undef pclose +#undef getw +#undef putw +#undef freopen +#undef setbuf +#undef setvbuf +#undef fscanf +#undef fgets +#define fprintf PerlIO_printf +#define stdin PerlIO_stdin() +#define stdout PerlIO_stdout() +#define stderr PerlIO_stderr() +#define tmpfile() PerlIO_tmpfile() +#define fclose(f) PerlIO_close(f) +#define fflush(f) PerlIO_flush(f) +#define fopen(p,m) PerlIO_open(p,m) +#define vfprintf(f,fmt,a) PerlIO_vprintf(f,fmt,a) +#define fgetc(f) PerlIO_getc(f) +#define fputc(c,f) PerlIO_putc(f,c) +#define fputs(s,f) PerlIO_puts(f,s) +#define getc(f) PerlIO_getc(f) +#define getc_unlocked(f) PerlIO_getc(f) +#define putc(c,f) PerlIO_putc(f,c) +#define putc_unlocked(c,f) PerlIO_putc(c,f) +#define ungetc(c,f) PerlIO_ungetc(f,c) +#if 0 +/* return values of read/write need work */ +#define fread(b,s,c,f) PerlIO_read(f,b,(s*c)) +#define fwrite(b,s,c,f) PerlIO_write(f,b,(s*c)) +#else +#define fread(b,s,c,f) _CANNOT fread +#define fwrite(b,s,c,f) _CANNOT fwrite +#endif +#define fgetpos(f,p) PerlIO_getpos(f,p) +#define fseek(f,o,w) PerlIO_seek(f,o,w) +#define fsetpos(f,p) PerlIO_setpos(f,p) +#define ftell(f) PerlIO_tell(f) +#define rewind(f) PerlIO_rewind(f) +#define clearerr(f) PerlIO_clearerr(f) +#define feof(f) PerlIO_eof(f) +#define ferror(f) PerlIO_error(f) +#define fdopen(fd,p) PerlIO_fdopen(fd,p) +#define fileno(f) PerlIO_fileno(f) +#define popen(c,m) my_popen(c,m) +#define pclose(f) my_pclose(f) + +#define __filbuf(f) _CANNOT __filbuf_ +#define _filbuf(f) _CANNOT _filbuf_ +#define __flsbuf(c,f) _CANNOT __flsbuf_ +#define _flsbuf(c,f) _CANNOT _flsbuf_ +#define getw(f) _CANNOT _getw_ +#define putw(v,f) _CANNOT _putw_ +#define flockfile(f) _CANNOT _flockfile_ +#define ftrylockfile(f) _CANNOT _ftrylockfile_ +#define funlockfile(f) _CANNOT _funlockfile_ +#define freopen(p,m,f) _CANNOT _freopen_ +#define setbuf(f,b) _CANNOT _setbuf_ +#define setvbuf(f,b,x,s) _CANNOT _setvbuf_ +#define fscanf _CANNOT _fscanf_ +#define fgets(s,n,f) _CANNOT _fgets_ + +#endif /* ifdef PERLIO_NOT_STDIO */ +#endif /* PERLIO_IS_STDIO */ diff --git a/gnu/usr.bin/perl/perlsfio.h b/gnu/usr.bin/perl/perlsfio.h new file mode 100644 index 00000000000..8c9387fbd0c --- /dev/null +++ b/gnu/usr.bin/perl/perlsfio.h @@ -0,0 +1,58 @@ +/* The next #ifdef should be redundant if Configure behaves ... */ +#ifdef I_SFIO +#include <sfio.h> +#endif + +extern Sfio_t* _stdopen _ARG_((int, const char*)); +extern int _stdprintf _ARG_((const char*, ...)); + +#define PerlIO Sfio_t +#define PerlIO_stderr() sfstderr +#define PerlIO_stdout() sfstdout +#define PerlIO_stdin() sfstdin + +#define PerlIO_printf sfprintf +#define PerlIO_stdoutf _stdprintf +#define PerlIO_vprintf(f,fmt,a) sfvprintf(f,fmt,a) +#define PerlIO_read(f,buf,count) sfread(f,buf,count) +#define PerlIO_write(f,buf,count) sfwrite(f,buf,count) +#define PerlIO_open(path,mode) sfopen(NULL,path,mode) +#define PerlIO_fdopen(fd,mode) _stdopen(fd,mode) +#define PerlIO_close(f) sfclose(f) +#define PerlIO_puts(f,s) sfputr(f,s,-1) +#define PerlIO_putc(f,c) sfputc(f,c) +#define PerlIO_ungetc(f,c) sfungetc(f,c) +#define PerlIO_sprintf sfsprintf +#define PerlIO_getc(f) sfgetc(f) +#define PerlIO_eof(f) sfeof(f) +#define PerlIO_error(f) sferror(f) +#define PerlIO_fileno(f) sffileno(f) +#define PerlIO_clearerr(f) sfclrerr(f) +#define PerlIO_flush(f) sfsync(f) +#define PerlIO_tell(f) sftell(f) +#define PerlIO_seek(f,o,w) sfseek(f,o,w) +#define PerlIO_rewind(f) (void) sfseek((f),0L,0) +#define PerlIO_tmpfile() sftmp(0) + +#define PerlIO_importFILE(f,fl) croak("Import from FILE * unimplemeted") +#define PerlIO_exportFILE(f,fl) croak("Export to FILE * unimplemeted") +#define PerlIO_findFILE(f) NULL +#define PerlIO_releaseFILE(p,f) croak("Release of FILE * unimplemeted") + +#define PerlIO_setlinebuf(f) sfset(f,SF_LINE,1) + +/* Now our interface to equivalent of Configure's FILE_xxx macros */ + +#define PerlIO_has_cntptr(f) 1 +#define PerlIO_get_ptr(f) ((f)->next) +#define PerlIO_get_cnt(f) ((f)->endr - (f)->next) +#define PerlIO_canset_cnt(f) 1 +#define PerlIO_fast_gets(f) 1 +#define PerlIO_set_ptrcnt(f,p,c) ((f)->next = (p)) +#define PerlIO_set_cnt(f,c) 1 + +#define PerlIO_has_base(f) 1 +#define PerlIO_get_base(f) ((f)->data) +#define PerlIO_get_bufsiz(f) ((f)->endr - (f)->data) + + diff --git a/gnu/usr.bin/perl/universal.c b/gnu/usr.bin/perl/universal.c new file mode 100644 index 00000000000..d6689f8acf9 --- /dev/null +++ b/gnu/usr.bin/perl/universal.c @@ -0,0 +1,213 @@ +#include "EXTERN.h" +#include "perl.h" +#include "XSUB.h" + +/* + * Contributed by Graham Barr <Graham.Barr@tiuk.ti.com> + * The main guts of traverse_isa was actually copied from gv_fetchmeth + */ + +static SV * +isa_lookup(stash, name, len, level) +HV *stash; +char *name; +int len; +int level; +{ + AV* av; + GV* gv; + GV** gvp; + HV* hv = Nullhv; + + if (!stash) + return &sv_undef; + + if(strEQ(HvNAME(stash), name)) + return &sv_yes; + + if (level > 100) + croak("Recursive inheritance detected"); + + gvp = (GV**)hv_fetch(stash, "::ISA::CACHE::", 14, FALSE); + + if (gvp && (gv = *gvp) != (GV*)&sv_undef && (hv = GvHV(gv))) { + SV* sv; + SV** svp = (SV**)hv_fetch(hv, name, len, FALSE); + if (svp && (sv = *svp) != (SV*)&sv_undef) + return sv; + } + + gvp = (GV**)hv_fetch(stash,"ISA",3,FALSE); + + if (gvp && (gv = *gvp) != (GV*)&sv_undef && (av = GvAV(gv))) { + if(!hv) { + gvp = (GV**)hv_fetch(stash, "::ISA::CACHE::", 14, TRUE); + + gv = *gvp; + + if (SvTYPE(gv) != SVt_PVGV) + gv_init(gv, stash, "::ISA::CACHE::", 14, TRUE); + + hv = GvHVn(gv); + } + if(hv) { + SV** svp = AvARRAY(av); + I32 items = AvFILL(av) + 1; + while (items--) { + SV* sv = *svp++; + HV* basestash = gv_stashsv(sv, FALSE); + if (!basestash) { + if (dowarn) + warn("Can't locate package %s for @%s::ISA", + SvPVX(sv), HvNAME(stash)); + continue; + } + if(&sv_yes == isa_lookup(basestash, name, len, level + 1)) { + (void)hv_store(hv,name,len,&sv_yes,0); + return &sv_yes; + } + } + (void)hv_store(hv,name,len,&sv_no,0); + } + } + + return boolSV(strEQ(name, "UNIVERSAL")); +} + +bool +sv_derived_from(sv, name) +SV * sv ; +char * name ; +{ + SV *rv; + char *type; + HV *stash; + + stash = Nullhv; + type = Nullch; + + if (SvGMAGICAL(sv)) + mg_get(sv) ; + + if (SvROK(sv)) { + sv = SvRV(sv); + type = sv_reftype(sv,0); + if(SvOBJECT(sv)) + stash = SvSTASH(sv); + } + else { + stash = gv_stashsv(sv, FALSE); + } + + return (type && strEQ(type,name)) || + (stash && isa_lookup(stash, name, strlen(name), 0) == &sv_yes) + ? TRUE + : FALSE ; + +} + + +static +XS(XS_UNIVERSAL_isa) +{ + dXSARGS; + SV *sv; + char *name; + + if (items != 2) + croak("Usage: UNIVERSAL::isa(reference, kind)"); + + sv = ST(0); + name = (char *)SvPV(ST(1),na); + + ST(0) = boolSV(sv_derived_from(sv, name)); + XSRETURN(1); +} + +static +XS(XS_UNIVERSAL_can) +{ + dXSARGS; + SV *sv; + char *name; + SV *rv; + HV *pkg = NULL; + + if (items != 2) + croak("Usage: UNIVERSAL::can(object-ref, method)"); + + sv = ST(0); + name = (char *)SvPV(ST(1),na); + rv = &sv_undef; + + if(SvROK(sv)) { + sv = (SV*)SvRV(sv); + if(SvOBJECT(sv)) + pkg = SvSTASH(sv); + } + else { + pkg = gv_stashsv(sv, FALSE); + } + + if (pkg) { + GV *gv = gv_fetchmethod_autoload(pkg, name, FALSE); + if (gv && isGV(gv)) + rv = sv_2mortal(newRV((SV*)GvCV(gv))); + } + + ST(0) = rv; + XSRETURN(1); +} + +static +XS(XS_UNIVERSAL_VERSION) +{ + dXSARGS; + HV *pkg; + GV **gvp; + GV *gv; + SV *sv; + char *undef; + double req; + + if(SvROK(ST(0))) { + sv = (SV*)SvRV(ST(0)); + if(!SvOBJECT(sv)) + croak("Cannot find version of an unblessed reference"); + pkg = SvSTASH(sv); + } + else { + pkg = gv_stashsv(ST(0), FALSE); + } + + gvp = pkg ? (GV**)hv_fetch(pkg,"VERSION",7,FALSE) : Null(GV**); + + if (gvp && (gv = *gvp) != (GV*)&sv_undef && (sv = GvSV(gv))) { + SV *nsv = sv_newmortal(); + sv_setsv(nsv, sv); + sv = nsv; + undef = Nullch; + } + else { + sv = (SV*)&sv_undef; + undef = "(undef)"; + } + + if (items > 1 && (undef || (req = SvNV(ST(1)), req > SvNV(sv)))) + croak("%s version %s required--this is only version %s", + HvNAME(pkg), SvPV(ST(1),na), undef ? undef : SvPV(sv,na)); + + ST(0) = sv; + + XSRETURN(1); +} + +void +boot_core_UNIVERSAL() +{ + char *file = __FILE__; + + newXS("UNIVERSAL::isa", XS_UNIVERSAL_isa, file); + newXS("UNIVERSAL::can", XS_UNIVERSAL_can, file); + newXS("UNIVERSAL::VERSION", XS_UNIVERSAL_VERSION, file); +} |