diff options
| author | Raphaël Hertzog <hertzog@debian.org> | 2009-09-20 11:49:52 +0200 |
|---|---|---|
| committer | Raphaël Hertzog <hertzog@debian.org> | 2009-09-20 12:06:04 +0200 |
| commit | 63044da0c7f67179d6e0cb3436f987248a44152e (patch) | |
| tree | 288089315db6ebf40714d1064c1383a686cff2ad /scripts/Dpkg/Control | |
| parent | d208849d8cacdfe93c494fc0eb3d41716d68ec3d (diff) | |
| download | dpkg-63044da0c7f67179d6e0cb3436f987248a44152e.tar.gz | |
Dpkg::Control::Fields: don't fail when vendor hook is not (well) implemented
Diffstat (limited to 'scripts/Dpkg/Control')
| -rw-r--r-- | scripts/Dpkg/Control/Fields.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/scripts/Dpkg/Control/Fields.pm b/scripts/Dpkg/Control/Fields.pm index 6b2b3b810..7b08dd32c 100644 --- a/scripts/Dpkg/Control/Fields.pm +++ b/scripts/Dpkg/Control/Fields.pm @@ -313,6 +313,7 @@ $FIELD_ORDER{CTRL_APT_SRC()} = [ @{$FIELD_ORDER{CTRL_PKG_SRC()}} ]; # Register vendor specifics fields foreach my $op (run_vendor_hook("register-custom-fields")) { + next if not (defined $op and ref $op); # Skip when not implemented by vendor my $func = shift @$op; if ($func eq "register") { &field_register(@$op); |