* Be stricter about which patch files to apply by default. For old behavior

use --anypatch.
   * Minor perl 5.8 fix.
This commit is contained in:
joey
2002-08-22 16:04:41 +00:00
parent 21393f2767
commit a295c7ad14
3 changed files with 22 additions and 5 deletions

View File

@@ -258,12 +258,13 @@ patches in.
sub getpatch {
my $this=shift;
my $anypatch=shift;
my @patches;
foreach my $dir (@_) {
push @patches, glob("$dir/".$this->name."_".$this->version."-".$this->release."*.diff.gz");
}
unless (@patches) {
if (! @patches && $anypatch) {
# Try not matching the revision, see if that helps.
foreach my $dir (@_) {
push @patches,glob("$dir/".$this->name."_".$this->version."*.diff.gz");