Modified: build_system/iurt/trunk/iurt_root_command
===================================================================
--- build_system/iurt/trunk/iurt_root_command 2011-01-15 23:43:22 UTC (rev 305)
+++ build_system/iurt/trunk/iurt_root_command 2011-01-16 22:31:43 UTC (rev 306)
@@ -294,6 +294,10 @@
plog('FAIL', "copying to $dest forbidden");
return;
}
+
+ my $prev_umask = umask();
+ umask($prev_umask | $opt->{umask}) if $opt->{umask};
+
foreach my $f (@files) {
if (-d $f) {
if (!$opt->{recursive}) {
@@ -326,6 +330,9 @@
}
}
}
+
+ umask($prev_umask) if $opt->{umask};
+
if (!$done) { plog('DEBUG', "nothing copied") }
$ok;
}