Subversion Repositories DevTools

Rev

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

Rev 329 Rev 331
Line 3000... Line 3000...
3000 
            {
 3000 
            {
3001 
                $fn = GetPackageInfo( "GenerateFiles", $raw_arg );
 3001 
                $fn = GetPackageInfo( "GenerateFiles", $raw_arg );
3002 
            }
 3002 
            }
3003 
            elsif ( $cmd =~ /^Var/ )
 3003 
            elsif ( $cmd =~ /^Var/ )
3004 
            {
 3004 
            {
3005 
                $fn = ExpandGenVar( "GenerateFiles", $raw_arg, @var_opts );
 3005 
                ($fn) = ExpandGenVar( "GenerateFiles", $raw_arg, @var_opts );
3006 
                $flags = '';
 3006 
                $flags = '';
3007 
            }
 3007 
            }
3008 
            else
 3008 
            else
3009 
            {
 3009 
            {
3010 
                Warning ("GenerateFiles: Unknown replacement command: $cmd");
 3010 
                Warning ("GenerateFiles: Unknown replacement command: $cmd");
Line 7600... Line 7600...
7600 
 
 7600 
 
7601 
#.. search local path first
 7601 
#.. search local path first
7602 
#
 7602 
#
7603 
    $count = 0;
 7603 
    $count = 0;
7604 
    $first = "";
 7604 
    $first = "";
7605 
    $first = "$source"                          # was ./$source
 7605 
    $first = "$source"                              # was ./$source
7606 
        if (-r "$source");
 7606 
        if (-r "$source");
7607 
 
 7607 
 
7608 
#.. search directory paths
 7608 
#.. search directory paths
7609 
#
 7609 
#
7610 
    foreach my $dir (@$dirs)
 7610 
    foreach my $dir (@$dirs)
7611 
    {
 7611 
    {
- 
 
 7612 
        next if ( $dir eq '.' );
7612 
        my $temp = "$dir/$source";                 # was ./$dir/$source
 7613 
        my $temp = "$dir/$source";                  # was ./$dir/$source
7613 
        Debug2( "MakeResolve: Looking in: $temp" );
 7614 
        Debug2( "MakeResolve: Looking in: $temp" );
7614 
        if (-r "$temp")
 7615 
        if (-r "$temp")
7615 
        {
 7616 
        {
7616 
            if ($first eq "") {
 7617 
            if ($first eq "") {
7617 
                $first = $temp;
 7618 
                $first = $temp;