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