diff options
| author | Jacob Pipkin <j@dawnrazor.net> | 2012-09-02 03:38:43 -0500 |
|---|---|---|
| committer | Jacob Pipkin <j@dawnrazor.net> | 2012-09-02 03:38:43 -0500 |
| commit | 34e2c5af5a0b8e8cf2247cdc5283aef85e37fb65 (patch) | |
| tree | 57c29a8e7d00d85fa7c6539099ec59174ddc6a57 /SBO-Lib/lib/SBO/Lib.pm | |
| parent | ae4a6e80488279460453a387d28fc08219a0341a (diff) | |
| download | sbotools2-34e2c5af5a0b8e8cf2247cdc5283aef85e37fb65.tar.xz | |
recursive chown root after rsync
Diffstat (limited to 'SBO-Lib/lib/SBO/Lib.pm')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index c3b86a0..0c562dc 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -48,8 +48,8 @@ use Sort::Versions; use Digest::MD5; use File::Copy; use File::Path qw(make_path remove_tree); -use Fcntl; use File::Temp qw(tempdir tempfile); +use File::Find; use Fcntl qw(F_SETFD F_GETFD); our $tempdir = tempdir (CLEANUP => 1); @@ -155,6 +155,11 @@ sub rsync_sbo_tree () { my @arg = ('rsync', '-a', '--exclude=*.tar.gz', '--exclude=*.tar.gz.asc'); push @arg, "rsync://slackbuilds.org/slackbuilds/$slk_version/*"; my $out = system @arg, $config{SBO_HOME}; + my $wanted = sub { + $File::Find::name ? chown 0, 0, $File::Find::name + : chown 0, 0, $File::Find::dir; + ); + find ($wanted, $config{SBO_HOME}); say 'Finished.' and return $out; } |