perl 5.0 alpha 3

[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]

Author: Larry Wall

Bugs/minmax

@@ -0,0 +1,24 @@
+Article 433 of comp.os.386bsd.apps:
+Path: netlabs!news.cerf.net!usc!howland.reston.ans.net!spool.mu.edu!bloom-beacon.mit.edu!ai-lab!life.ai.mit.edu!mycroft
+From: [email protected] (Charles Hannum)
+Newsgroups: comp.os.386bsd.apps
+Subject: Re: Perl-4.036?
+Date: 06 Sep 1993 19:01:10 GMT
+Organization: MIT Artificial Intelligence Lab
+Lines: 9
+Message-ID: <[email protected]>
+References: <[email protected]> <[email protected]>
+NNTP-Posting-Host: trinity.gnu.ai.mit.edu
+In-reply-to: [email protected]'s message of 6 Sep 1993 18:27:16 GMT
+
+
+   Perl 4.036 comipled without a single hitch under NetBSD 0.9 last
+   week.  It failed the db test, but I suspect that is due to the new
+   db stuff under NetBSD and the like...
+
+Yes.  The perl test seems to expect the database to be put in
+`foo.pag' and `foo.dir', which isn't the case any more.  I suspect
+lwall will fix this soon.
+
+
+

Bugs/misparse

@@ -0,0 +1 @@
+s/\w/[\u$&\l$&]/gi;

Bugs/pagdir

@@ -0,0 +1,64 @@
+Article 13355 of comp.lang.perl:
+Newsgroups: comp.lang.perl
+Path: netlabs!news.cerf.net!usc!cs.utexas.edu!uunet!fmrco!fmrco!asherman
+From: [email protected] (Aaron Sherman)
+Subject: Re: perl 5a2 cannot "die" (plus current list o' bugs)
+In-Reply-To: [email protected]'s message of Fri, 20 Aug 1993 21:32:10 GMT
+Message-ID: <[email protected]>
+Sender: [email protected]
+X-Quote: "...accepting is much harder than giving." -Mike Smith
+Reply-To: [email protected]
+Organization: I-Kinetics, 19 Bishop-Allen Dr., Cambridge, MA
+References: <[email protected]> <[email protected]>
+Date: Mon, 23 Aug 1993 14:42:50 GMT
+Lines: 47
+
+
+>>>>> [email protected] (Bill Middleton) said:
+
+wjm> [email protected] writes:
+
+>An interesting pair of bugs can be seen in the following output:
+
+wjm> I dont think so.  Could be in the compilation or something.  Did it
+wjm> pass all tests?  Each of the following work fine here on this HP.
+
+I tried compiling with Sun's native CC and GCC. Both worked fine, but
+caused this problem. I'll try it with Larry's original version when I
+get a chance.
+
+wjm> perl5 -e 'die "hello $. \n";
+wjm> hello  
+
+Ah. But, note that the $. STILL isn't working. So only ONE of those
+bugs did not show.
+
+This is my current list of bugs (not complete, but what I've had time
+to note). Hope it helps:
+
+"perl -e die" will cause a seg-fault
+
+$. is not updated
+
+Memory leak for anonymous arrays:
+	while(1) { @a = (1, 2, 3, [4, 5], 6); @a = (); }
+	Will keep allocating and not freeing memory.
+
+"perl -e 'sub foo {print 1} foo'" should either complain or call foo,
+	but does neither. Or, did Larry not impliment the &-less
+	function calling that he was talking about?
+
+"perl -le 'sub foo {1} $a = \&foo; print &{$a}; print &{$a} + 1'" should
+	not fail to parse.
+
+
+			-AJS
+
+--
+Aaron Sherman			I-Kinetics, Inc.
+Systems Engineer		  "Open Systems Stepstones"
+Voice: (617)661-8181		19 Bishop Allen Dr.
+Fax:   (617)661-8625		Cambridge, MA 02139
+Pager: (508)545-0584		[email protected]
+
+

Bugs/replacecase

@@ -1,18 +1,75 @@
-
+Incompatibilities
+-----------------
     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.
+    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.
+    context.  This means you can interpolate list values now.
 
-    You can't do a goto into a block that is optimized away.
+    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.
 
     Some error messages will be different.
+
+    The caller function now 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.
+
+New things
+----------
+    The -w switch is much more informative.
+
+    References.  See t/op/ref.t for examples.
+
+    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.
+
+    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
+    curlies.
+
+    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.
+
+    Saying "package;" requires explicit package name on global symbols.

Bugs/stuff

@@ -360,6 +360,7 @@ shlist:
 # AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
 $(obj) hv.o:
 	@ echo "You haven't done a "'"make depend" yet!'; exit 1
+
 makedepend: makedepend.SH
 	/bin/sh $(shellflags) makedepend.SH
 

Changes

@@ -1,18 +1,31 @@
+POSIX compatibility
+hash binding
+pack(P)
+fix gv refcnts
+
+/\Afoo/ (beginning of string, or where previous g match left off)
+/foo\Z/ (end of string only)
+Make specialized allocators
+Optimize switch statements
+Optimize foreach on array
+Optimize foreach (1..1000000)
 Set KEEP on constant split
-Optimize foreach on array.
-Execute all BEGINs and ENDs.
-Make a good way to determine if *.pl is being executed directly.
-Make specialized allocators.
-Optimize switches.
-Do debugger
-Cache eval tree
-Implement eval once
-Cache m//g state
+Cache eval tree (unless lexical outer scope used (mark in &compiling?))
 rcatmaybe
-Fix length($&)
-eval {} coredump
+Cache method lookup
+Shrink opcode tables via multiple implementations selected in peep
+Straighten out the RS stuff in BEGIN
+Make yyparse recursion longjmp() proof.
 
+sub mysplice(@, $, $, ...)?
+pretty function?  (or is it, as I suspect, a lib routine?)
+perlex function?
+X Perl?  Motif Perl?
+give DOG $bone?
+Nested destructors?
 make tr/// return histogram in list context?
-Do anything with "hint"?
+Implement eval once?  (Unnecessary with cache?)
 When does split() go to @_?
 undef wantarray in void context?
+goto &coroutine?
+filehandle references?

Makefile

@@ -1 +1,5 @@
-###############################################################################
+#!./perl
+
+sub foo;
+
+foo;

Todo

@@ -233,8 +233,8 @@ medium=''
 large=''
 huge=''
 optimize='-g'
-ccflags=' -I/usr/include/sun -I/usr/ucbinclude -DDEBUGGING'
-cppflags=' -I/usr/include/sun -I/usr/ucbinclude -DDEBUGGING'
+ccflags='-DDEBUGGING'
+cppflags='-DDEBUGGING'
 ldflags=''
 cc='cc'
 nativegcc=''