have to forego copying directories in the haystack case as well
as noticed by ajacoutot@
This commit is contained in:
parent
634fe4d4ab
commit
3a751a74cc
@ -1,5 +1,5 @@
|
|||||||
#! /usr/bin/perl
|
#! /usr/bin/perl
|
||||||
# $OpenBSD: make-plist,v 1.140 2008/11/17 11:20:44 sthen Exp $
|
# $OpenBSD: make-plist,v 1.141 2008/12/27 12:44:02 espie Exp $
|
||||||
# Copyright (c) 2004-2008 Marc Espie <espie@openbsd.org>
|
# Copyright (c) 2004-2008 Marc Espie <espie@openbsd.org>
|
||||||
#
|
#
|
||||||
# Permission to use, copy, modify, and distribute this software for any
|
# Permission to use, copy, modify, and distribute this software for any
|
||||||
@ -900,6 +900,10 @@ sub handle_file
|
|||||||
my $item = $haystack->{$dir}[0];
|
my $item = $haystack->{$dir}[0];
|
||||||
next if $item->isa("OpenBSD::PackingElement::Sampledir");
|
next if $item->isa("OpenBSD::PackingElement::Sampledir");
|
||||||
my $p = $item->{plist}->{replacement};
|
my $p = $item->{plist}->{replacement};
|
||||||
|
if ($file->type eq 'directory' &&
|
||||||
|
$p->{mtree}->{$file->path}) {
|
||||||
|
next;
|
||||||
|
}
|
||||||
my $short = short_name($file, $p);
|
my $short = short_name($file, $p);
|
||||||
my $o = create_object($file->type, $short, undef);
|
my $o = create_object($file->type, $short, undef);
|
||||||
if (!defined $o) {
|
if (!defined $o) {
|
||||||
|
Loading…
Reference in New Issue
Block a user