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