perl 5.0 alpha 4

[editor's note: the sparc executables have not been included, and
emacs backup files have been removed.  This was reconstructed from a
tarball found on the September 1994 InfoMagic CD; the date of this is
approximate]

2 files changed, 2 insertions, 2 deletions

diff --git a/x2p/a2p.y b/x2p/a2p.y
index f333dad3e5..111a6f612b 100644
--- a/x2p/a2p.y
+++ b/x2p/a2p.y
@@ -171,7 +171,7 @@ term	: variable
 		{ $$ = oper2(OPOW,$1,$3); }
 	| term IN VAR
 		{ $$ = oper2(ODEFINED,aryrefarg($3),$1); }
-	| term '?' term ':' term
+	| cond '?' expr ':' expr
 		{ $$ = oper3(OCOND,$1,$3,$5); }
 	| variable INCR
 		{ $$ = oper1(OPOSTINCR,$1); }
diff --git a/x2p/find2perl.SH b/x2p/find2perl.SH
index 582a9924ad..541f2629d3 100755
--- a/x2p/find2perl.SH
+++ b/x2p/find2perl.SH
@@ -122,7 +122,7 @@ while (@ARGV) {
 	$out .= &tab . '($ino ' . &n(shift);
     }
     elsif ($_ eq 'size') {
-	$out .= &tab . '(int((-s _ + 511) / 512) ' . &n(shift);
+	$out .= &tab . '(int(((-s _) + 511) / 512) ' . &n(shift);
     }
     elsif ($_ eq 'atime') {
 	$out .= &tab . '(int(-A _) ' . &n(shift);