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 $this=shift;
my $deb=shift; my $deb=shift;
my $v=$Alien::Package::verbose;
$Alien::Package::verbose=2;
$this->do("dpkg", "--no-force-overwrite", "-i", $deb) $this->do("dpkg", "--no-force-overwrite", "-i", $deb)
or die "Unable to install"; or die "Unable to install";
$Alien::Package::verbose=$v;
} }
=item test =item test

3
Alien/Package/Pkg.pm
View File

@@ -106,8 +106,11 @@ sub install {
my $pkg=shift; my $pkg=shift;
if (-x "/usr/sbin/pkgadd") { if (-x "/usr/sbin/pkgadd") {
my $v=$Alien::Package::verbose;
$Alien::Package::verbose=2;
$this->do("/usr/sbin/pkgadd", "-d .", "$pkg") $this->do("/usr/sbin/pkgadd", "-d .", "$pkg")
or die "Unable to install"; or die "Unable to install";
$Alien::Package::verbose=$v;
} }
else { else {
die "Sorry, I cannot install the generated .pkg file because /usr/sbin/pkgadd is not present.\n"; 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 $this=shift;
my $rpm=shift; my $rpm=shift;
my $v=$Alien::Package::verbose;
$Alien::Package::verbose=2;
$this->do("rpm -ivh ".(exists $ENV{RPMINSTALLOPT} ? $ENV{RPMINSTALLOPT} : '').$rpm) $this->do("rpm -ivh ".(exists $ENV{RPMINSTALLOPT} ? $ENV{RPMINSTALLOPT} : '').$rpm)
or die "Unable to install"; or die "Unable to install";
$Alien::Package::verbose=$v;
} }
=item scan =item scan

3
Alien/Package/Slp.pm
View File

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

3
Alien/Package/Tgz.pm
View File

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

8
debian/changelog vendored
View File

@@ -1,3 +1,11 @@
alien (8.68) UNRELEASED; urgency=low
* Show output of installation of package with -i, since some packages
install scripts may have important output or even be interactive.
Closes; #425732
-- Joey Hess <joeyh@debian.org> Wed, 23 May 2007 13:44:42 -0400
alien (8.67) unstable; urgency=low alien (8.67) unstable; urgency=low
* Update the url to the web page, and remove several other broken urls from * Update the url to the web page, and remove several other broken urls from