merging dev with upstream

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};