250 	{

   250 	{

   251 	# normalize the path into an absolute one

   251 	# normalize the path into an absolute one

   252 	my  ($name,$path) = fileparse($_[0]);

   252 	my  ($name,$path) = fileparse($_[0]);

   253 	if($path eq '' && $name eq '') {return};

   253 	if($path eq '' && $name eq '') {return};

   254 	$path=~tr,\\,/,;

   254 	$path=~tr,\\,/,;

   255 	if( -e $path)

   259 	if( -e $path)

   256 		{

   260 		{

   257 		return abs_path($path)."/$name";

   261 		return abs_path($path)."/$name";

   258 		}

   262 		}

   259 	my @dir = split('/',$_[0]);

   263 	my @dir = split('/',$_[0]);