mlot/alien
1
0
Fork 0
mirror of https://github.com/Project-OSS-Revival/alien.git synced 2026-04-24 14:00:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

* Show output of installation of package with -i, since some packages

Browse Source 
install scripts may have important output or even be interactive.
  Closes; #425732
This commit is contained in:
joey
2007-05-23 18:03:47 +00:00
parent f0c859c1c4
commit ffcb91fa04
6 changed files with 23 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Alien/Package/Deb.pm
View File

@@ -87,8 +87,11 @@ sub install {
my $this=shift;
my $deb=shift;
my $v=$Alien::Package::verbose;
$Alien::Package::verbose=2;
$this->do("dpkg", "--no-force-overwrite", "-i", $deb)
or die "Unable to install";
$Alien::Package::verbose=$v;
}
=item test

3
Alien/Package/Pkg.pm
View File

@@ -106,8 +106,11 @@ sub install {
my $pkg=shift;
if (-x "/usr/sbin/pkgadd") {
my $v=$Alien::Package::verbose;
$Alien::Package::verbose=2;
$this->do("/usr/sbin/pkgadd", "-d .", "$pkg")
or die "Unable to install";
$Alien::Package::verbose=$v;
}
else {
die "Sorry, I cannot install the generated .pkg file because /usr/sbin/pkgadd is not present.\n";

3
Alien/Package/Rpm.pm
View File

@@ -53,8 +53,11 @@ sub install {
my $this=shift;
my $rpm=shift;
my $v=$Alien::Package::verbose;
$Alien::Package::verbose=2;
$this->do("rpm -ivh ".(exists $ENV{RPMINSTALLOPT} ? $ENV{RPMINSTALLOPT} : '').$rpm)
or die "Unable to install";
$Alien::Package::verbose=$v;
}
=item scan

3
Alien/Package/Slp.pm
View File

@@ -114,8 +114,11 @@ sub install {
my $this=shift;
my $slp=shift;
my $v=$Alien::Package::verbose;
$Alien::Package::verbose=2;
$this->do("slpi", $slp)
or die "Unable to install";
$Alien::Package::verbose=$v;
}
=item getfooter

3
Alien/Package/Tgz.pm
View File

@@ -66,8 +66,11 @@ sub install {
my $tgz=shift;
if (-x "/sbin/installpkg") {
my $v=$Alien::Package::verbose;
$Alien::Package::verbose=2;
$this->do("/sbin/installpkg", "$tgz")
or die "Unable to install";
$Alien::Package::verbose=$v;
}
else {
die "Sorry, I cannot install the generated .tgz file because /sbin/installpkg is not present. You can use tar to install it yourself.\n"