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

* Major typo fix in Tgz.pm.

Browse Source 
* Fixed newlines in tgz filelist.
   * Fixed some undefined value warnings.
This commit is contained in:
joey
2000-04-22 23:32:45 +00:00
parent 84a8367902
commit 23baf2bcf4
6 changed files with 20 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Alien/Package/Rpm.pm
View File

@@ -332,8 +332,7 @@ sub build {
$opts="--target noarch" if $rpmarch eq 'noarch';
}
$opts.=" $ENV{RPMBUILDOPTS}" if exists $ENV{RPMBUILDOPTS};
$opts.=" $ENV{RPMBUILDOPTS}" if exists $ENV{RPMBUILDOPTS};
system("cd $dir; rpm $opts -bb ".$this->name."-".$this->version."-".$this->release.".spec >/dev/null") &&
die "package build failed";

6
Alien/Package/Tgz.pm
View File

@@ -97,7 +97,7 @@ sub scan {
# Strip out any tar extentions.
$basename=~s/\.(tgz|tar\.(gz|Z))$//;
if ($basename=~m/(.*)-(.*)/ ne undef) {
if ($basename=~m/(.*)-(.*)/) {
$this->name($1);
$this->version($2);
}
@@ -113,6 +113,7 @@ sub scan {
$this->copyright('unknown');
$this->release(1);
$this->distribution("Slackware");
$this->group("unknown");
$this->origformat('tgz');
$this->changelogtext('');
$this->binary_info(`ls -l $file`);
@@ -140,6 +141,7 @@ sub scan {
open (FILELIST, "tar ztf $file |") ||
die "getting filelist: $!";
while (<FILELIST>) {
chomp;
unless (m:^install/:) {
push @filelist, "/$_";
}
@@ -168,7 +170,7 @@ sub unpack {
system("cat $file | (cd ".$this->unpacked_tree."; tar zxpf -)") &&
die "Unpacking of `$file' failed: $!";
# Delete the install directory that has slackware info in it.
system("cd ".$this->unpacked_tree."rm -rf ./install");
system("cd ".$this->unpacked_tree."; rm -rf ./install");
return 1;
}