Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sdd.hp.com!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: wishlist: current line number variable
Message-ID: <8815@jpl-devvax.JPL.NASA.GOV>
Date: 20 Jul 90 23:32:12 GMT
References: <1131@etnibsd.UUCP> <8812@jpl-devvax.JPL.NASA.GOV> <15690@bfmny0.BFM.COM>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 26

In article <15690@bfmny0.BFM.COM> tneff@bfmny0.BFM.COM (Tom Neff) writes:
: In article <8812@jpl-devvax.JPL.NASA.GOV> lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:
: >Oh, now that I think of it, I guess you could always use -P and get the
: >C preprocessor to translate __LINE__ and __FILE__ for you.  But I'll
: >add __LINE__ and __FILE__ to the Perl tokener.  
: 
: This is definitely a nice idea, and the right way to do it too.  A lot
: of us could use this feature.

It's already in.

: While you're at it, could you make __STDPERL__ evaluate to constant 1?  :-)

Well, I don't think so.  However, after the next patch you'll be able to
run this article through perl -x and it will print out "howdy".

#!/usr/bin/perl
$_ = <STDIN>;
print;
__END__
howdy

Think a little about the possible implications of that.

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