diff options
Diffstat (limited to 'lib/Youri/Submit/Action/Clean.pm')
| -rw-r--r-- | lib/Youri/Submit/Action/Clean.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Youri/Submit/Action/Clean.pm b/lib/Youri/Submit/Action/Clean.pm index 8564756..51bfe51 100644 --- a/lib/Youri/Submit/Action/Clean.pm +++ b/lib/Youri/Submit/Action/Clean.pm @@ -1,9 +1,9 @@ # $Id: /local/youri/soft/trunk/lib/Youri/Upload/Action/Backup.pm 867 2006-01-29T20:47:27.830648Z guillaume $ -package Youri::Upload::Action::Clean; +package Youri::Submit::Action::Clean; =head1 NAME -Youri::Upload::Action::Clean - Old revisions cleanup +Youri::Submit::Action::Clean - Old revisions cleanup =head1 DESCRIPTION @@ -14,7 +14,7 @@ This action plugin ensures cleanup of old package revisions. use warnings; use strict; use Carp; -use base qw/Youri::Upload::Action/; +use base qw/Youri::Submit::Action/; sub run { my ($self, $package, $repository, $target, $define) = @_; @@ -23,7 +23,7 @@ sub run { foreach my $replaced_package ( $repository->get_replaced_packages($package, $target, $define) ) { - my $file = $replaced_package->get_file(); + my $file = $replaced_package->as_file(); print "deleting file $file\n" if $self->{_verbose}; unlink $file unless $self->{_test}; } |