Permalink
Browse files

perl 5.0 alpha 9

[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]
  • Loading branch information...
Larry Wall
Larry Wall committed May 4, 1994
1 parent 2304df6 commit 85e6fe838fb25b257a1b363debf8691c0992ef71
Showing 444 changed files with 12,756 additions and 12,394 deletions.
View
@@ -1,4 +0,0 @@
-This directory created by Configure to save information that should
-persist across sessions.
-
-You may safely delete it if you wish.
View
@@ -1 +0,0 @@
-lwall
View
@@ -1,6 +1,6 @@
: basic variables
-package=perl
-baserev=4.1
+package=perl5
+baserev=5.0
patchbranch=1
mydiff='diff -c'
maintname='Larry Wall'
View
@@ -1,42 +0,0 @@
-
-
-
-
-
-
- Larry Wall
- Matthias Neeracher
- c/o 4920 El Camino Real
- Los Altos, CA 94022
-
- March 26, 1993
-
-
- Gary Little
- M/S 37-X
- Apple Computer, Inc.
- 20525 Mariani Ave.
- Cupertino, CA 95014
-
- Dear Gary,
-
- We are writing you as the product manager of Apple's
- EssentialsoToolsoObjects (E.T.O.) CD-ROM. As the authors of Perl for
- MPW, we hereby authorize Apple to distribute Perl for MPW including
- source code on E.T.O. according to the terms of the "Artistic" license
- distributed with Perl and enclosed with this letter. The Perl for MPW
- materials are hereby confirmed as being provided to Apple free of
- charge, for the purpose of being distributed on E.T.O. This
- authorization includes distribution of Perl for MPW on successive
- releases of E.T.O. and distribution of revisions to Perl for MPW that
- we provide you with or agree to.
-
- Thank you for your efforts in promoting the use of Perl amongst
- Macintosh developers.
-
- Sincerely,
-
-
- ________________________ ________________________
-
- Larry Wall Matthias Neeracher
View
7 B1
@@ -1,7 +0,0 @@
-$ActualRevision = "M";
-
-($junk, $ActualRevision) = '';
-
-chop($ActualRevision);
-
-($name, $ActualRevision, $junk) = split(/\s+/, $ActualRevision);
View
@@ -1,142 +0,0 @@
-Article 38050 of comp.sys.amiga.programmer:
-Newsgroups: comp.sys.amiga.programmer
-Path: netlabs!news.cerf.net!usc!howland.reston.ans.net!pipex!uunet!majipoor.cygnus.com!fnf
-From: fnf@cygnus.com (Fred Fish)
-Subject: Re: FreshFish-dec93 CD; broken perl thereon
-Message-ID: <CKBuwv.7qF@cygnus.com>
-Organization: Cygnus Support, Mountain View, CA
-References: <1994Jan20.095600.8371@philips.oz.au> <D> <bruce.0r61@zuhause.mn.org>
-Date: Fri, 28 Jan 1994 06:48:29 GMT
-Lines: 129
-
-In article <bruce.0r61@zuhause.mn.org>,
-Bruce Albrecht <bruce@zuhause.MN.ORG> wrote:
->In article <1994Jan20.095600.8371@philips.oz.au> gduncan@philips.oz.au (Gary Duncan) writes:
->Me too. I don't have the December Fresh Fish, so I can't comment on it,
->but I have been wondering what it will take to do a fresh port of it anyway.
-
-The diffs that I applied to the base FSF distribution are:
-
-diff -rc perl-4.036-fsf/Configure perl-4.036-amiga/Configure
-*** perl-4.036-fsf/Configure Mon Feb 8 20:37:48 1993
---- perl-4.036-amiga/Configure Mon Sep 27 21:46:16 1993
-***************
-*** 4023,4029 ****
- eval $ans;;
- esac
- chmod +x doSH
-! ./doSH
-
- if $contains '^depend:' [Mm]akefile >/dev/null 2>&1; then
- dflt=n
---- 4023,4029 ----
- eval $ans;;
- esac
- chmod +x doSH
-! sh doSH
-
- if $contains '^depend:' [Mm]akefile >/dev/null 2>&1; then
- dflt=n
-diff -rc perl-4.036-fsf/Makefile.SH perl-4.036-amiga/Makefile.SH
-*** perl-4.036-fsf/Makefile.SH Mon Feb 8 20:35:21 1993
---- perl-4.036-amiga/Makefile.SH Tue Sep 28 07:16:24 1993
-***************
-*** 349,355 ****
-
- test: perl
- - cd t && chmod +x TEST */*.t
-! - cd t && (rm -f perl; $(SLN) ../perl perl) && ./perl TEST </dev/tty
-
- clist:
- echo $(c) | tr ' ' '\012' >.clist
---- 349,355 ----
-
- test: perl
- - cd t && chmod +x TEST */*.t
-! - cd t && (rm -f perl; $(SLN) ../perl perl) && ./perl TEST
-
- clist:
- echo $(c) | tr ' ' '\012' >.clist
-***************
-*** 373,376 ****
- ln Makefile ../Makefile
- ;;
- esac
-! rm -f makefile
---- 373,377 ----
- ln Makefile ../Makefile
- ;;
- esac
-! #rm -f makefile (AmigaDOS is case-independent)
-!
-diff -rc perl-4.036-fsf/makedepend.SH perl-4.036-amiga/makedepend.SH
-*** perl-4.036-fsf/makedepend.SH Mon Feb 8 20:36:27 1993
---- perl-4.036-amiga/makedepend.SH Mon Sep 27 22:06:33 1993
-***************
-*** 63,71 ****
- $cat /dev/null >.deptmp
- $rm -f *.c.c c/*.c.c
- if test -f Makefile; then
-! cp Makefile makefile
- fi
-! mf=makefile
- if test -f $mf; then
- defrule=`<$mf sed -n \
- -e '/^\.c\.o:.*;/{' \
---- 63,71 ----
- $cat /dev/null >.deptmp
- $rm -f *.c.c c/*.c.c
- if test -f Makefile; then
-! cp Makefile Makefile.bak
- fi
-! mf=Makefile
- if test -f $mf; then
- defrule=`<$mf sed -n \
- -e '/^\.c\.o:.*;/{' \
-diff -rc perl-4.036-fsf/perl.h perl-4.036-amiga/perl.h
-*** perl-4.036-fsf/perl.h Mon Feb 8 20:36:01 1993
---- perl-4.036-amiga/perl.h Mon Sep 27 22:06:19 1993
-***************
-*** 79,85 ****
---- 79,87 ----
- */
- #define HAS_ALARM
- #define HAS_CHOWN
-+ #ifndef amigados
- #define HAS_CHROOT
-+ #endif
- #define HAS_FORK
- #define HAS_GETLOGIN
- #define HAS_GETPPID
-***************
-*** 93,99 ****
---- 95,103 ----
- * password and group functions in general. All Unix systems do.
- */
- #define HAS_GROUP
-+ #ifndef amigados
- #define HAS_PASSWD
-+ #endif
-
- #endif /* !MSDOS */
-
-diff -rc perl-4.036-fsf/x2p/Makefile.SH perl-4.036-amiga/x2p/Makefile.SH
-*** perl-4.036-fsf/x2p/Makefile.SH Mon Feb 8 20:36:33 1993
---- perl-4.036-amiga/x2p/Makefile.SH Mon Sep 27 22:07:15 1993
-***************
-*** 157,160 ****
- ln Makefile ../Makefile
- ;;
- esac
-! rm -f makefile
---- 157,160 ----
- ln Makefile ../Makefile
- ;;
- esac
-! #rm -f makefile
-
-
-
-
-
-
View
@@ -1,72 +0,0 @@
-#!/usr/bin/perl
-
-#
-# I thought that I would try out some perl 5 features for the first time.
-# So I wrote a small program, included below. It died, and the partial
-# output looks very much like what I wanted to accompish. Even if the program
-# had not died, there is still the problem that no output was given under the
-# label "sonia:".
-#
-# Since the output is close, perhaps a bug lurks within...(?) I'm using the
-# compiled binary provided in the perl5a6 tar file. I tried to write this
-# post so it could be given to perl with the -x flag. You should get the
-# output I describe here --
-# James Bence
-# jbence@math.ucla.edu
-#
-# Output:
-#
-# Pushed ege into @sonia
-# Pushed caflisch into @joshua
-# Pushed catalina into @julia
-# Pushed lunnon into @sonia
-# Pushed m270alg into @redwood
-# Pushed harten into @joshua
-# Pushed ycc into @joshua
-# Pushed m270wsc into @redwood
-#
-#
-# joshua:
-# caflisch harten ycc
-#
-# sonia:
-#
-#
-# redwood:
-# m270alg m270wsc
-#
-# julia:
-# Segmentation fault
-#
-#
-
-require 5.000;
-
-while (<DATA>) {
- ($login,$host) = split;
- push(@{$hostref{$host}},$login); # t/op/ref.t (22) suggests this is ok.
- print "Pushed $login into \@$host\n";
-}
-
-print"\n\n";
-
-while ( ($host,$ref) = each(%hostref)) {
- print "$host:\n ";
- $count = 0;
- foreach $person (@{$ref}) {
- print $person, " ";
- $count++;
- if ($count % 5 == 0) { print "\n "; }
- }
- print "\n\n";
-}
-
-__END__
-ege sonia
-caflisch joshua
-catalina julia
-lunnon sonia
-m270alg redwood
-harten joshua
-ycc joshua
-m270wsc redwood
View
@@ -1,4 +0,0 @@
-@a = ( 5, 6, 7, 8);
-&foo(1, 2, @a);
-
-sub foo { my($a, $b, @c) = @_; print scalar(@c), "\n"; }
View
@@ -1 +0,0 @@
-$B = [X, Y]; $B = 1; print $B
View
@@ -1,2 +0,0 @@
-delete $ENV{TERM};
-system "env";
View
@@ -1,37 +0,0 @@
-Article 18849 of comp.lang.perl:
-Path: netlabs!news.cerf.net!usc!howland.reston.ans.net!xlink.net!zib-berlin.de!zrz.TU-Berlin.DE!w204zrz!koen1830
-From: koen1830@w204zrz.zrz.tu-berlin.de (Andreas Koenig)
-Newsgroups: comp.lang.perl
-Subject: Bug in find2perl
-Date: 14 Feb 1994 09:43:16 GMT
-Organization: mal franz, mal anna
-Lines: 22
-Message-ID: <2jnh3k$hcv@brachio.zrz.TU-Berlin.DE>
-Reply-To: k@franz.ww.TU-Berlin.DE
-NNTP-Posting-Host: w204zrz.zrz.tu-berlin.de
-Cc:
-
-Hi all,
-
-I've encountered a bug in find2perl when used with the -prune Option.
-As there have been some bugreports recently, *and* also because there
-has to be fixed an incompatibility with perl5, I don't try to offer a
-fix, sorry. The bug comes and goes like this (verified for SUN and
-NeXT):
-
-%/usr/bin/find foo -print
-foo
-foo/bar
-foo/bar/baz
-%/usr/bin/find foo -prune -print
-foo
-%perl /usr/local/bin/find2perl foo -prune -print | perl
-foo
-foo/bar
-%perl5a5 /usr/local/bin/find2perl foo -prune -print | perl5a5
-Final $ should be \$ or $name at /usr/local/bin/find2perl line 553, at end of string
-syntax error at /usr/local/bin/find2perl line 553, near ""^$tmp$""
-Execution of /usr/local/bin/find2perl aborted due to compilation errors.
-
-
-
View
@@ -1,7 +0,0 @@
-#!./perl
-
-format STDOUT {
- formline "@<<<<<<<<<<<<< @>>>>>>>>>>>\n", "foo", "bar";
-}
-
-write;
View
@@ -1,37 +0,0 @@
-Article 20341 of comp.lang.perl:
-Path: netlabs!news.cerf.net!mvb.saic.com!MathWorks.Com!news.kei.com!hookup!swrinde!gatech!taco.cc.ncsu.edu!taco.cc.ncsu.edu!setzer
-From: setzer@math.ncsu.edu (William Setzer)
-Newsgroups: comp.lang.perl
-Subject: perl5a6 bug: sort sub @ary
-Date: 30 Mar 94 13:49:20
-Organization: The Chebychev Church of Probability
-Lines: 23
-Distribution: world
-Message-ID: <SETZER.94Mar30134920@math.math.ncsu.edu>
-NNTP-Posting-Host: math.ncsu.edu
-
-Ok, here's a weird one. Using the precompiled perl5a6 binary for the
-sun, the following dumps core:
-----
-@S = (0, 1, 2, 3);
-for ("A", "D", "b", "c") { $foo{$i++} = $_; }
-# for (sort { lc($foo{$a}) cmp lc($foo{$b}) } @S) { print $foo{$_}, "\n"; }
-for (sort Alpha @S) { print $foo{$_}, "\n"; }
-
-sub Alpha { lc($foo{$a}) cmp lc($foo{$b}); }
-----
-[Output]
-Segmentation fault (core dumped)
-----
-However, if you comment out the "sort Alpha" and uncomment the "sort
-{lc(...) cmp lc(...) }" line, everything works as expected. Also note
-that if you uncomment both "sort"s, everything also works as expected.
-Do-do-do-do [twilight zone music :-].
-
-William
-
-PS: Does anyone actually care about these bug reports? I thought I
- remember Larry saying that he preferred them in c.l.p., but it
- wouldn't be the first time my memory has fritzed.
-
-
View
@@ -1,6 +0,0 @@
-@S = (0, 1, 2, 3);
-for ("A", "D", "b", "c") { $foo{$i++} = $_; }
-# for (sort { lc($foo{$a}) cmp lc($foo{$b}) } @S) { print $foo{$_}, "\n"; }
-for (sort Alpha @S) { print $foo{$_}, "\n"; }
-
-sub Alpha { lc($foo{$a}) cmp lc($foo{$b}); }
View
@@ -0,0 +1,6 @@
+{
+ local(%ENV);
+ $ENV{OOPS} = OOPS;
+ system 'echo NOT $OOPS';
+}
+system 'echo $OOPS';
Oops, something went wrong.

0 comments on commit 85e6fe8

Please sign in to comment.