Subversion Repositories DevTools

Rev

Rev 263 | Rev 345 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 263 Rev 343
Line 334... Line 334...
334 
    #
 334 
    #
335 
    for my $dir ( split ( $ScmPathSep, $upath ) )
 335 
    for my $dir ( split ( $ScmPathSep, $upath ) )
336 
    {
 336 
    {
337 
        for my $ext ( @elist )
 337 
        for my $ext ( @elist )
338 
        {
 338 
        {
339 
            my $tool = "$dir$ScmDirSep$prog$ext";
 339 
            my $tool = "$dir/$prog$ext";
340 
            Debug2( "LocateProgInPath: Look for: $tool" );
 340 
            Debug2( "LocateProgInPath: Look for: $tool" );
341 
 
 341 
 
342 
            return $tool if ( -f $tool );
 342 
            return $tool if ( -f $tool );
343 
        }
 343 
        }
344 
 
 344