aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Youri/Submit/Action/Archive.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/Youri/Submit/Action/Archive.pm b/lib/Youri/Submit/Action/Archive.pm
index 721eab9..965fc64 100644
--- a/lib/Youri/Submit/Action/Archive.pm
+++ b/lib/Youri/Submit/Action/Archive.pm
@@ -30,6 +30,7 @@ sub run {
my ($self, $package, $repository, $target, $define) = @_;
croak "Not a class method" unless ref $self;
+ # all this should be in Mandriva_upload.pm
my $section = $repository->_get_section($package, $target, $define);
my $main_section = $repository->_get_main_section($package, $target, $define);
print "section $section main_section $main_section\n" if $self->{_verbose};
@@ -58,6 +59,9 @@ sub run {
# install file to new location
system("install -m $self->{_perms} $file $dest");
+
+ print "deleting file $file\n" if $self->{_verbose};
+ unlink $file unless $self->{_test};
}
}
}