diff options
Diffstat (limited to 'scripts/Dpkg/Vendor.pm')
-rw-r--r-- | scripts/Dpkg/Vendor.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/Dpkg/Vendor.pm b/scripts/Dpkg/Vendor.pm index fa967f509..bacb32b2e 100644 --- a/scripts/Dpkg/Vendor.pm +++ b/scripts/Dpkg/Vendor.pm @@ -21,7 +21,7 @@ use warnings; use Dpkg::ErrorHandling; use Dpkg::Gettext; -use Dpkg::Control; +use Dpkg::Control::Hash; use base qw(Exporter); our @EXPORT_OK = qw(get_vendor_info get_current_vendor get_vendor_file @@ -62,7 +62,7 @@ sub get_vendor_info(;$) { my $file = get_vendor_file($vendor); return undef unless $file; open(my $fh, "<", $file) || syserr(_g("cannot read %s"), $file); - my $fields = Dpkg::Control->new(type => CTRL_FILE_VENDOR); + my $fields = Dpkg::Control::Hash->new(); $fields->parse_fh($fh, $file) || error(_g("%s is empty"), $file); close($fh); return $fields; |