From: "francis Alix" <[EMAIL PROTECTED]>
> #!C:\BIN\DEV\Perl\bin\perl.exe -w
>
>
> my $chem=$0;
> $chem=~s/[^\\]*$//;
> print "path:$chem\n";
NOOOO.
$0 is NOT guaranteed to contain the full path.
use FindBin qw($Bin);
is the safe way.
Jenda
=========== [EMAIL PROTECTED] == http://Jenda.Krynicky.cz ==========
There is a reason for living. There must be. I've seen it somewhere.
It's just that in the mess on my table ... and in my brain
I can't find it.
--- me
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
