Wagner, David --- Senior Programmer Analyst --- WGO wrote:
ktb wrote:


	But while you are running the script $0 will always be true.  Also
from my testing the name in $0 shows the full pathname while what comes out
of File::Find is in reference to where you started the processing. So you
might need to do something like this:
	#
	# Start of the program
	#
	my $MyScript = $0;
	$MyScript =~ s/.+\//;
	if ( (-f) && ( ! /$MyScript/ ) )

Not sure in which version it was introduced, but try:

perldoc FindBin

http://danconia.org



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

Reply via email to