diff options
| author | Frank Lichtenheld <djpig@debian.org> | 2006-01-18 11:13:58 +0000 |
|---|---|---|
| committer | Frank Lichtenheld <djpig@debian.org> | 2006-01-18 11:13:58 +0000 |
| commit | c0d0233fb7a5a0cfde446ca3baf306f413444baa (patch) | |
| tree | 6dabf1db8b1202e8619d4bbf433de6b6c37797be /scripts | |
| parent | 997c3189fc9c9e4af8de8a13f2fe35157c318604 (diff) | |
| download | dpkg-c0d0233fb7a5a0cfde446ca3baf306f413444baa.tar.gz | |
Let dpkg-gencontrol bail out with an error if parsedep
found an error while parsing a dependency field. Closes: #228125
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/dpkg-gencontrol.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scripts/dpkg-gencontrol.pl b/scripts/dpkg-gencontrol.pl index 97c4b0366..e3debe493 100755 --- a/scripts/dpkg-gencontrol.pl +++ b/scripts/dpkg-gencontrol.pl @@ -182,7 +182,9 @@ for $_ (keys %fi) { } elsif (s/^C$myindex //) { if (m/^(Package|Description|Essential|Optional)$/) { } elsif (exists($pkg_dep_fields{$_})) { - $f{$_}= showdep(parsedep(substvars($v)), 0); + my $dep = parsedep(substvars($v)); + &error("error occoured while parsing $_") unless defined $dep; + $f{$_}= showdep($dep, 0); } elsif (m/^Section$|^Priority$/) { } elsif (m/^Architecture$/) { } elsif (s/^X[CS]*B[CS]*-//i) { |