Path: utzoo!mnetor!uunet!lll-winken!lll-lcc!lll-tis!ames!elroy!devvax!lwall
From: lwall@devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.sources.bugs
Subject: Re: a2p and perldb bugs
Message-ID: <1434@devvax.JPL.NASA.GOV>
Date: 1 Mar 88 20:39:27 GMT
References: <6860@drutx.ATT.COM>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA.
Lines: 34
Keywords: perl perldb a2p awk

In article <6860@drutx.ATT.COM> vqh@drutx.UUCP (HoangVQ) writes:
: a2p bug #1: missing parenthesis after &&
: a2p bug #2: mishandling of blank lines
: perldb bug #1: backslashes are not accepted.

Fixed in patch 24.

I've also changed the "standard" location from /bin/perl to /usr/bin/perl.

And I've done as I threatened earlier and added the unary operators:
	-r	File is readable by effective uid.
	-w	File is writeable by effective uid.
	-x	File is executable by effective uid.
	-o	File is owned by effective uid.
	-R	File is readable by real uid.
	-W	File is writeable by real uid.
	-X	File is executable by real uid.
	-O	File is owned by real uid.
	-e	File exists.
	-z	File has zero size.
	-s	File has non-zero size.
	-f	File is a plain file.
	-d	File is a directory.
	-l	File is a symbolic link.

Ambiguous things like $abc-exp($def) should survive--the lexer only returns
a file test if the following character is non-alphabetic.  I just hope you
guys haven't been writing $abc-s/foo/bar/.  :-)

And there's symlink(), for those that can support it.

Sorry, no glob yet.  Haven't figured out the best way to do it.

Larry Wall
lwall@jpl-devvax.jpl.nasa.gov