diff options
Diffstat (limited to 'lib/Youri/Submit/Action/Install.pm')
| -rw-r--r-- | lib/Youri/Submit/Action/Install.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/Youri/Submit/Action/Install.pm b/lib/Youri/Submit/Action/Install.pm index df65991..e665476 100644 --- a/lib/Youri/Submit/Action/Install.pm +++ b/lib/Youri/Submit/Action/Install.pm @@ -1,9 +1,9 @@ # $Id$ -package Youri::Upload::Action::Install; +package Youri::Submit::Action::Install; =head1 NAME -Youri::Upload::Action::Install - Package installation +Youri::Submit::Action::Install - Package installation =head1 DESCRIPTION @@ -14,7 +14,7 @@ This action plugin ensures installation of new package revisions. use warnings; use strict; use Carp; -use base qw/Youri::Upload::Action/; +use base qw/Youri::Submit::Action/; sub _init { my $self = shift; @@ -32,22 +32,22 @@ sub run { my ($self, $package, $repository, $target, $define) = @_; croak "Not a class method" unless ref $self; - my $file = $package->get_file(); + my $file = $package->as_file(); my $rpm = $package->get_file_name(); my $dest = $repository->get_install_dir($package, $target, $define); # FIXME remove prefix this should be done by a function $rpm =~ s/^\d{14}\.\w*\.\w+\.\d+_//; $rpm =~ s/^\@\d+://; - print "installing file $file to $dest/$rpm\n" if $self->{_verbose}; + print "installing file $file to $dest\n" if $self->{_verbose}; unless ($self->{_test}) { # create destination dir if needed - system("install -d -m " . ($self->{_perms} + 111) . " $dest/") + system("install -d -m " . ($self->{_perms} + 111) . " $dest") unless -d $dest; # install file to new location - system("install -m $self->{_perms} $file $dest/$rpm"); + system("install -m $self->{_perms} $file $dest"); } $package->{_file} = "$dest/$rpm"; print "deleting file $file\n" if $self->{_verbose}; |