Re: $0 and path

[chris]

Looks like my debugger is not setting up $0

use strict;
use warnings;
my $prog = '???';

$prog = $0 =~ s!^.*/!! if defined $0; 

print "# GENERATED BY $prog\n";

On Fri, 02 Aug 2002 17:44:05 -0700, [EMAIL PROTECTED] (John W. Krahn)
wrote:

>( my $prog = $0 ) =~ s!^.*/!!;
>
>print "# GENERATED BY $prog\n";


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]