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

Fixed arch subroutine in Tgz.pm as it was causing issues when converting deb to tgz.

Browse Source
This commit is contained in:
Armando
2025-05-27 18:06:42 -06:00
committed by Syed-Shahrukh-OSSRevival
parent 32f04aed12
commit 7973549279
1 changed files with 1 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Alien/Package/Tgz.pm
View File

@@ -262,17 +262,6 @@ sub unpack {
return 1; return 1;
} }
sub arch {
my $self = shift;
# $self is the Alien::Package::Tgz object instance.
# Call the imported 'arch' function from Alien::Package::Rpm.
# Pass $self as the first argument, so the Rpm.pm 'arch' function
# (which is written as a method) receives it as its own $this/$self.
# Pass any other arguments received by Tgz::arch using @_.
return Alien::Package::Rpm::arch($self, @_);
}
# Helper function for _format_slack_desc # Helper function for _format_slack_desc
sub _format_slack_desc_section { sub _format_slack_desc_section {
my ($pkgname, $text_content, $num_target_lines, $max_total_line_length) = @_; my ($pkgname, $text_content, $num_target_lines, $max_total_line_length) = @_;
@@ -490,7 +479,7 @@ Build a tgz.
sub build { sub build {
my $this=shift; my $this=shift;
my $arch = $this->arch(); my $arch = Alien::Package::Rpm::arch($this, @_);
my $tgz=$this->name."-".$this->version."-".$arch."-1_alien.tgz"; my $tgz=$this->name."-".$this->version."-".$arch."-1_alien.tgz";
if (-x "/sbin/makepkg") { if (-x "/sbin/makepkg") {
my $v=$Alien::Package::verbose; my $v=$Alien::Package::verbose;