972,8 → 972,7 |
# without the epoch" -- it is more or less arbitrary, as long |
# as it is a well-formed version number). |
|
my($filepat) = "${package}_.*_${arch}\\.deb"; |
$filepat =~ s/\+/\\\+/; |
my($filepat) = qr/^\Q${package}_\E.*\Q_${arch}.deb\E$/; |
|
my($section) = Guess_Section($changes_data); |
my($pool) = join('/', (PoolDir($source, $section), $source)); |
985,7 → 984,7 |
# for later use. |
|
for $count (0..$#files) { |
if ($files[$count]->{'Filename'} =~ m/$filepat/) { |
if ($files[$count]->{'Filename'} =~ $filepat) { |
$marker = $count; |
} |
} |