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

Moved in patch finding code.

Browse Source
This commit is contained in:
joey
2000-04-21 22:23:53 +00:00
parent 25d4bcbe7a
commit fe84a0dbfc
2 changed files with 32 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Alien/Package/Deb.pm
View File

@@ -200,6 +200,38 @@ sub unpack {
return 1;
}
=item getpatch
This method tries to find a patch file to use in the prep stage. If it
finds one, it returns it. Pass in a list of directories to search for
patches in.
=cut
sub getpatch {
my $this=shift;
my @patches;
foreach my $dir (@_) {
push @patches,glob("$dir/".$this->name."_".$this->version."-".$this->revision."*.diff.gz");
}
unless (@patches) {
# Try not matching the revision, see if that helps.
foreach my $dir (@_) {
push @patches,glob("$dir/".$this->name."_".$this->version."*.diff.gz");
}
unless (@patches) {
# Fallback to anything that matches the name.
foreach my $dir (@_) {
push @patches,glob("$dir/".$this->name."_*.diff.gz");
}
}
}
# If we ended up with multiple matches, return the first.
return $patches[0];
}
=item prep
Adds a populated debian directory the unpacked package tree, making it