ftp_base::glob_pattern_match( $pattern, $subject )

805	function glob_pattern_match($pattern,$subject) {806		$out=null;807		$chunks=explode(';',$pattern);808		foreach($chunks as $pattern) {809			$escape=array('$','^','.','{','}','(',')','[',']','|');810			while(str_contains($pattern,'**'))811				$pattern=str_replace('**','*',$pattern);812			foreach($escape as $probe)813				$pattern=str_replace($probe,"\\$probe",$pattern);814			$pattern=str_replace('?*','*',815				str_replace('*?','*',816					str_replace('*',".*",817						str_replace('?','.{1,1}',$pattern))));818			$out[]=$pattern;819		}820		if(count($out)==1) return($this->glob_regexp("^$out[0]$",$subject));821		else {822			foreach($out as $tester)823				// TODO: This should probably be glob_regexp(), but needs tests.824				if($this->my_regexp("^$tester$",$subject)) return true;825		}826		return false;827	}