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