diff options
| author | Tim Retout <tim@retout.co.uk> | 2012-09-03 08:53:09 +0100 |
|---|---|---|
| committer | Tim Retout <tim@retout.co.uk> | 2012-09-04 19:25:11 +0100 |
| commit | 61b899e4b6b10c78daa818751e341f0c69e6f3d7 (patch) | |
| tree | 42d58f18af84b3d81e31c3b04a78c4d8b186d342 /solenv/bin | |
| parent | 3c47a63dc4bc9dee8f242a93e27c9641da6bded5 (diff) | |
installer: Remove copy_complete_directory_without_cvs
Change-Id: I8ae43356f91c45aecfe56cb83567b5e4e97c5669
Diffstat (limited to 'solenv/bin')
| -rw-r--r-- | solenv/bin/modules/installer/systemactions.pm | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/solenv/bin/modules/installer/systemactions.pm b/solenv/bin/modules/installer/systemactions.pm index 7f9b2a810064..702b6fedacb0 100644 --- a/solenv/bin/modules/installer/systemactions.pm +++ b/solenv/bin/modules/installer/systemactions.pm @@ -629,50 +629,6 @@ sub copy_complete_directory } } -##################################################################################### -# Copying a complete directory with sub directories, but not the CVS directories. -##################################################################################### - -sub copy_complete_directory_without_cvs -{ - my ($sourcedir, $destdir) = @_; - - my @sourcefiles = (); - - $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//; - $destdir =~ s/\Q$installer::globals::separator\E\s*$//; - - if ( ! -d $destdir ) { create_directory($destdir); } - - my $infoline = "\n"; - push(@installer::globals::logfileinfo, $infoline); - $infoline = "Copying files from directory $sourcedir to directory $destdir (without CVS)\n"; - push(@installer::globals::logfileinfo, $infoline); - - opendir(DIR, $sourcedir); - @sourcefiles = readdir(DIR); - closedir(DIR); - - my $onefile; - - foreach $onefile (@sourcefiles) - { - if ((!($onefile eq ".")) && (!($onefile eq "..")) && (!($onefile eq "CVS"))) - { - my $source = $sourcedir . $installer::globals::separator . $onefile; - my $dest = $destdir . $installer::globals::separator . $onefile; - if ( -f $source ) # only files, no directories - { - copy_one_file($source, $dest); - } - if ( -d $source ) # recursive - { - copy_complete_directory_without_cvs($source, $dest); - } - } - } -} - ##################################################### # Copying all files with a specified file extension # from one directory to another directory. |