Subversion Repositories DevTools

Rev

Rev 235 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 235 Rev 239
Line 946... Line 946...
946 
    #
 946 
    #
947 
    sub copy_file_wanted
 947 
    sub copy_file_wanted
948 
    {
 948 
    {
949 
        #
 949 
        #
950 
        #   Do not copy directories
 950 
        #   Do not copy directories
- 
 
 951 
        #   Just make the directory entry. May result in empty directories
951 
        #
 952 
        #
952 
        return if ( -d $_ );
 953 
        if ( -d $_ )
- 
 
 954 
        {
- 
 
 955 
            my $tdir = "$dest_dir/" . substr( $File::Find::dir, $slength);
- 
 
 956 
            $tdir .= "/$_";
- 
 
 957 
            File::Path::mkpath( $tdir )
- 
 
 958 
                unless ( -d $tdir);
- 
 
 959 
            return;
- 
 
 960 
        }
953 
 
 961 
 
954 
        #
 962 
        #
955 
        #   When used to copy file from within a clearcase dynamic view the
 963 
        #   When used to copy file from within a clearcase dynamic view the
956 
        #   files may not actually exist. This will generate an error later
 964 
        #   files may not actually exist. This will generate an error later
957 
        #   so check for existance of file file now.
 965 
        #   so check for existance of file file now.
Line 978... Line 986...
978 
            $copy_error++;
 986 
            $copy_error++;
979 
            Message "Error copying $sfile";
 987 
            Message "Error copying $sfile";
980 
        }
 988 
        }
981 
        else
 989 
        else
982 
        {
 990 
        {
- 
 
 991 
            my $perm = (stat $_)[2] & 07777;
- 
 
 992 
            chmod($perm, $tfile);
- 
 
 993 
 
983 
            $copy_count++;
 994 
            $copy_count++;
984 
        }
 995 
        }
985 
    }
 996 
    }
986 
 
 997 
 
987 
    #
 998 
    #