diff options
Diffstat (limited to 'Bugs')
| -rw-r--r-- | Bugs/minmax | 12 | ||||
| -rw-r--r-- | Bugs/misparse | 2 | ||||
| -rw-r--r-- | Bugs/pagdir | 24 | ||||
| -rw-r--r-- | Bugs/replacecase | 1 | ||||
| -rw-r--r-- | Bugs/stuff | 64 |
5 files changed, 89 insertions, 14 deletions
diff --git a/Bugs/minmax b/Bugs/minmax deleted file mode 100644 index 4251f81587..0000000000 --- a/Bugs/minmax +++ /dev/null @@ -1,12 +0,0 @@ -#!./perl - -sub minmax { - eval '@_ = sort { $a '.shift().' $b } @_'; - (shift, pop(@_)); -} - -($x, $y) = &minmax('<=>', 2, 4, 1, 0, 3); -print "x = $x, y = $y\n"; -($x, $y) = &minmax('cmp', "foo", "bar", "zot", "xyzzy"); -print "x = $x, y = $y\n"; - diff --git a/Bugs/misparse b/Bugs/misparse deleted file mode 100644 index a76710cdce..0000000000 --- a/Bugs/misparse +++ /dev/null @@ -1,2 +0,0 @@ -print STDERR "Can't open $mib_name: $!\n" -&objviews'Exit; diff --git a/Bugs/pagdir b/Bugs/pagdir new file mode 100644 index 0000000000..7cc76f2b51 --- /dev/null +++ b/Bugs/pagdir @@ -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: mycroft@trinity.gnu.ai.mit.edu (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: <MYCROFT.93Sep6150110@trinity.gnu.ai.mit.edu> +References: <26fptu$1q1@terminator.rs.itd.umich.edu> <26fve4$ivf@homer.cs.mcgill.ca> +NNTP-Posting-Host: trinity.gnu.ai.mit.edu +In-reply-to: storm@cs.mcgill.ca'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. + + + diff --git a/Bugs/replacecase b/Bugs/replacecase new file mode 100644 index 0000000000..795ea9db46 --- /dev/null +++ b/Bugs/replacecase @@ -0,0 +1 @@ +s/\w/[\u$&\l$&]/gi; diff --git a/Bugs/stuff b/Bugs/stuff new file mode 100644 index 0000000000..3337af01e2 --- /dev/null +++ b/Bugs/stuff @@ -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: asherman@fmrco.com (Aaron Sherman) +Subject: Re: perl 5a2 cannot "die" (plus current list o' bugs) +In-Reply-To: wjm@feenix.metronet.com's message of Fri, 20 Aug 1993 21:32:10 GMT +Message-ID: <ASHERMAN.93Aug23094250@uboat.fmrco.com> +Sender: news@fmrco.uucp +X-Quote: "...accepting is much harder than giving." -Mike Smith +Reply-To: asherman@fmrco.COM +Organization: I-Kinetics, 19 Bishop-Allen Dr., Cambridge, MA +References: <ASHERMAN.93Aug20102959@uboat.fmrco.com> <CC2uHM.6Hq@feenix.metronet.com> +Date: Mon, 23 Aug 1993 14:42:50 GMT +Lines: 47 + + +>>>>> wjm@feenix.metronet.com (Bill Middleton) said: + +wjm> asherman@fmrco.COM 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 asherman@i-kinetics.com + + |