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

releasing version 8.56

Browse Source
This commit is contained in:
joey
2005-07-20 00:57:38 +00:00
parent 1c337c3e20
commit b12afcb1b7
5 changed files with 41 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Alien/Package.pm
View File

@@ -206,6 +206,23 @@ sub filename {
return $this->{filename};
}
=item scripts
Returns a list of all non-empty maintainer scripts in the package.
=cut
sub scripts {
my $this=shift;
my @ret;
foreach my $s (qw{postinst postrm preinst prerm}) {
my $val=$this->$s;
push(@ret, $s) if defined $val && length $val;
}
return @ret;
}
=item scan
This method scans the file associated with an object, and populates as many

5
Alien/Package/Deb.pm
View File

@@ -330,12 +330,11 @@ sub prep {
open (OUT, ">$dir/debian/changelog") || die "$dir/debian/changelog: $!";
print OUT $this->name." (".$this->version."-".$this->release.") experimental; urgency=low\n";
print OUT "\n";
print OUT " * Converted from .".$this->origformat." format to .deb\n";
print OUT " by alien version $Alien::Version\n";
print OUT " * Converted from .".$this->origformat." format to .deb by alien version $Alien::Version\n";
print OUT "\n";
print OUT " -- ".$this->username." <".$this->email."> ".$this->date."\n";
print OUT "\n";
print OUT $this->changelogtext."\n";
print OUT $this->changelogtext."\n" if defined $this->changelogtext;
close OUT;
# Control file.

2
Alien/Package/Pkg.pm
View File

@@ -88,6 +88,8 @@ sub checkfile {
my $line = <F>;
close F;
return unless defined $line;
if($line =~ "# PaCkAgE DaTaStReAm") {
return 1;
}