Path: utzoo!news-server.csri.toronto.edu!cs.utexas.edu!usc!sdd.hp.com!think.com!hsdndev!husc6!genrad!rep
From: rep@genrad.com (Pete Peterson)
Newsgroups: comp.lang.perl
Subject: Re: find2perl
Message-ID: <40899@genrad.UUCP>
Date: 7 Mar 91 14:02:10 GMT
References: <11674@jpl-devvax.JPL.NASA.GOV> <40887@genrad.UUCP> <11709@jpl-devvax.JPL.NASA.GOV>
Sender: news@genrad.UUCP
Reply-To: rep@thor.genrad.COM (Pete Peterson)
Organization: GenRad, Inc., Concord, Mass.
Lines: 65

In article <11709@jpl-devvax.JPL.NASA.GOV> lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:
 >
 >I've fixed that, and added -depth, -ls, -cpio, -ncpio and -tar.  So you
 >can call this a beta.
 >

Running the new version, I get, (sparc 1 -- SunOS 4.0.3):
thor% find2perl / -name vmunix -print | perl
yacc stack overflow in file find2perl at line 166, next 2 tokens ". substr"
Execution of find2perl aborted due to compilation errors.
.
.
.
This is perl, version 3.0
$Header: perly.c,v 3.0.1.10 91/01/11 18:22:48 lwall Locked $
Patch level: 44
----------------------------------------------------------------------

Being a hardware person, I have enough trouble understanding my own yacc
grammars without trying to understand Larry's.  Here are the final death
throes, as produced by perl -D1023 (because I was too lazy to look up which
bit I really wanted) in case they are helpful.

----------------------------------------------------------------------

state 4, char 037777777777
reduce 11
state 237, char 037777777777
Tokener at 
Tokener at 
Tokener at 	$out .= "&cpio('" . substr($_,0,1) . "', $fh)";
Tokener at $out .= "&cpio('" . substr($_,0,1) . "', $fh)";
reduce 39
state 6, char 0462
state 40, char 037777777777
Tokener at  .= "&cpio('" . substr($_,0,1) . "', $fh)";
Tokener at .= "&cpio('" . substr($_,0,1) . "', $fh)";
reduce 95
0x7d188: (02113) malloc 24 bytes
state 29, char 0456
reduce 77
state 27, char 0456
state 109, char 037777777777
Tokener at = "&cpio('" . substr($_,0,1) . "', $fh)";
state 217, char 037777777777
Tokener at  "&cpio('" . substr($_,0,1) . "', $fh)";
Tokener at "&cpio('" . substr($_,0,1) . "', $fh)";
0x7d548: (02114) malloc 24 bytes
0x7d588: (02115) malloc 32 bytes
0x61008: (02116) malloc 81 bytes
0x61008: (02117) rfree
0x7a408: (02118) realloc 8 bytes
state 46, char 037777777777
reduce 106
state 29, char 037777777777
Tokener at  . substr($_,0,1) . "', $fh)";
Tokener at . substr($_,0,1) . "', $fh)";
reduce 77
state 292, char 0456
state 109, char 037777777777
Tokener at  substr($_,0,1) . "', $fh)";
Tokener at substr($_,0,1) . "', $fh)";
state 71, char 037777777777
yacc stack overflow in file find2perl at line 166, next 2 tokens ". substr"
Execution of find2perl aborted due to compilation errors.