diff options
| -rw-r--r-- | lib/Youri/Submit/Action/Archive.pm | 4 |
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}; } } } |