Преглед изворни кода

Dpkg::BuildOptions: deal properly with undefined values in merge()

Raphaël Hertzog пре 16 година
родитељ
комит
4c933be6a5
1 измењених фајлова са 1 додато и 0 уклоњено
  1. 1 0
      scripts/Dpkg/BuildOptions.pm

+ 1 - 0
scripts/Dpkg/BuildOptions.pm

@@ -82,6 +82,7 @@ values like "nocheck parallel=2".
 
 
 sub merge {
 sub merge {
     my ($self, $content, $source) = @_;
     my ($self, $content, $source) = @_;
+    return 0 unless defined $content;
     my $count = 0;
     my $count = 0;
     foreach (split(/\s+/, $content)) {
     foreach (split(/\s+/, $content)) {
 	unless (/^([a-z][a-z0-9_-]*)(?:=(\S*))?$/) {
 	unless (/^([a-z][a-z0-9_-]*)(?:=(\S*))?$/) {