diff options
Diffstat (limited to 'scripts/Dpkg/Source')
| -rw-r--r-- | scripts/Dpkg/Source/Package.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/scripts/Dpkg/Source/Package.pm b/scripts/Dpkg/Source/Package.pm index 61f00a94d..9fe3df989 100644 --- a/scripts/Dpkg/Source/Package.pm +++ b/scripts/Dpkg/Source/Package.pm @@ -137,10 +137,8 @@ sub initialize { } close(DSC); # Read the fields - open(CDATA, "<", $filename) || syserr(_g("cannot open %s"), $filename); my $fields = Dpkg::Control->new(type => CTRL_PKG_SRC); - $fields->parse_fh(\*CDATA, sprintf(_g("source control file %s"), $filename)); - close(CDATA); + $fields->load($filename); $self->{'fields'} = $fields; foreach my $f (qw(Source Format Version Files)) { |