From lwall@netlabs.com Date: Tue, 12 Sep 95 12:01:08 PDT
From: lwall@netlabs.com (Larry Wall)
To: jmc0@ns.gte.com
Subject: Re: Compile Perl 5.001?

In article <432033$shl@ceylon.gte.com> you write:
: print "Honk!\n" if &HEART($ENV{'USER'},'perl');

:-)

How 'bout:

    print "Honk!\n" if new User($ENV{USER})->HEART('perl5');

or

    print "Honk!\n" if (new User $ENV{USER})->HEART('perl5');

or

    print "Honk!\n" if HEART {new User $ENV{USER}} 'perl5';

Larry