Subversion Repositories DevTools

Rev

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

Rev 275 Rev 4612
Line 218... Line 218...
218
 
218
 
219
#-------------------------------------------------------------------------------
219
#-------------------------------------------------------------------------------
220
# Function        : CopyFile
220
# Function        : CopyFile
221
#
221
#
222
# Description     : Utility function to copy a single file
222
# Description     : Utility function to copy a single file
223
#                   Uses the same options and loging infrastructure
223
#                   Uses many of the same options and loging infrastructure
224
#                   as CopyDir
224
#                   as CopyDir. Does not use 'Expert' or 'Examine'
225
#
225
#
226
# Inputs          : $src_file               - Src file spec
226
# Inputs          : $src_file               - Src file spec
227
#                                             May be a file or a reference to an
227
#                                             May be a file or a reference to an
228
#                                             array of files.
228
#                                             array of files.
229
#                   $dst_file               - Dest file (or dir)
229
#                   $dst_file               - Dest file (or dir)
Line 526... Line 526...
526
    while ( @dirs )
526
    while ( @dirs )
527
    {
527
    {
528
        my $root = pop( @dirs );
528
        my $root = pop( @dirs );
529
 
529
 
530
        my $dir = $opt->{'SrcDir'} . '/' . $root;
530
        my $dir = $opt->{'SrcDir'} . '/' . $root;
531
	    unless (opendir DIR, $dir )
531
        unless (opendir DIR, $dir )
532
        {
532
        {
533
	        ::Warning ("File Find. Can't opendir($dir): $!\n");
533
            ::Warning ("File Find. Can't opendir($dir): $!\n");
534
	        next;
534
            next;
535
        }
535
        }
536
	    my @filenames = readdir DIR;
536
        my @filenames = readdir DIR;
537
	    closedir(DIR);
537
        closedir(DIR);
538
 
538
 
539
        foreach my $file ( @filenames )
539
        foreach my $file ( @filenames )
540
        {
540
        {
541
            #
541
            #
542
            #   Ignore filesystem house keeping directories
542
            #   Ignore filesystem house keeping directories